Ngăn chặn mở nhiều phiên bản của ứng dụng VB

Question

Tôi đang làm việc trên ứng dụng VB6, được kết nối với cơ sở dữ liệu MS Access, vì vậy tôi không muốn cho phép người dùng mở nhiều phiên bản ứng dụng của tôi vì điều này sẽ tạo xung đột & cơ sở dữ liệu. Ngoài ra, nếu người dùng cố mở một cá thể khác, cá thể hiện đang chạy phải được tập trung. Làm thế nào tôi có thể đạt được điều này? Cảm ơn trước .......... :-)

Answer 1

Sử dụng App.PrevInstance:

'this code would be in a bas module for start up.' 
Private Sub main() 
    'Check for previous instance and exit if found.' 

    Dim rc As Long 

    If App.PrevInstance Then 
     rc = MsgBox("Application is already running", vbCritical, App.Title) 
     Exit Sub 
    Else 
     frmMain.Show 
    End If 

End Sub