键盘动作：如何在点击行的时候按住CTRL键不放以便多选

sky-vid

'发送键盘动作 按下Ctrl 键  准备多选
Extern.Declare micVoid, "keybd_event", "user32.dll", "keybd_event",  micByte,micByte,micDWord,micULong
Extern.keybd_event VK_CONTROL,0,0,0
           
RowCount = Browser("合同管理").Page("合同管理").Frame("ifrmGrid_4").WebTable("1").RowCount
For  i =1 to  RowCount
   flag =  Browser("合同管理").Page("合同管理").Frame("ifrmGrid_4").WebTable("1").GetCellData(i,2)
         If flag <>"*" Then
               Browser("合同管理").Page("合同管理").Frame("ifrmGrid_4").WebTable("1").ChildItem(i,2,"WebElement",0).Click
         End If
Next

Extern.keybd_event VK_CONTROL,0,KEYEVENTF_KEYUP ,0

想在单击行的同时按住CTRL键不放，以便多选行

红色字体是键盘动作Ctrl键按下的代码
可是，上面的效果仍然是一行行的单击，Ctrl键的按下动作没有体现出来
问题出在哪呢？

我看到论坛上也有好多讨论键盘动作的，不过，有很多都没看明白，所以，斑竹就不要说让我再去论坛找找了

[ 本帖最后由 sky-vid 于 2007-4-24 10:10 编辑 ]

sky-vid

不好意思，自己费了九牛二虎之力，终于搞定

把 Extern.keybd_event VK_CONTROL,0,0,0 这句话改为

Extern.keybd_event 162,0,0,0

真奇怪，怎么会识别不了 VK_CONTROL

caigua

键盘常量可能未定义
而且你用的那个162是VK_LCONTROL

sky-vid

感谢caigua

不过有人知道VK_Control的值是多少？
另外，还有KEYEVENTF_KEYUP的值是多少？
Extern.keybd_event 162,0,KEYEVENTF_KEYUP ,0  这句话执行了也没效果
我估计也要把 KEYEVENTF_KEYUP改为为它所代表的值

[ 本帖最后由 sky-vid 于 2007-4-24 16:34 编辑 ]

飞飞

162是VK_LCONTROL
请问哪个知道alt键的值是多少?

hsjzfling

VK_CONTROL 11
VK_MENU 12    (alt)
VK_SHIFT 10