[visual basic] 프로그램 중복 실행 방지

비주얼 베이직 중복 실행 방지 소스

 

App.PrevInstance 함수(프로그램 실행 중 False 반환, 그렇지 않는 경우 True 반환)

 

Private Sub Form_Load()

If App.PrevInstance = True Then
     MsgBox " 프로그램이 이미 구동 중 입니다.", vbExclamation, "구동중"
     End
 End If

End Sub