vb调用键盘输入
请教高手如何在formload下用什么代码可以产生如敲打ctrl+alt+↑(或↓)的效果。也就是相当于程序一启动,就相当于敲打键盘ctrl+alt+↑(或↓)我想做的是...
请教高手
如何在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 + ↓ 展开
展开全部
'在这个程序中,不用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
'是因为在执行完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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
查一下键盘映射表,再调用一下相应的API函数
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
SendKeys "^% + {DOWN}"
这样试试
我不知道你用ctrl+alt + ↓干什么 无法测试
但这个代码编译过了
这样
建立一个timer
enable设成true
timer_timer()里面写
SendKeys "^% + {DOWN}"
在执行form_load时,焦点是在form上的,相当于你在form上按ctrl+alt + ↓所以不好用,写在timer里面,执行的时候把焦点从你的窗口移开,
注意timer的间隔属性不要太小 建议用500
这样试试
我不知道你用ctrl+alt + ↓干什么 无法测试
但这个代码编译过了
这样
建立一个timer
enable设成true
timer_timer()里面写
SendKeys "^% + {DOWN}"
在执行form_load时,焦点是在form上的,相当于你在form上按ctrl+alt + ↓所以不好用,写在timer里面,执行的时候把焦点从你的窗口移开,
注意timer的间隔属性不要太小 建议用500
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
x3602900 的代码有病毒,它是一个神经病.
不要理它
您要把屏幕倒过来是吧?
我看用sendkeys做不到
不要理它
您要把屏幕倒过来是吧?
我看用sendkeys做不到
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询