重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
创新互联建站是一家专业提供八公山企业网站建设,专注与成都网站制作、网站建设、H5页面制作、小程序制作等业务。10年已为八公山众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) 0 Then
MessageBox.Show("程序已经运行了")
End
End If
End Sub
VB2008里的设置:
项目属性-应用程序-生成单个实例应用程序
现在多是在form_load里验证的,你打开第二次也只是暂时的,后面让他关闭就行了. form_load之前windows form就已经生成... 把你程序读入内存就算这个程序已经被打开开始执行了...不管你放那里都是会打开第二次的... 要让他结束直接用Application.Exit()就行了.