vb调用键盘输入

2025年03月13日 03:29

有5个网友回答

网友（1）：

应该是：

sendkeys"(^%{DOWN})"

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

网友（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

网友（3）：

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

网友（4）：

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

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

网友（5）：

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

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