📄 digitcode.ctl
字号:
VERSION 5.00
Begin VB.UserControl UserControl1
ClientHeight = 6510
ClientLeft = 0
ClientTop = 0
ClientWidth = 5670
ScaleHeight = 6510
ScaleWidth = 5670
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 3495
Left = 0
ScaleHeight = 3495
ScaleWidth = 2835
TabIndex = 0
Top = -30
Width = 2835
Begin VB.Shape Shape1
BorderColor = &H00C0C0C0&
BorderStyle = 0 'Transparent
FillColor = &H00C0C0C0&
FillStyle = 0 'Solid
Height = 105
Left = 780
Top = 960
Width = 105
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderWidth = 4
Index = 6
X1 = 670
X2 = 670
Y1 = 600
Y2 = 1080
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderWidth = 4
Index = 5
X1 = 120
X2 = 120
Y1 = 600
Y2 = 1080
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderStyle = 6 'Inside Solid
BorderWidth = 4
Index = 4
X1 = 670
X2 = 670
Y1 = 150
Y2 = 598
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderWidth = 4
Index = 3
X1 = 120
X2 = 120
Y1 = 120
Y2 = 600
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderWidth = 4
Index = 2
X1 = 120
X2 = 660
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderWidth = 4
Index = 1
X1 = 150
X2 = 660
Y1 = 600
Y2 = 600
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderWidth = 4
Index = 0
X1 = 120
X2 = 660
Y1 = 120
Y2 = 120
End
End
End
Attribute VB_Name = "UserControl1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public DispNum As Integer
Public Dot As Byte
Public Function Display()
Dim i As Byte
If Dot = 1 Then
Shape1.FillColor = RGB(255, 0, 0)
Else
Shape1.FillColor = &HE0E0E0
End If
Select Case DispNum
Case 0
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = &HE0E0E0
Case 1
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(0).BorderColor = &HE0E0E0
Line1(1).BorderColor = &HE0E0E0
Line1(2).BorderColor = &HE0E0E0
Line1(3).BorderColor = &HE0E0E0
Line1(5).BorderColor = &HE0E0E0
Case 2
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = &HE0E0E0
Line1(6).BorderColor = &HE0E0E0
Case 3
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = &HE0E0E0
Line1(5).BorderColor = &HE0E0E0
Case 4
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(0).BorderColor = &HE0E0E0
Line1(2).BorderColor = &HE0E0E0
Line1(5).BorderColor = &HE0E0E0
Case 5
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = &HE0E0E0
Line1(5).BorderColor = &HE0E0E0
Case 6
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = &HE0E0E0
Case 7
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = &HE0E0E0
Line1(2).BorderColor = &HE0E0E0
Line1(3).BorderColor = &HE0E0E0
Line1(5).BorderColor = &HE0E0E0
Case 8
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Case 9
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = &HE0E0E0
Case 10 'A'
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = &HE0E0E0
Case 11 'B
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(0).BorderColor = &HE0E0E0
Line1(4).BorderColor = &HE0E0E0
Case 12 'C'
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = &HE0E0E0
Line1(3).BorderColor = &HE0E0E0
Line1(6).BorderColor = &HE0E0E0
Case 13 'D'
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(4).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(0).BorderColor = &HE0E0E0
Line1(3).BorderColor = &HE0E0E0
Case 14 'E'
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = RGB(255, 0, 0)
Line1(6).BorderColor = &HE0E0E0
Line1(4).BorderColor = &HE0E0E0
Case 15 'F'
Line1(0).BorderColor = RGB(255, 0, 0)
Line1(1).BorderColor = RGB(255, 0, 0)
Line1(3).BorderColor = RGB(255, 0, 0)
Line1(5).BorderColor = RGB(255, 0, 0)
Line1(2).BorderColor = &HE0E0E0
Line1(4).BorderColor = &HE0E0E0
Line1(6).BorderColor = &HE0E0E0
Case Else
Line1(0).BorderColor = &HE0E0E0
Line1(1).BorderColor = &HE0E0E0
Line1(2).BorderColor = &HE0E0E0
Line1(3).BorderColor = &HE0E0E0
Line1(4).BorderColor = &HE0E0E0
Line1(5).BorderColor = &HE0E0E0
Line1(6).BorderColor = &HE0E0E0
End Select
End Function
Private Function cBlackDsp() As Boolean
DispNum = &H10
Display
cBlackDsp = True
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -