Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
創(chuàng)新互聯(lián)建站是一家專業(yè)提供八公山企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站制作、網(wǎng)站建設(shè)、H5頁面制作、小程序制作等業(yè)務(wù)。10年已為八公山眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)絡(luò)公司優(yōu)惠進(jìn)行中。
If?UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName))??0?Then
MessageBox.Show("程序已經(jīng)運(yùn)行了")
End
End?If
End?Sub
VB2008里的設(shè)置:
項(xiàng)目屬性-應(yīng)用程序-生成單個(gè)實(shí)例應(yīng)用程序
現(xiàn)在多是在form_load里驗(yàn)證的,你打開第二次也只是暫時(shí)的,后面讓他關(guān)閉就行了. form_load之前windows form就已經(jīng)生成... 把你程序讀入內(nèi)存就算這個(gè)程序已經(jīng)被打開開始執(zhí)行了...不管你放那里都是會(huì)打開第二次的... 要讓他結(jié)束直接用Application.Exit()就行了.