看到很多网友的提问,其中部分用SendKeys函数解决问题会很方便。可能是帮助文件中的这段话让很多人望而怯步吧:“普通用户可以忽略本函数”。呵呵,其实没有这么复杂,掌握它后会感到非常方便且便于理解。
Sendkeys:将一个或多个按键消息发送到活动窗口,就如同在键盘上进行输入一样。
语法:
SendKeys (string)
string 指定要发送的按键消息。
SendKeys函数常与易表的内部命令结合使用,下面我就结合实例来讲解一下SendKeys的具体用法。
实例:“重命名表名”
实现过程:大家知道易表重命名表名的内部函数是DO(53),要做到自动重命名就要结合SendKeys函数了。
1、设置2个字符型变量:
①%a%:ListGrids() 目的:取得现有表名
②%b% 目的:定义新表名
2、设计录入窗口,插入变量%a%和%b%和自定义按钮,自定义按钮公式为:
if(Instr("|"+[%b%]+"|","|"+ListGrids() + "|")<0,OpenGrid([%a%]) And SendKeys([%b%]+"{tab 1}~") And Do(53) And OpenGrid(1),MsgBox([%b%]+"表已经存在,请改正!",0))
[glow=255,red,2]要点:[/glow]
1、SendKeys发送键盘命令必须在DO命令之前。
2、要弄清SendKeys具体发送步骤:
①首先选取原表名,从列表项目%a%取得,命令是SendKeys([%b%]);现表名手工输入。
②关键一步,取得tab键和回车键次数。大家可以先实验一下,点菜单“表”-“重命名”,需要按一次tab键、一次回车键才行,命令是:SendKeys("{tab 1}~")。
这样,完成了自动重命名表名。
其他的与此大同小异,大家可以动手练习一下,希望本教程能给初学者带来帮助。
下面是实例文件:
egd文件下载