Search code examples
vb6vb6-migration

How to convert Application.PrevInstance in VB 6.0 to VB.NET?


I have 'Applications.PrevInstance' in VB 6 code that I am trying to upgrade to .NET using VS 2008. Apparently this code is no longer valid. Does anyone have any ideas about upgraded solution? TIA


Solution

  • See here:

    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