form1.frm

解压缩源码,VB语言的,比较好用,我试过

num3.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad4 Then
Label1.Caption = "4"
num4.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad5 Then
Label1.Caption = "5"
num5.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad6 Then
Label1.Caption = "6"
num6.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad7 Then
Label1.Caption = "7"
num7.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad8 Then
Label1.Caption = "8"
num8.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad9 Then
Label1.Caption = "9"
num9.FillColor = &H8000000D
End If
If KeyCode = vbKeyLeft Then
Label1.Caption = "LEFT"
levo.FillColor = &H8000000D
End If
If KeyCode = vbKeyRight Then
Label1.Caption = "RIGHT"
desno.FillColor = &H8000000D
End If
If KeyCode = vbKeyUp Then
Label1.Caption = "UP"
gore.FillColor = &H8000000D
End If
If KeyCode = vbKeyDown Then
Label1.Caption = "DOWN"
dole.FillColor = &H8000000D
End If
If KeyCode = vbKeyAdd Then
Label1.Caption = "ADD"
plus2.FillColor = &H8000000D
End If
If KeyCode = vbKeyBack Then
Label1.Caption = "BACK"
back.FillColor = &H8000000D
End If
If KeyCode = vbKeyCapital Then
Label1.Caption = "CAPITAL"
capslock.FillColor = &H8000000D
End If
If KeyCode = vbKeyControl Then
Label1.Caption = "CONTROL"
ctrl.FillColor = &H8000000D
ctrll.FillColor = &H8000000D
End If

If KeyCode = vbKeyDelete Then
Label1.Caption = "DELETE"
delete.FillColor = &H8000000D
End If
If KeyCode = vbKeyDivide Then
Label1.Caption = "DIVIDE"
slash.FillColor = &H8000000D
End If
If KeyCode = vbKeyEnd Then
Label1.Caption = "END"
end1.FillColor = &H8000000D
End If
If KeyCode = vbKeyEscape Then
Label1.Caption = "ESCAPE"
esc.FillColor = &H8000000D
End If

If KeyCode = vbKeyF1 Then
Label1.Caption = "F1"
f1.FillColor = &H8000000D
End If
If KeyCode = vbKeyF2 Then
Label1.Caption = "F2"
f2.FillColor = &H8000000D
End If
If KeyCode = vbKeyF3 Then
Label1.Caption = "F3"
f3.FillColor = &H8000000D
End If
If KeyCode = vbKeyF4 Then
Label1.Caption = "F4"
f4.FillColor = &H8000000D
End If
If KeyCode = vbKeyF5 Then
Label1.Caption = "F5"
f5.FillColor = &H8000000D
End If
If KeyCode = vbKeyF6 Then
Label1.Caption = "F6"
f6.FillColor = &H8000000D
End If
If KeyCode = vbKeyF7 Then
Label1.Caption = "F7"
f7.FillColor = &H8000000D
End If
If KeyCode = vbKeyF8 Then
Label1.Caption = "F8"
f8.FillColor = &H8000000D
End If
If KeyCode = vbKeyF9 Then
Label1.Caption = "F9"
f9.FillColor = &H8000000D
End If
If KeyCode = vbKeyF10 Then
Label1.Caption = "F10"
f10.FillColor = &H8000000D
End If
If KeyCode = vbKeyF11 Then
Label1.Caption = "F11"
f11.FillColor = &H8000000D
End If
If KeyCode = vbKeyF12 Then
Label1.Caption = "F12"
f12.FillColor = &H8000000D
End If

If KeyCode = vbKeyHome Then
Label1.Caption = "HOME"
home.FillColor = &H8000000D
End If
If KeyCode = vbKeyInsert Then
Label1.Caption = "INSERT"
insert.FillColor = &H8000000D
End If

If KeyCode = vbKeyMenu Then
Label1.Caption = "MENU"
alt.FillColor = &H8000000D
altgr.FillColor = &H8000000D
End If
If KeyCode = vbKeyMultiply Then
Label1.Caption = "MULTIPLY"
zvezda.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumlock Then
Label1.Caption = "NUMLOCK"
numlock.FillColor = &H8000000D
End If
If KeyCode = vbKeyPageDown Then
Label1.Caption = "PAGE DOWN"
pgdwn.FillColor = &H8000000D
End If
If KeyCode = vbKeyPageUp Then
Label1.Caption = "PAGE UP"
pgup.FillColor = &H8000000D
End If
If KeyCode = vbKeyPause Then
Label1.Caption = "PAUSE"
pause.FillColor = &H8000000D
End If

If KeyCode = vbKeyReturn Then
Label1.Caption = "RETURN"
enter.FillColor = &H8000000D
enter1.FillColor = &H8000000D
End If
If KeyCode = vbKeyScrollLock Then
Label1.Caption = "SCROLL LOCK"
scrolllock.FillColor = &H8000000D
End If


If KeyCode = vbKeyShift Then
Label1.Caption = "SHIFT"
shiftl.FillColor = &H8000000D
shiftr.FillColor = &H8000000D
End If

If KeyCode = vbKeySpace Then
Label1.Caption = "SPACE"
space.FillColor = &H8000000D
End If
If KeyCode = vbKeySubtract Then
Label1.Caption = "SUBTRACT"
minus.FillColor = &H8000000D
End If
If KeyCode = vbKeyTab Then
Label1.Caption = "TAB"
tab1.FillColor = &H8000000D
End If

End Sub


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then
Label1.Caption = ""
q.FillColor = &H8000000F
End If
If KeyCode = vbKeyW Then
Label1.Caption = ""
w.FillColor = &H8000000F
End If
If KeyCode = vbKeyE Then
Label1.Caption = ""
e.FillColor = &H8000000F
End If
If KeyCode = vbKeyR Then
Label1.Caption = ""
r.FillColor = &H8000000F
End If
If KeyCode = vbKeyT Then
Label1.Caption = ""
t.FillColor = &H8000000F
End If
If KeyCode = vbKeyZ Then
Label1.Caption = ""
z.FillColor = &H8000000F
End If
If KeyCode = vbKeyU Then
Label1.Caption = ""
u.FillColor = &H8000000F
End If
If KeyCode = vbKeyI Then
Label1.Caption = ""
i.FillColor = &H8000000F
End If
If KeyCode = vbKeyO Then
Label1.Caption = ""
o.FillColor = &H8000000F
End If
If KeyCode = vbKeyP Then
Label1.Caption = ""
p.FillColor = &H8000000F
End If
If KeyCode = vbKeyA Then
Label1.Caption = ""
a.FillColor = &H8000000F
End If
If KeyCode = vbKeyS Then
Label1.Caption = ""
s.FillColor = &H8000000F
End If
If KeyCode = vbKeyD Then
Label1.Caption = ""
d.FillColor = &H8000000F
End If
If KeyCode = vbKeyF Then
Label1.Caption = ""
f.FillColor = &H8000000F
End If
If KeyCode = vbKeyG Then
Label1.Caption = ""
g.FillColor = &H8000000F
End If
If KeyCode = vbKeyH Then
Label1.Caption = ""
h.FillColor = &H8000000F
End If
If KeyCode = vbKeyJ Then
Label1.Caption = ""
j.FillColor = &H8000000F
End If
If KeyCode = vbKeyK Then
Label1.Caption = ""
k.FillColor = &H8000000F
End If
If KeyCode = vbKeyL Then
Label1.Caption = ""
l.FillColor = &H8000000F
End If
If KeyCode = vbKeyY Then
Label1.Caption = ""
y.FillColor = &H8000000F
End If
If KeyCode = vbKeyX Then
Label1.Caption = ""
x.FillColor = &H8000000F
End If
If KeyCode = vbKeyC Then
Label1.Caption = ""
c.FillColor = &H8000000F
End If
If KeyCode = vbKeyV Then
Label1.Caption = ""
v.FillColor = &H8000000F
End If
If KeyCode = vbKeyB Then
Label1.Caption = ""
b.FillColor = &H8000000F
End If
If KeyCode = vbKeyN Then
Label1.Caption = ""
n.FillColor = &H8000000F
End If
If KeyCode = vbKeyM Then
Label1.Caption = ""
m.FillColor = &H8000000F
End If
If KeyCode = vbKeySpace Then
Label1.Caption = ""
space.FillColor = &H8000000F
End If
If KeyCode = vbKey1 Then
Label1.Caption = ""
br1.FillColor = &H8000000F
End If
If KeyCode = vbKey2 Then
Label1.Caption = ""
br2.FillColor = &H8000000F
End If
If KeyCode = vbKey3 Then
Label1.Caption = ""
br3.FillColor = &H8000000F
End If
If KeyCode = vbKey4 Then
Label1.Caption = ""
br4.FillColor = &H8000000F
End If
If KeyCode = vbKey5 Then
Label1.Caption = ""
br5.FillColor = &H8000000F
End If
If KeyCode = vbKey6 Then
Label1.Caption = ""
br6.FillColor = &H8000000F
End If
If KeyCode = vbKey7 Then
Label1.Caption = ""
br7.FillColor = &H8000000F
End If
If KeyCode = vbKey8 Then
Label1.Caption = ""
br8.FillColor = &H8000000F
End If
If KeyCode = vbKey9 Then
Label1.Caption = ""
br9.FillColor = &H8000000F
End If
If KeyCode = vbKey0 Then
Label1.Caption = ""
br0.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad0 Then
Label1.Caption = ""
num0.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad1 Then
Label1.Caption = ""
num1.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad2 Then
Label1.Caption = ""
num2.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad3 Then
Label1.Caption = ""
num3.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad4 Then
Label1.Caption = ""
num4.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad5 Then
Label1.Caption = ""
num5.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad6 Then
Label1.Caption = ""
num6.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad7 Then
Label1.Caption = ""
num7.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad8 Then
Label1.Caption = ""
num8.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumpad9 Then
Label1.Caption = ""
num9.FillColor = &H8000000F
End If
If KeyCode = vbKeyLeft Then
Label1.Caption = ""
levo.FillColor = &H8000000F
End If
If KeyCode = vbKeyRight Then
Label1.Caption = ""
desno.FillColor = &H8000000F
End If
If KeyCode = vbKeyUp Then
Label1.Caption = ""
gore.FillColor = &H8000000F
End If
If KeyCode = vbKeyDown Then
Label1.Caption = ""
dole.FillColor = &H8000000F
End If
If KeyCode = vbKeyAdd Then
Label1.Caption = ""
plus2.FillColor = &H8000000F
End If
If KeyCode = vbKeyBack Then
Label1.Caption = ""
back.FillColor = &H8000000F
End If
If KeyCode = vbKeyCapital Then
Label1.Caption = ""
capslock.FillColor = &H8000000F
End If
If KeyCode = vbKeyControl Then
Label1.Caption = ""
ctrl.FillColor = &H8000000F
ctrll.FillColor = &H8000000F
End If

If KeyCode = vbKeyDelete Then
Label1.Caption = ""
delete.FillColor = &H8000000F
End If
If KeyCode = vbKeyDivide Then
Label1.Caption = ""
slash.FillColor = &H8000000F
End If
If KeyCode = vbKeyEnd Then
Label1.Caption = ""
end1.FillColor = &H8000000F
End If
If KeyCode = vbKeyEscape Then
Label1.Caption = ""
esc.FillColor = &H8000000F
End If

If KeyCode = vbKeyF1 Then
Label1.Caption = ""
f1.FillColor = &H8000000F
End If
If KeyCode = vbKeyF2 Then
Label1.Caption = ""
f2.FillColor = &H8000000F
End If
If KeyCode = vbKeyF3 Then
Label1.Caption = ""
f3.FillColor = &H8000000F
End If
If KeyCode = vbKeyF4 Then
Label1.Caption = ""
f4.FillColor = &H8000000F
End If
If KeyCode = vbKeyF5 Then
Label1.Caption = ""
f5.FillColor = &H8000000F
End If
If KeyCode = vbKeyF6 Then
Label1.Caption = ""
f6.FillColor = &H8000000F
End If
If KeyCode = vbKeyF7 Then
Label1.Caption = ""
f7.FillColor = &H8000000F
End If
If KeyCode = vbKeyF8 Then
Label1.Caption = ""
f8.FillColor = &H8000000F
End If
If KeyCode = vbKeyF9 Then
Label1.Caption = ""
f9.FillColor = &H8000000F
End If
If KeyCode = vbKeyF10 Then
Label1.Caption = ""
f10.FillColor = &H8000000F
End If
If KeyCode = vbKeyF11 Then
Label1.Caption = ""
f11.FillColor = &H8000000F
End If
If KeyCode = vbKeyF12 Then
Label1.Caption = ""
f12.FillColor = &H8000000F
End If

If KeyCode = vbKeyHome Then
Label1.Caption = ""
home.FillColor = &H8000000F
End If
If KeyCode = vbKeyInsert Then
Label1.Caption = ""
insert.FillColor = &H8000000F
End If

If KeyCode = vbKeyMenu Then
Label1.Caption = ""
alt.FillColor = &H8000000F
altgr.FillColor = &H8000000F
End If
If KeyCode = vbKeyMultiply Then
Label1.Caption = ""
zvezda.FillColor = &H8000000F
End If
If KeyCode = vbKeyNumlock Then
Label1.Caption = ""
numlock.FillColor = &H8000000F
End If
If KeyCode = vbKeyPageDown Then
Label1.Caption = ""
pgdwn.FillColor = &H8000000F
End If
If KeyCode = vbKeyPageUp Then
Label1.Caption = ""
pgup.FillColor = &H8000000F
End If
If KeyCode = vbKeyPause Then
Label1.Caption = ""
pause.FillColor = &H8000000F
End If

If KeyCode = vbKeyReturn Then
Label1.Caption = ""
enter.FillColor = &H8000000F
enter1.FillColor = &H8000000F
End If
If KeyCode = vbKeyScrollLock Then
Label1.Caption = ""
scrolllock.FillColor = &H8000000F
End If
If KeyCode = vbKeyTab Then
Label1.Caption = ""
tab1.FillColor = &H8000000F
End If

If KeyCode = vbKeyShift Then
Label1.Caption = ""
shiftl.FillColor = &H8000000F
shiftr.FillColor = &H8000000F
End If

If KeyCode = vbKeySpace Then
Label1.Caption = ""
space.FillColor = &H8000000F
End If
If KeyCode = vbKeySubtract Then
Label1.Caption = ""
minus.FillColor = &H8000000F
End If

End Sub