判断是否运行在VB IDE编辑模式下
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