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

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

 

看一看,比较简单

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值