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

Comment

Comment:

Tweet

ให้ 5 กะโหลกเลยครับ

#3 By otomokung (118.173.150.223) on 2009-12-07 14:40

ขอบคุณมากเลยครับ เป็นประโยชน์มาก

#2 By วิชชากร (124.121.220.24) on 2009-09-03 16:59

ขอบคุณจ้า

#1 By ซัน (118.175.6.149) on 2009-07-02 13:48