Question

VB键盘事件

用键盘capslock触发VB事件，
要是有代码就最好了，谢谢

Answer 1

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)'KeyDown为键盘按下事件
If KeyCode = vbKeyCapital Then'按键为vbKeyCapital（Caps Lock）时
......'过程
End If
End Sub
百分之百正确！
vbKeyCapital也可以是144，他是Caps Lock键的代码，其实vbKeyCapital是一个VB定义的一个常数，它的值就是144。

Answer 2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)'KeyDown为键盘按下事件
If KeyCode = 144 Then'144为Caps Lock的键控代码
......'过程
End If
End Sub

Answer 3

用SendKeys
啊
------------------------------------------------
SendKeys
语句
或
按键
消息
发送窗口
同
键盘
进行输入
语
SendKeys
string[,
wait]
SendKeys
语句语具几命名
参数
:
部
描述
string
必需字符串
表达式
指定要发送按键消息
Wait
选指定等待式
BooleandefBooleanDataType@veendf98.chm
值
False(
缺省值
)则
控件
按键发送立刻返程
True则按键消息必须控件返程前加处理
说明
每按键由或
字符
表示指定单键盘字符必须按字符本身键例表示字母
A用
"A"
作
string表示字符必须字符面直接加另字符例要表示
A、B
及
C用
"ABC"
作
string
SendKeys
说加号
(+)、插入符
(^)、百比符号
(%)、划线
(~)
及圆括号
(
)
都具特殊意义指定述任何字符要放括号
({})
例要指定号用
{+}
表示括号
([
])
SendKeys
说并具特殊意义必须放括号其
应用程序
括号特殊意义现态数据交换
(DDE)
候能具重要意义指定括号字符请使用
{{}
及
{}}
按按键指定些显示字符例
ENTER
或
TAB
及些表示作非字符按键请使用列
代码
:
按键
代码
BACKSPACE
{BACKSPACE},
{BS},
或
{BKSP}
BREAK
{BREAK}
CAPS
LOCK
{CAPSLOCK}
DEL
or
DELETE
{DELETE}
或
{DEL}
DOWN
ARROW
{DOWN}
END
{END}
ENTER
{ENTER}或
~
ESC
{ESC}
HELP
{HELP}
HOME
{HOME}
INS
or
INSERT
{INSERT}
或
{INS}
LEFT
ARROW
{LEFT}
NUM
LOCK
{NUMLOCK}
PAGE
DOWN
{PGDN}
PAGE
UP
{PGUP}
PRINT
SCREEN
{PRTSC}
RIGHT
ARROW
{RIGHT}
SCROLL
LOCK
{SCROLLLOCK}
TAB
{TAB}
UP
ARROW
{UP}
F1
{F1}
F2
{F2}
F3
{F3}
F4
{F4}
F5
{F5}
F6
{F6}
F7
{F7}
F8
{F8}
F9
{F9}
F10
{F10}
F11
{F11}
F12
{F12}
F13
{F13}
F14
{F14}
F15
{F15}
F16
{F16}
指定些与
SHIFT、CTRL
及
ALT
等按键结合
组合键
些按键码前面放置或代码些代码列举:
按键
代码
SHIFT
+
CTRL
^
ALT
%
说明按其按键应同按
SHIFT、CTRL、及
ALT
任意组合键请些按键码放括号例说明按
E
与
C
候同按
SHIFT
键请使用
"+(EC)"说明按
E
候同按
SHIFT
键接着按
C
按
SHIFT则使用
"+EC"
指定重复键使用
{key
number}
形式必须
key
与
number
间放置
空格
例{LEFT
42}
意指
42
按
LEFT
ARROW
键;{h
10}
则指
10
按
H
键
注意
能用
SendKeys
按键消息发送应用程序应用程序并没设计
Microsoft
Windows
运行Sendkeys
PRINT
SCREEN
按键
{PRTSC}
发送任何应用程序