vb sendkeys
请问,用sendkeys如何实现大写字母录入(不用sendkeys"{A}"我试过sendkeys"{a}"行,但是用sendkeys"{Shift}+{a}"就不行se...
请问,用sendkeys如何实现 大写字母录入(不用sendkeys "{A}"
我试过sendkeys "{a}"行, 但是用sendkeys "{Shift} + {a}" 就不行
sendkeys "{caps lock}" 及 "{num lock}"(中间有无空格)都不行,哪们高手能告诉是为什么么
还有,windows键能用sendkeys 能实现么
谢谢 展开
我试过sendkeys "{a}"行, 但是用sendkeys "{Shift} + {a}" 就不行
sendkeys "{caps lock}" 及 "{num lock}"(中间有无空格)都不行,哪们高手能告诉是为什么么
还有,windows键能用sendkeys 能实现么
谢谢 展开
2个回答
展开全部
大写可以用
sendkeys "+a"
就表示shift+a
SHIFT = +
CTRL = ^
ALT = %
SendKeys "{NUMLOCK}"
SendKeys "{CAPSLOCK}"
好像没有效果。
windows键不能用sendkeys实现,可以用下面的方法
Option Explicit
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event &H5B, 0, 0, 0 ' 按下
keybd_event &H5B, 0, 2, 0 ' 弹起
End Sub
sendkeys "+a"
就表示shift+a
SHIFT = +
CTRL = ^
ALT = %
SendKeys "{NUMLOCK}"
SendKeys "{CAPSLOCK}"
好像没有效果。
windows键不能用sendkeys实现,可以用下面的方法
Option Explicit
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event &H5B, 0, 0, 0 ' 按下
keybd_event &H5B, 0, 2, 0 ' 弹起
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
网易云信
2023-12-06 广告
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询