Comment faire pour convertir Application.PrevInstance en VB 6.0 en VB.NET?

Question

J'ai 'Applications.PrevInstance' dans le code VB 6 que j'essaie de mettre à niveau vers .NET en utilisant VS 2008. Apparemment, ce code n'est plus valide. Quelqu'un at-il des idées sur la solution mise à niveau? TIA

Answer 1

Voir ici:

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 

Answer 2

Function PrevInstance() As Boolean 
    If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then 
     PrevInstance = True 
    Else 
     UserName = Environ("UserName") 
     Computername = Environ("COMPUTERNAME") 
     PrevInstance = False 
    End If 
    Dim i, n As Integer, RepForm As String 
    For i = My.Application.OpenForms.Count - 1 To 1 Step -1 
     RepForm = My.Application.OpenForms.Item(i).Name 
     For n = My.Application.OpenForms.Count - 1 To 1 Step -1 
      If My.Application.OpenForms.Item(n).Name = My.Application.OpenForms.Item(i).Name And n > i Then 
       My.Application.OpenForms(i).Close() 
       PrevInstance = True 
       Exit Function 
      End If 
     Next n 
    Next i 
End Function