Mega Code Archive
Get Previous Instances
<![CDATA[
Imports System.Windows.Forms
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
Me.Label1.Location = New System.Drawing.Point(16, 16)
Me.Label1.Size = New System.Drawing.Size(296, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Run the final .EXE version of this application."
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(360, 157)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1})
Me.ResumeLayout(False)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If PrevInstance() = True Then
Dim Processes() As Process
Processes = Diagnostics.Process.GetProcessesByName( Diagnostics.Process.GetCurrentProcess.ProcessName)
AppActivate(Processes(0).Id)
Application.Exit()
End If
End Sub
Public Function PrevInstance() As Boolean
If Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName).Length > 1 Then
Return True
Else
Return False
End If
End Function
End Class
]]>