vb程序,程序打开后,怎么防止再次点击执行程序打开两个相同程序的代码呢?

2024-11-22 16:17:39
推荐回答(1个)
回答1:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
            MessageBox.Show("程序已经运行了")
            End
        End If
    End Sub