VB SENKEYS

原文出处http://vbzlk.5d6d.com/thread-119-1-1.html

描述:将一个或多个按键消息发送到活动窗口,就如同在键盘上进行输入一样。
一、语法:
SendKeys string[,wait]
SendKeys语句的语法包含下面部分:

部分

描述

string 必需的。字符串表达式,指定要发送的按键消息
wait 可选的。指定等待方式的值。如果为False(缺省值),则控件在按键发送出去之后立刻返回到过程。如果为True,则按键消息必须在控件返回到过程之前加以处理。

二、说明:
  可以发送单个按键消息,也可以同时发送多个按键消息。例如,为了表示字母A,可以用"A"作为string;要表示A、B及C,可用"ABC"作为string。SendKeys也可以发送汉字,只需将汉字作为string即可。
  对SendKeys来说,加号(+)、插入符(^)、百分比符号(%)、上划线(~)、圆括号()、方括号([])及大括号({}),都要将它放在大括号({})当中。例如,要指定正号,可用{+}表示;指定大括号,请使用{{}及{}}。
  对于不能显示的字符,例如TAB键,请使用下列代码

按键 代码 按键 代码
BACKSPACE {BACKSPACE},{BS},或{BKSP} BREAK {BREAK}
CAPSLOCK {CAPSLOCK} DELorDELETE {DELETE}或{DEL}
DOWNARROW {DOWN} END {END}
ENTERRETURN {ENTER}或~ ESC {ESC}
HELP {HELP} HOME {HOME}
INSorINSERT {INSERT}或{INS} LEFTARROW {LEFT}
NUmlock {NUmlock} PAGEDOWN {PGDN}
PAGEUP {PGUP} PRINTSCREEN {PRTSC}
RIGHTARROW {RIGHT} SCROLLLOCK {SCROLLLOCK}
TAB {TAB} UP {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}
F13 {F13} F14 {F14}
F15 {F15} F16 {F16}

  为了发送与SHIFT、CTRL及ALT等按键结合的组合键,可在按键码的前面放置SHIFT、CTRL及ALT等按键,这些代码列举如下:

按键 代码
SHIFT +
CTRL ^
ALT %

  为了说明在按下SHIFT、CTRL、及ALT时连续按下其它按键,请把这些按键的码放在括号当中。例如,当发送!@#时,应使用"+ (123)"。如果只在按下1的时候同时按下SHIFT键,而时23而不按SHIFT,则使用"+123"。   为了表示重复键,使用{key number}的形式。注意在key与number之间放置一个空格。例如,{a 10}意指10次按下a键。 三、应用举例:   本例使用SendKeys语句发送按键消息Microsoft Word。首先用你电脑中Microsoft Word的路径,替换下面程序中的路径。然后建立一个标准工程,在窗体上添加一个命令按钮,将下面的程序粘贴过去。在运行程序前,关闭所有的Word文档。 Private Sub Command1_Click()  Dim MyAppID  MyAppID = Shell("C:/Program Files/Microsoft Office/Office/WINWORD.EXE",1)  '运行Microsoft Word。  AppActivate MyAppID '激活Microsoft Word。  SendKeys "SendKeys string{[},wait{}}",True '发送按键消息给Word  SendKeys "{ENTER}",True '发送回车键给Word  SendKeys "SendKeys语句的语法具有以下几个命名参数:",True  SendKeys "{ENTER}",True  SendKeys "string 必需的。字符串表达式,指定要发送的按键消息。",True  SendKeys "wait 可选的。指定等待方式的值。",True  SendKeys "{Home}+{End}",True '选择整行  SendKeys "^c",True '发送复制键组合给Word  SendKeys "{ENTER}",True  SendKeys "^v",True '发送粘贴键组合给Word  SendKeys "+(123)",True '发送!@#给Word  SendKeys "{ENTER}",True  SendKeys "+123",True '发送!23给Word  SendKeys "{ENTER}",True  SendKeys "{a 10}",True '连续发送10个a给Word End Sub 在Word文档里显示 SendKeys string[,wait] SendKeys语句的语法具有以下几个命名参数: String 必需的。字符串表达式,指定要发送的按键消息。 Wait 可选的。指定等待方式的值。 Wait 可选的。指定等待方式的值。 !@# !23 aaaaaaaaaa

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...