如何判斷程序処於運行環境還是調試環境
VB中新建工程,添加一個按鈕。
使用的時候,在IDE環境下F5運行和編譯後運行就可以看到傚果。
Option Explicit
?
Private Declare Function GetModuleFileName Lib"kernel32" Alias _
???????"GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As _
??????? String, ByVal nSize As Long) As Long
?
Function IsRunUnderVB6() As Boolean
?Dim S As String
?Dim Length As Long
?Length = 256
?S = String(Length, 0)
?Call GetModuleFileName(0, S, Length)
?S = Left(S, InStr(S, Chr(0)) - 1)
?IsRunUnderVB6 = UCase(Right(S, 7)) ="VB6.EXE"
End Function
?
Private Sub Command1_Click()
If IsRunUnderVB6 Then
MsgBox"調試"
Else
MsgBox"運行"
End If
End Sub
0條評論