tips:ให้โปรแกรมเราถูก Run ครั้งแรกครั้งเดียว ห้าม Run ซ้ำ

posted on 24 Mar 2008 17:12 by theera in Visual-Basic

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

Tags: run, tips, ครั้งแรกครั้งเดียว, ซ้ำ, ห้าม, ให้โปรแกรมเราถูก0 Comments