INPUTBOX 延迟输入的方法研究.

stanleypan · 发表于 2006-8-30 09:18

总结一下: 目前方法有两种:

A.用HOOK+SendMessage 的技术,可以得到INPUTBOX 窗体的句柄.

B.chijanzen 先生的方法(由Emily 提供):用SendKeys 的方法, 比较简单易懂.

具体细节和差异可自己体会.

另再上传已用EXCELTOEXE 封装的作品.

nXNKTlec.zip (78.74 KB, 下载次数: 240)

[此贴子已经被作者于2006-8-30 11:29:14编辑过]

northwolves · 发表于 2006-8-30 09:30

仔细研究一下,谢谢stanleypan.

还有,我发现同样的代码在VB6中运行比VBA中容易得多,何故?

lotustower · 发表于 2006-8-30 12:12

優秀的研究作品 !!!

nawong · 发表于 2006-8-31 10:49

WIN NT + OFFICE 2000:

stanleypan · 发表于 2006-8-31 12:22

Application.Hinstance 变为值 0 试一下.

nawong · 发表于 2006-8-31 13:52

QUOTE:

以下是引用stanleypan在2006-8-31 12:22:21的发言：
Application.Hinstance 变为值 0 试一下.

Application.Hinstance 变为值 0 后已OK，謝謝！

northwolves · 发表于 2006-8-31 23:34

stanleypan兄的钩子用得炉火纯青，佩服之至。

lotustower · 发表于 2006-9-1 00:40

QUOTE:

以下是引用stanleypan在2006-8-31 12:22:21的发言：
Application.Hinstance 变为值 0 试一下.

Similar Application.Hinstance error

在狀态欄上顯示的進度條 (不使用OCX,CLASS)

http://club.excelhome.net/viewthread.php?tid=16892

stanleypan · 发表于 2006-9-10 17:22

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_HINSTANCE = (-6)

'用API 函数取得Hinstance.
   Dim Hin As Long
   Hin = GetWindowLong(FindWindow("XLMAIN", vbNullString), GWL_HINSTANCE)
   Debug.Print Application.Hinstance

hhzjxss · 发表于 2007-6-29 21:27

想问一下，这个也是算INPUTBOX 方法吗，不算INPUTBOX 函数吧！

		自动登录	找回密码
密码			免费注册

INPUTBOX 延迟输入的方法研究.

最新热点 /1