16,554
社区成员
发帖
与我相关
我的任务
分享
'启用应用程序的可视样式
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Dim instance As Process = RunningInstance()
If instance Is Nothing Then
Application.Run(New frmMain())
Else
MessageBox.Show("程序已启动,请不要启动多个程序!", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
HandleRunningInstance(instance)
End If