📄 pmux.frm
字号:
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 5880
MouseIcon = "pmux.frx":834F
MousePointer = 99 'Custom
TabIndex = 25
Top = 2280
Width = 975
End
Begin VB.Label Label2
BackColor = &H0000FFFF&
Caption = "DengTa"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 4560
MouseIcon = "pmux.frx":8791
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 = 3840
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 = 5640
X2 = 11160
Y1 = 3960
Y2 = 4200
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 5
Index = 3
X1 = 9840
X2 = 5640
Y1 = 5160
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.Shape Shape1
BorderColor = &H00FF0000&
BorderWidth = 5
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 735
Left = 4680
Shape = 4 'Rounded Rectangle
Top = 3600
Width = 1215
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_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
RetVal = Shell("PCMCMDLN.EXE 1", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Picture1_Click()
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 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 Text1_Change()
Text2.Text = LCase(Text1.Text) ' Display text as lowercase.
Text3.Text = UCase(Text1.Text) ' Display text as uppercase.
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Command10_Click()
RetVal = Shell("PCMCMDLN.EXE 10", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command11_Click()
RetVal = Shell("PCMCMDLN.EXE 11", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command12_Click()
RetVal = Shell("PCMCMDLN.EXE 12", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command13_Click()
RetVal = Shell("PCMCMDLN.EXE 13", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command14_Click()
RetVal = Shell("PCMCMDLN.EXE 14", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command15_Click()
RetVal = Shell("PCMCMDLN.EXE 15", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command16_Click()
RetVal = Shell("PCMCMDLN.EXE 16", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command17_Click()
RetVal = Shell("PCMCMDLN.EXE 17", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command18_Click()
RetVal = Shell("PCMCMDLN.EXE 18", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command19_Click()
RetVal = Shell("PCMCMDLN.EXE 19", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command2_Click()
RetVal = Shell("COMMAND.COM", 2) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command20_Click()
RetVal = Shell("PCMCMDLN.EXE 20", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command21_Click()
RetVal = Shell("PCMCMDLN.EXE 21", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command22_Click()
RetVal = Shell("PCMCMDLN.EXE 22", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command23_Click()
RetVal = Shell("PCMCMDLN.EXE 23", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command24_Click()
RetVal = Shell("PCMCMDLN.EXE 0", 0) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command3_Click()
RetVal = Shell("COMMAND.COM", 3) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command4_Click()
RetVal = Shell("COMMAND.COM", 3) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command5_Click()
RetVal = Shell("COMMAND.COM", 3) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Command6_Click()
RetVal = Shell("COMMAND.COM", 3) ' Run PortCommand.
RetVal = Shell("WSMENU.EXE", 3) ' Run CustomSupSystem.
End Sub
Private Sub Picture2_Click()
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Form_Load()
Dim Port_Flag
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -