从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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()就行了.
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图