Question

vb调用键盘输入

请教高手

如何在formload下用什么代码可以产生如敲打ctrl+alt +↑(或↓)的效果。

也就是相当于程序一启动，就相当于敲打键盘 ctrl+alt +↑(或↓)

我想做的是 ctrl+alt +↑(或↓)
如利用sendkey 怎么做。

我写 的是

SendKeys "(^%Down)"

^% 分别是 alt 和ctrl

因为SendKeys 好像的确无法用，
希望高手可以给一个可行的代码。
谢谢。

可还是不可以。

目的是 同时按下 ctrl+alt + ↓

Answer 1

应该是：

sendkeys"(^%{DOWN})"

把按键放到圆括号内表示同时按下，功能健要放在大括号内！

Answer 2

'在这个程序中,不用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
                '↑和↓的  KeyCode  分别是  38  和  40  ,shift  =  6  表示  Ctrl  +  Alt
                '要干什么自己写了
        End  If
End  Sub

Private  Sub  Form_Load()
        bload  =  True
End  Sub

Private  Sub  Form_Resize()
        Form_KeyUp  38,  6  '表示要按下  Ctrl  +  Alt  +  ↑
        '或
        'form_keyup  40,6  '表示要按下  Ctrl  +  Alt  +  ↓
        bload  =  False
End  Sub

Answer 3

查一下键盘映射表，再调用一下相应的API函数

Answer 4

SendKeys "^% + {DOWN}"
这样试试
我不知道你用ctrl+alt + ↓干什么 无法测试
但这个代码编译过了

这样
建立一个timer
enable设成true
timer_timer()里面写
SendKeys "^% + {DOWN}"
在执行form_load时，焦点是在form上的，相当于你在form上按ctrl+alt + ↓所以不好用，写在timer里面，执行的时候把焦点从你的窗口移开，
注意timer的间隔属性不要太小 建议用500

Answer 5

x3602900 的代码有病毒,它是一个神经病.
不要理它

您要把屏幕倒过来是吧?
我看用sendkeys做不到