sendkey方法的使用

郁金香 · 发表于 2007-9-4 15:18:17

我用sendkey方法模拟键盘，想模拟输入"shift+tab"键，代码是这样写的obj.sendkeys "+{TAB}",执行时却不可能。请教各位，我该如何实现此功能。

winfood · 发表于 2007-9-4 15:41:17

原帖由 郁金香 于 2007-9-4 15:18 发表
我用sendkey方法模拟键盘，想模拟输入"shift+tab"键，代码是这样写的obj.sendkeys "+{TAB}",执行时却不可能。请教各位，我该如何实现此功能。

单单这行语句看不出错误来，把完整的代码块贴出来。可能是上下文中的语句用法有错。

rivermen · 发表于 2007-9-4 15:46:31

确实对这样的组合键很难奏效
我也想看看有没有高手知道

郁金香 · 发表于 2007-9-4 16:02:35

其他代码是没有问题的

loho1968 · 发表于 2007-9-4 16:31:02

可以使用 object.type方法
object.type micShiftDown+micTab+micShiftUp

郁金香 · 发表于 2007-9-4 16:59:46

我现在不能对object对象操作，所以采用了模拟键盘的方法写文字

loho1968 · 发表于 2007-9-4 17:04:43

已经都可以 obj.sendkeys了，怎么不能obj.type

郁金香 · 发表于 2007-9-4 17:06:45

我是先获得就近对象的焦点，然后按tab键，再向该对象中输入文字

yuandjing · 发表于 2007-9-4 21:45:17

原帖由 郁金香 于 2007-9-4 15:18 发表
我用sendkey方法模拟键盘，想模拟输入"shift+tab"键，代码是这样写的obj.sendkeys "+{TAB}",执行时却不可能。请教各位，我该如何实现此功能。

sendkeys方法我也常用，我觉得你这样应该行啊
Dim WshShell
set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys "+{TAB}"
Set WshShell = nothing

你不妨再试一下
("+{TAB}") "(+{TAB})" ("{TAB}+") "({TAB}+)"

郁金香 · 发表于 2007-9-5 09:15:36

WshShell.SendKeys "(+{TAB})"

rivermen · 发表于 2007-9-5 10:08:47

我回头去试试看，又长见识了。
另外还发现：
WshShell.SendKeys "(^s)"
这样的组合键字母区分大小写的

shangguoli · 发表于 2008-5-21 10:32:13

谢谢，用了你的方法很管用。

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

[原创] sendkey方法的使用

相关帖子

回复 #5 loho1968 的帖子

回复 #7 loho1968 的帖子

回复 9# 的帖子

站长推荐 /1