技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 1199|回复: 5
收起左侧

【VB6】检测是否运行于IDE的调试模式下

[复制链接]

1090

主题

2611

帖子

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
237
威望
495 点
宅币
21567 个
贡献
45961 次
宅之契约
0 份
在线时间
2075 小时
注册时间
2014-1-26
发表于 2021-2-22 17:52:49 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

x
当你打算使用一些黑科技优化,而它会让IDE崩溃导致调试困难的时候,可以先检测代码是否运行于IDE的调试模式下,然后在调试模式下先不使用黑科技来实现功能,在编译后才使用黑科技。

[Visual Basic] 纯文本查看 复制代码
'检测是否在IDE环境下运行
Function IsRunningInVB6IDE() As Boolean
Static Counter As Variant
If IsEmpty(Counter) Then
    Counter = 1
    Debug.Assert IsRunningInVB6IDE() Or True
    Counter = Counter - 1
ElseIf Counter = 1 Then
    Counter = 0
End If
IsRunningInVB6IDE = Counter
End Function
回复

使用道具 举报

5

主题

107

帖子

3505

积分

用户组: 真·技术宅

UID
4293
精华
5
威望
44 点
宅币
2861 个
贡献
424 次
宅之契约
0 份
在线时间
173 小时
注册时间
2018-9-19
发表于 2021-2-23 10:05:02 | 显示全部楼层
用这个还不如直接 App.LogMode 吧,VB6都自带了。有没有能条件编译判断的方式呢?

39

主题

222

帖子

7870

积分

用户组: 管理员

UID
77
精华
14
威望
144 点
宅币
7131 个
贡献
159 次
宅之契约
0 份
在线时间
162 小时
注册时间
2014-2-22
发表于 2021-2-23 16:24:25 | 显示全部楼层
为啥我觉得黑科技只有在VB6IDE运行的时候才好使?

顺带说句,那个App.LogMode好像是有啥奇怪的用途。
http://www.johnsmiley.com/cis18/smiley022.pdf

1090

主题

2611

帖子

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
237
威望
495 点
宅币
21567 个
贡献
45961 次
宅之契约
0 份
在线时间
2075 小时
注册时间
2014-1-26
 楼主| 发表于 2021-2-23 16:54:07 | 显示全部楼层
美俪女神 发表于 2021-2-23 16:24
为啥我觉得黑科技只有在VB6IDE运行的时候才好使?

顺带说句,那个App.LogMode好像是有啥奇怪的用途。

我用它写自己的UserControl的时候,拿来判断是否处在编辑模式

5

主题

107

帖子

3505

积分

用户组: 真·技术宅

UID
4293
精华
5
威望
44 点
宅币
2861 个
贡献
424 次
宅之契约
0 份
在线时间
173 小时
注册时间
2018-9-19
发表于 2021-2-24 10:08:57 | 显示全部楼层
0xAA55 发表于 2021-2-23 16:54
我用它写自己的UserControl的时候,拿来判断是否处在编辑模式

不有提供专门的 Ambient.UserMode 属性可以判断吗?

1090

主题

2611

帖子

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
237
威望
495 点
宅币
21567 个
贡献
45961 次
宅之契约
0 份
在线时间
2075 小时
注册时间
2014-1-26
 楼主| 发表于 2021-2-24 23:42:29 | 显示全部楼层
系统消息 发表于 2021-2-24 10:08
不有提供专门的 Ambient.UserMode 属性可以判断吗?

虽说用过然后发现不好使

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2022-1-18 13:27 , Processed in 0.041051 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表