vb中如何判断是调试模式

[duxianghe]

在C++中有宏debug可以判断程序是否是调试模式

在vb中如果判断是否调试模式？
不想通过是否存在进程判断，那种太不合理。

[yachong]

Option Explicit
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Public Function GetIDEmode() As Boolean '是否运行在VB IDE编辑模式1
Dim strFileName As String
Dim lngCount As Long
strFileName = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
strFileName = Left(strFileName, lngCount)


If UCase(Right(strFileName, 7)) <> "VB6.EXE" Then

GetIDEmode = True '不是运行在IDE
Else

GetIDEmode = False '是运行在IDE
End If

'//也可以获取VB的版本等信息
End Function

[yachong]

baidu "vb 判断 ide 运行"

[yachong]

If App.LogMode = 0 Then
MsgBox "ide环境中"
Else
MsgBox "非ide环境中"
End If
这个更简单，就是看不懂原理
http://cache.baidu.com/c?m=9f65cb4a8c8507ed4fece763104c8c711923d030678197027fa3c215cc7911124d63feeb797f451988832b381ca8420bbca43571370574b391c88f1b8cea927c798d2d60720b8636489546f1df037881769f1eb9b81996ad813584d8d0c4af5044bb27127af1abdd0d1714bb7886122692d68e3e174866b8&p=9c3fd216d9c257e744bd9b7d0c7a&user=baidu

[fvflove]

'不知这种方法是否可行.但是我试一下,可以用.

 if Len(App.ProductName)>1 then
     msgbox "现在以EXE方式运行"
 else
    msgbox "现在在VB6.0下进行调试运行"
 end if

[打死不掉牙]

你在vb程序的form_load的事件中加入debug.print "这是调试模式"
如果编译器的debug里看不见那句话就不是调试模式啊,呵呵!

[yinweihong]

vb6编译生成的exe没有vc++里面的debug和release版本的区别~

[duxianghe]

to:fvflove
方法不可取，那是因为你没有给产品取名字


If App.LogMode = 0 Then
MsgBox "ide环境中"
Else
MsgBox "非ide环境中"
End If

这个方法值得研究，不知道会不会有漏洞