tips

tips:ให้โปรแกรมเราถูก Run ครั้งแรกครั้งเดียว ห้าม Run ซ้ำ
ปกติใน vb6 จะใช้ App.Previnstance ถ้าใน vb.net ใช้

(VB.NET)
        Dim appName As String = Process.GetCurrentProcess.ProcessName
        Dim sameProcessTotal As Integer = Process.GetProcessesByName(appName).Length
         If sameProcessTotal > 1 Then
             MessageBox.Show("A previous instance of this application is already open!")
             Me.Close()
         End If
 ________________________________________________________________
(VB6)
    If App.PrevInstance = True Then
 MsgBox "โปรแกรมกำลังทำงานอยู่ ไม่สามารถเปิดพร้อมกันได้", vbOKOnly + vbExclamation, "Warning"
    End

edit @ 24 Mar 2008 17:13:00 by theera