判断程序处于运行环境还是调试环境

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

?

看一看,比较简单

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航