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

发布时间：2020-12-17 07:19:26 所属栏目：百科来源：网络整理

导读：我在VB 6代码中有’Applications.PrevInstance’,我试图使用VS 2008升级到.NET.显然这段代码不再有效.有没有人对升级解决方案有任何想法？ TIA 解决方法看这里： http://www.knowdotnet.com/articles/previnstance.html Public Sub Main() If PrevInstance(

我在VB 6代码中有’Applications.PrevInstance’,我试图使用VS 2008升级到.NET.显然这段代码不再有效.有没有人对升级解决方案有任何想法？ TIA

解决方法

看这里：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!