作者: ui 时间: 2004-8-3 21:21
我找了很久,正是想要的作者: 我要飞 时间: 2004-8-4 18:57
C:\Documents and Settings\dyq\My Documents\Doc1.files\image002.jpg如何是好。作者: 晓月清风 时间: 2005-6-18 23:14
版主,我一点击那个按钮,就提示“运行时错误‘438’,对象不支持该属性或方法”,点击调试,发现以下这句被选取:hHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, Application.Hinstance, GetCurrentThreadId())我用的是Excel 2000版,操作系统是Win98 se请问版主:如何解决这个问题?作者: stanleypan 时间: 2006-12-5 03:49
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_HINSTANCE = (-6)
Public Sub GetAppHinstance()
Dim Hin As Long
Hin = GetWindowLong(FindWindow("XLMAIN", vbNullString), GWL_HINSTANCE)
Debug.Print Application.Hinstance
End Sub