vb6 - 如何将 VB 6.0 中的 Application.PrevInstance 转换为 VB.NET？

Question

我在 VB 6 代码中有“Applications.PrevInstance”，我正在尝试使用 VS 2008 升级到 .NET。显然此代码不再有效。有没有人对升级的解决方案有任何想法？ TIA

Answer 1

看这里:

http://www.knowdotnet.com/articles/previnstance.html

Public Sub Main()
   If PrevInstance() Then Exit Sub

   ' continue with your application
   UserName = Environ("UserName")
   ComputerName = Environ("COMPUTERNAME")

End Sub

Function PrevInstance() As Boolean
  If UBound(Diagnostics.Process.GetProcessesByName _
     (Diagnostics.Process.GetCurrentProcess.ProcessName)) _
     > 0 Then
     Return True
  Else
     Return False
  End If
End Function