📄 rbdisplay.frm
字号:
VERSION 5.00
Begin VB.Form DisplayWindow
BackColor = &H00FF8080&
Caption = "USB Design By Example: Reader Board"
ClientHeight = 5595
ClientLeft = 60
ClientTop = 345
ClientWidth = 9840
FillColor = &H00FF8080&
FillStyle = 0 'Solid
LinkTopic = "Form1"
ScaleHeight = 5595
ScaleWidth = 9840
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton SelectMode
Caption = " "
Height = 255
Left = 4200
TabIndex = 3
Top = 5160
Width = 735
End
Begin VB.CommandButton UpdateIO
Caption = "Update Display"
BeginProperty Font
Name = "Arial Rounded MT Bold"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 5760
TabIndex = 2
Top = 4080
Width = 2895
End
Begin VB.TextBox EntryText
BeginProperty Font
Name = "Arial Rounded MT Bold"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 960
TabIndex = 1
Text = "Enter text"
Top = 4080
Width = 2895
End
Begin VB.Label Dot
BackStyle = 0 'Transparent
Caption = "Dot Mode"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 5520
TabIndex = 5
Top = 5040
Width = 1695
End
Begin VB.Label Text
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Text Mode"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 2280
TabIndex = 4
Top = 5040
Width = 1695
End
Begin VB.Shape Shape1
FillStyle = 0 'Solid
Height = 255
Left = 4200
Top = 5160
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Reader Board"
BeginProperty Font
Name = "Arial Rounded MT Bold"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 1920
TabIndex = 0
Top = 360
Width = 6015
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 39
Left = 9480
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 39
Left = 9480
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 39
Left = 9480
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 38
Left = 9240
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 38
Left = 9240
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 38
Left = 9240
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 37
Left = 9000
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 37
Left = 9000
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 37
Left = 9000
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 36
Left = 8760
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 36
Left = 8760
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 36
Left = 8760
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 35
Left = 8520
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 35
Left = 8520
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 35
Left = 8520
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 34
Left = 8280
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 34
Left = 8280
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 34
Left = 8280
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 33
Left = 8040
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 33
Left = 8040
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 33
Left = 8040
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 32
Left = 7800
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 32
Left = 7800
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 32
Left = 7800
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 31
Left = 7560
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 31
Left = 7560
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 31
Left = 7560
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 30
Left = 7320
Shape = 3 'Circle
Top = 2880
Width = 255
End
Begin VB.Shape LED5
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 30
Left = 7320
Shape = 3 'Circle
Top = 2640
Width = 255
End
Begin VB.Shape LED4
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 30
Left = 7320
Shape = 3 'Circle
Top = 2400
Width = 255
End
Begin VB.Shape LED6
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 255
Index = 29
Left = 7080
Shape = 3 'Circle
Top = 2880
Width = 255
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -