📄 form1.frm
字号:
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 5880
MousePointer = 99 'Custom
TabIndex = 25
Top = 2280
Width = 975
End
Begin VB.Label Label2
BackColor = &H0000FFFF&
Caption = "灯塔"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 4560
MousePointer = 99 'Custom
TabIndex = 24
Top = 1680
Width = 975
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 13
X1 = 2640
X2 = 4800
Y1 = 4560
Y2 = 4080
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 12
X1 = 2880
X2 = 4800
Y1 = 3720
Y2 = 3840
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 11
X1 = 3270
X2 = 4920
Y1 = 2880
Y2 = 3720
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 10
X1 = 5640
X2 = 8040
Y1 = 3960
Y2 = 3240
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 9
X1 = 5400
X2 = 6480
Y1 = 4320
Y2 = 5760
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 8
X1 = 10080
X2 = 5640
Y1 = 6840
Y2 = 4200
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 7
X1 = 5520
X2 = 8760
Y1 = 4320
Y2 = 7080
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 6
X1 = 5280
X2 = 5880
Y1 = 4320
Y2 = 6720
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 5
X1 = 4920
X2 = 2640
Y1 = 4320
Y2 = 7080
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 4
X1 = 9120
X2 = 10140
Y1 = 4785
Y2 = 4155
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 3
X1 = 8250
X2 = 5640
Y1 = 4740
Y2 = 4080
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 1
X1 = 7800
X2 = 5640
Y1 = 2640
Y2 = 3840
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 2
X1 = 4800
X2 = 5040
Y1 = 5880
Y2 = 4320
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 1
X1 = 6240
X2 = 5520
Y1 = 2640
Y2 = 3720
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 0
X1 = 4800
X2 = 3240
Y1 = 4200
Y2 = 5160
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 0
X1 = 5160
X2 = 5160
Y1 = 2040
Y2 = 3720
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
RetVal = Shell("PCMCMDLN.EXE 1", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command2_Click()
RetVal = Shell("PCMCMDLN.EXE 2", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command3_Click()
RetVal = Shell("PCMCMDLN.EXE 3", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command4_Click()
RetVal = Shell("PCMCMDLN.EXE 4", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command5_Click()
RetVal = Shell("PCMCMDLN.EXE 5", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command6_Click()
RetVal = Shell("PCMCMDLN.EXE 6", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command7_Click()
RetVal = Shell("PCMCMDLN.EXE 7", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command8_Click()
RetVal = Shell("PCMCMDLN.EXE 8", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command9_Click()
RetVal = Shell("PCMCMDLN.EXE 9", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command10_Click()
RetVal = Shell("PCMCMDLN.EXE 10", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command11_Click()
RetVal = Shell("PCMCMDLN.EXE 11", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command12_Click()
RetVal = Shell("PCMCMDLN.EXE 12", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command13_Click()
RetVal = Shell("PCMCMDLN.EXE 13", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command14_Click()
RetVal = Shell("PCMCMDLN.EXE 14", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command15_Click()
RetVal = Shell("PCMCMDLN.EXE 15", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command16_Click()
RetVal = Shell("PCMCMDLN.EXE 16", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command17_Click()
RetVal = Shell("PCMCMDLN.EXE 17", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command18_Click()
RetVal = Shell("PCMCMDLN.EXE 18", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command19_Click()
RetVal = Shell("PCMCMDLN.EXE 19", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command20_Click()
RetVal = Shell("PCMCMDLN.EXE 20", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command21_Click()
RetVal = Shell("PCMCMDLN.EXE 21", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command22_Click()
RetVal = Shell("PCMCMDLN.EXE 22", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command23_Click()
RetVal = Shell("PCMCMDLN.EXE 23", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command24_Click()
RetVal = Shell("PCMCMDLN.EXE 24", 0) ' Run PortCommand.
RetVal = Shell("delay.EXE 500", 0) ' delay 500ms.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Form_Click()
For i = 0 To 15 Step 1
List2(i).Visible = False
Next i
List1.Visible = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 15 Step 1
List2(i).Visible = False
Next i
List1.Visible = False
'List2(Index).Visible = True
End Sub
Private Sub Label1_Click()
For i = 0 To 15 Step 1
List2(i).Visible = False
Next i
List1.Visible = True
End Sub
Private Sub Label2_Click(Index As Integer)
For i = 0 To 15 Step 1
List2(i).Visible = False
Next i
List1.Visible = False
List2(Index).Visible = True
End Sub
Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 15 Step 1
List2(i).Visible = False
Next i
List1.Visible = False
List2(Index).Visible = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -