UC知道vb调用键盘输入
来源：百度知道 编辑：UC知道 时间：2024/09/24 01:22:13
请教高手
如何在formload下用什么代码可以产生如敲打ctrl+alt +↑(或↓)的效果。
也就是相当于程序一启动，就相当于敲打键盘 ctrl+alt +↑(或↓)
我想做的是 ctrl+alt +↑(或↓)
如利用sendkey 怎么做。
我写 的是
SendKeys "(^%Down)"
^% 分别是 alt 和ctrl
因为SendKeys 好像的确无法用，
希望高手可以给一个可行的代码。
谢谢。
可还是不可以。
目的是 同时按下 ctrl+alt + ↓
如何在formload下用什么代码可以产生如敲打ctrl+alt +↑(或↓)的效果。
也就是相当于程序一启动，就相当于敲打键盘 ctrl+alt +↑(或↓)
我想做的是 ctrl+alt +↑(或↓)
如利用sendkey 怎么做。
我写 的是
SendKeys "(^%Down)"
^% 分别是 alt 和ctrl
因为SendKeys 好像的确无法用，
希望高手可以给一个可行的代码。
谢谢。
可还是不可以。
目的是 同时按下 ctrl+alt + ↓
SendKeys "^% + {DOWN}"
这样试试
我不知道你用ctrl+alt + ↓干什么 无法测试
但这个代码编译过了
这样
建立一个timer
enable设成true
timer_timer()里面写
SendKeys "^% + {DOWN}"
在执行form_load时，焦点是在form上的，相当于你在form上按ctrl+alt + ↓所以不好用，写在timer里面，执行的时候把焦点从你的窗口移开，
注意timer的间隔属性不要太小 建议用500
查一下键盘映射表，再调用一下相应的API函数
'在这个程序中,不用form_load的过程,而用form_Resize
'是因为在执行完form_load的过程后所有函数都会初始化一次,用了keydown等于没用
'而在窗体加载完时,会触发Resize事件
'所以就用Resize
'代码:
Dim bload As Boolean
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If (KeyCode = 38 Or KeyCode = 40) And Shift = 6 Then
&n