📄 form1.frm
字号:
Begin VB.Shape a
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 840
Shape = 4 'Rounded Rectangle
Top = 1440
Width = 375
End
Begin VB.Shape capslock
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 120
Shape = 4 'Rounded Rectangle
Top = 1440
Width = 735
End
Begin VB.Shape p
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 3960
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape o
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 3600
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape i
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 3240
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape u
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 2880
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape z
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 2520
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape t
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 2160
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape r
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1800
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape e
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1440
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape w
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1080
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape q
BackColor = &H00000000&
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 720
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 375
End
Begin VB.Shape tab1
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 120
Shape = 4 'Rounded Rectangle
Top = 1080
Width = 615
End
Begin VB.Shape back
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 4800
Shape = 4 'Rounded Rectangle
Top = 720
Width = 855
End
Begin VB.Shape plus
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 4440
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape upit
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 4080
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br0
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 3720
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br9
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 3360
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br8
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 3000
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br7
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 2640
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br6
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 2280
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br5
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1920
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br4
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1560
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br3
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1200
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br2
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 840
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape br1
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 480
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape nekaj
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 120
Shape = 4 'Rounded Rectangle
Top = 720
Width = 375
End
Begin VB.Shape pause
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 6600
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape scrolllock
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 6240
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape prntscr
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 5880
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f12
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 5280
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f11
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 4920
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f10
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 4560
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f9
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 4200
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f8
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 3600
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f7
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 3240
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f6
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 2880
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f5
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 2520
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f4
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1920
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f3
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1560
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape f2
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 1200
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
Begin VB.Shape esc
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 375
Left = 120
Shape = 4 'Rounded Rectangle
Top = 240
Width = 375
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then
Label1.Caption = "Q"
q.FillColor = &H8000000D
End If
If KeyCode = vbKeyW Then
Label1.Caption = "W"
w.FillColor = &H8000000D
End If
If KeyCode = vbKeyE Then
Label1.Caption = "E"
e.FillColor = &H8000000D
End If
If KeyCode = vbKeyR Then
Label1.Caption = "R"
r.FillColor = &H8000000D
End If
If KeyCode = vbKeyT Then
Label1.Caption = "T"
t.FillColor = &H8000000D
End If
If KeyCode = vbKeyZ Then
Label1.Caption = "Z"
z.FillColor = &H8000000D
End If
If KeyCode = vbKeyU Then
Label1.Caption = "U"
u.FillColor = &H8000000D
End If
If KeyCode = vbKeyI Then
Label1.Caption = "I"
i.FillColor = &H8000000D
End If
If KeyCode = vbKeyO Then
Label1.Caption = "O"
o.FillColor = &H8000000D
End If
If KeyCode = vbKeyP Then
Label1.Caption = "P"
p.FillColor = &H8000000D
End If
If KeyCode = vbKeyA Then
Label1.Caption = "A"
a.FillColor = &H8000000D
End If
If KeyCode = vbKeyS Then
Label1.Caption = "S"
s.FillColor = &H8000000D
End If
If KeyCode = vbKeyD Then
Label1.Caption = "D"
d.FillColor = &H8000000D
End If
If KeyCode = vbKeyF Then
Label1.Caption = "F"
f.FillColor = &H8000000D
End If
If KeyCode = vbKeyG Then
Label1.Caption = "G"
g.FillColor = &H8000000D
End If
If KeyCode = vbKeyH Then
Label1.Caption = "H"
h.FillColor = &H8000000D
End If
If KeyCode = vbKeyJ Then
Label1.Caption = "J"
j.FillColor = &H8000000D
End If
If KeyCode = vbKeyK Then
Label1.Caption = "K"
k.FillColor = &H8000000D
End If
If KeyCode = vbKeyL Then
Label1.Caption = "L"
l.FillColor = &H8000000D
End If
If KeyCode = vbKeyY Then
Label1.Caption = "Y"
y.FillColor = &H8000000D
End If
If KeyCode = vbKeyX Then
Label1.Caption = "X"
x.FillColor = &H8000000D
End If
If KeyCode = vbKeyC Then
Label1.Caption = "C"
c.FillColor = &H8000000D
End If
If KeyCode = vbKeyV Then
Label1.Caption = "V"
v.FillColor = &H8000000D
End If
If KeyCode = vbKeyB Then
Label1.Caption = "B"
b.FillColor = &H8000000D
End If
If KeyCode = vbKeyN Then
Label1.Caption = "N"
n.FillColor = &H8000000D
End If
If KeyCode = vbKeyM Then
Label1.Caption = "M"
m.FillColor = &H8000000D
End If
If KeyCode = vbKeySpace Then
Label1.Caption = "SPACE"
space.FillColor = &H8000000D
End If
If KeyCode = vbKey1 Then
Label1.Caption = "1"
br1.FillColor = &H8000000D
End If
If KeyCode = vbKey2 Then
Label1.Caption = "2"
br2.FillColor = &H8000000D
End If
If KeyCode = vbKey3 Then
Label1.Caption = "3"
br3.FillColor = &H8000000D
End If
If KeyCode = vbKey4 Then
Label1.Caption = "4"
br4.FillColor = &H8000000D
End If
If KeyCode = vbKey5 Then
Label1.Caption = "5"
br5.FillColor = &H8000000D
End If
If KeyCode = vbKey6 Then
Label1.Caption = "6"
br6.FillColor = &H8000000D
End If
If KeyCode = vbKey7 Then
Label1.Caption = "7"
br7.FillColor = &H8000000D
End If
If KeyCode = vbKey8 Then
Label1.Caption = "8"
br8.FillColor = &H8000000D
End If
If KeyCode = vbKey9 Then
Label1.Caption = "9"
br9.FillColor = &H8000000D
End If
If KeyCode = vbKey0 Then
Label1.Caption = "0"
br0.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad0 Then
Label1.Caption = "0"
num0.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad1 Then
Label1.Caption = "1"
num1.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad2 Then
Label1.Caption = "2"
num2.FillColor = &H8000000D
End If
If KeyCode = vbKeyNumpad3 Then
Label1.Caption = "3"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -