如何判断程序处于运行环境还是调试环境|中国IT实验室

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

CSDN.NET　

2004-8-11　

保存本文　

推荐给好友　

QQ上看本站　

收藏本站

　　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

　　相关产品与培训

相关文章		热门文章

C#中DataGrid的数据新增编辑删除操作代码如何使用 ADO.NET 轻松操纵数据库 C#.Net 网络程序开发基础之Socket篇 C#.Net 网络程序开发基础之TCP篇运用 .net 中的 socket 实现文件传输从一个程序出发详细研究 DataReader .NET 应用程序如何披上XP的外衣? 使用 C# 在应用程序之间发送消息设计模式之工厂方法 FACTORY METHOD(三) 设计模式之工厂方法 FACTORY METHOD(二)

文章评论

认证培训

热门专题　　　　　　　more