vb net只運行一個程序

方法一：通過Diagnostics.Process.GetProcessesByName函數來檢測程序是否已經啟動

目前創新互聯公司已為數千家的企業提供了網站建設、域名、虛擬空間、網站托管、企業網站設計、珠山網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發展。

Imports System.Windows.Forms

Module Module1

Sub Main()

'檢測多重啟動

If Diagnostics.Process.GetProcessesByName( _

Diagnostics.Process.GetCurrentProcess.ProcessName).Length 1 Then

MessageBox.Show("已經一個實例的本程序正在運行。")

Return

End If

Application.Run(New Form())

End Sub

End Module

不過這個方法有個缺點，如果用戶改了下exe的名字就檢測不到了，所以更好的方法如下

方法2：使用Mutex

Imports System.Windows.Forms

Module Module1

Sub Main()

Dim createdNew As Boolean

' 創建mutex

Dim mutex As System.Threading.Mutex = _

New System.Threading.Mutex(True, "YourAppName", createdNew)

If createdNew = False Then

MessageBox.Show("已經一個實例的本程序正在運行。")

Return

End If

Application.Run(New Form())

' 釋放mutex

mutex.ReleaseMutex()

End Sub

End Module

怎樣在VB,net中，運行指定程序

MSI 不是可執行程序呀

這么運行: msiexec accessrt.msi

具體你應該知道怎么弄吧.

怎么用VB.NET調用指定的lisp程序

假如指定的lisp程序存入"e:\abcd.lsp"，其中有函數gczd4-1帶有三個參數即(gczd4-1 X1 X2 X3)和命令cc，則VB.NET調用程序如下：

Dim AcadApp As Object

Dim AcadDoc As Object

AcadApp = GetObject(, "AutoCAD.Application")

AcadDoc = AcadApp.ActiveDocument

AcadDoc.SendCommand("(load " Chr(34) "e:\\abcd.lsp" Chr(34) ") ")

AcadDoc.SendCommand("(gczd4-1 " Chr(34) X1 Chr(34) Chr(34) X2 Chr(34) Chr(34) X3 Chr(34) ") ")

AcadDoc.SendCommand("(c:cc) ")

AcadDoc = Nothing

AcadApp = Nothing

當前名稱：vb.net運行指定程序 vbnet keydown
文章URL：http://www.js-pz168.com/article0/dddgsoo.html

成都網站建設公司_創新互聯，為您提供網站制作、網站內鏈、企業建站、網站維護、用戶體驗、品牌網站設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯