如何编写回车代替按钮的操作？

hohofa2006 · 发表于 2006-10-4 21:19:54

如何编写回车代替按钮的操作？即输入信息后直接回车（代替点击”查询“按钮），系统自动执行查询操作。请各位高手指点，万分感谢！！！

Joan2005 · 发表于 2006-10-11 16:31:37

按#2楼的当然可以了。
但把单击那段代码用
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{Enter}"代替时,不会执行回车事件的啊?

hohofa2006 · 发表于 2006-10-9 10:46:09

具体代码如下
Function Query(QueryMsg,errMsg)
Dim WshShell
Call EditSet(middleFrame,"f_QueryMsg",QueryMsg,errMsg) '在输入框中输入信息
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{Enter}"
wait(3)
End Function

上述程序要实现的功能:在输入框中输入信息后,直接回车。

但此回车功能没有作用，请大家指正。

hohofa2006 · 发表于 2006-10-9 10:40:07

我试了一下，不行，是不是还需要些什么？

kissing · 发表于 2006-10-8 17:08:43

人才，这么好的东西。。。

hohofa2006 · 发表于 2006-10-6 17:15:02

原来如此，谢谢各位了。

lyscser · 发表于 2006-10-5 15:06:32

set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"　　　　　
只要这两句就可以了

lyscser · 发表于 2006-10-5 15:05:38

 键盘模拟函数：WScript.Shell的一些应用
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"　　　　　'模拟键盘进行操作
WshShell.AppActivate "Calculator" '启动应用程序

键盘键-函数一览表
Key Argument
BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL or DELETE {DELETE} or {DEL}
DOWN ARROW {DOWN}
END {END}
ENTER {ENTER} or ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS or INSERT {INSERT} or {INS}
LEFT ARROW {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
RIGHT ARROW {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
UP ARROW {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}

yangkinki · 发表于 2006-10-5 10:44:37

录制时用回车，不用鼠标去点，就录制成按回车键了

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 如何编写回车代替按钮的操作？

相关帖子

回车方式这样编写有何问题？

站长推荐 /1