📄 frm_cmdset.frm
字号:
Width = 855
End
Begin VB.TextBox Txt_Cmd_Con
Height = 375
Index = 7
Left = 1560
TabIndex = 24
Top = 120
Width = 4935
End
Begin VB.TextBox Txt_Cmd_Name
Height = 375
Index = 7
Left = 480
TabIndex = 23
Top = 120
Width = 975
End
Begin VB.CheckBox Chk_Asc
Caption = "Check1"
Height = 255
Index = 7
Left = 120
TabIndex = 22
Top = 120
Width = 255
End
End
Begin VB.Frame Frame1
Height = 495
Index = 8
Left = 720
TabIndex = 16
Top = 4320
Width = 7335
Begin VB.CommandButton Cmd_Set
Caption = "添 加"
Height = 375
Index = 8
Left = 6480
TabIndex = 20
Top = 120
Width = 855
End
Begin VB.TextBox Txt_Cmd_Con
Height = 375
Index = 8
Left = 1560
TabIndex = 19
Top = 120
Width = 4935
End
Begin VB.TextBox Txt_Cmd_Name
Height = 375
Index = 8
Left = 480
TabIndex = 18
Top = 120
Width = 975
End
Begin VB.CheckBox Chk_Asc
Caption = "Check1"
Height = 255
Index = 8
Left = 120
TabIndex = 17
Top = 120
Width = 255
End
End
Begin VB.Frame Frame1
Height = 495
Index = 9
Left = 720
TabIndex = 11
Top = 4800
Width = 7335
Begin VB.CommandButton Cmd_Set
Caption = "添 加"
Height = 375
Index = 9
Left = 6480
TabIndex = 15
Top = 120
Width = 855
End
Begin VB.TextBox Txt_Cmd_Con
Height = 375
Index = 9
Left = 1560
TabIndex = 14
Top = 120
Width = 4935
End
Begin VB.TextBox Txt_Cmd_Name
Height = 375
Index = 9
Left = 480
TabIndex = 13
Top = 120
Width = 975
End
Begin VB.CheckBox Chk_Asc
Caption = "Check1"
Height = 255
Index = 9
Left = 120
TabIndex = 12
Top = 120
Width = 255
End
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 0
ItemData = "Frm_CmdSet.frx":0000
Left = 120
List = "Frm_CmdSet.frx":0022
TabIndex = 10
Text = "0"
Top = 600
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 1
ItemData = "Frm_CmdSet.frx":0045
Left = 120
List = "Frm_CmdSet.frx":0067
TabIndex = 9
Text = "0"
Top = 1080
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 2
ItemData = "Frm_CmdSet.frx":008A
Left = 120
List = "Frm_CmdSet.frx":00AC
TabIndex = 8
Text = "0"
Top = 1560
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 3
ItemData = "Frm_CmdSet.frx":00CF
Left = 120
List = "Frm_CmdSet.frx":00F1
TabIndex = 7
Text = "0"
Top = 2040
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 4
ItemData = "Frm_CmdSet.frx":0114
Left = 120
List = "Frm_CmdSet.frx":0136
TabIndex = 6
Text = "0"
Top = 2520
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 5
ItemData = "Frm_CmdSet.frx":0159
Left = 120
List = "Frm_CmdSet.frx":017B
TabIndex = 5
Text = "0"
Top = 3000
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 6
ItemData = "Frm_CmdSet.frx":019E
Left = 120
List = "Frm_CmdSet.frx":01C0
TabIndex = 4
Text = "0"
Top = 3480
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 7
ItemData = "Frm_CmdSet.frx":01E3
Left = 120
List = "Frm_CmdSet.frx":0205
TabIndex = 3
Text = "0"
Top = 3960
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 8
ItemData = "Frm_CmdSet.frx":0228
Left = 120
List = "Frm_CmdSet.frx":024A
TabIndex = 2
Text = "0"
Top = 4440
Width = 495
End
Begin VB.ComboBox Cbl_Tim_Ser
Height = 300
Index = 9
ItemData = "Frm_CmdSet.frx":026D
Left = 120
List = "Frm_CmdSet.frx":028F
TabIndex = 1
Text = "0"
Top = 4920
Width = 495
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 255
Left = 120
OleObjectBlob = "Frm_CmdSet.frx":02B2
TabIndex = 0
Top = 240
Width = 495
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Left = 4440
OleObjectBlob = "Frm_CmdSet.frx":0314
TabIndex = 56
Top = 240
Width = 855
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2
Height = 255
Left = 1320
OleObjectBlob = "Frm_CmdSet.frx":037A
TabIndex = 62
Top = 240
Width = 855
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Left = 840
OleObjectBlob = "Frm_CmdSet.frx":03E0
TabIndex = 63
Top = 240
Width = 375
End
End
Attribute VB_Name = "Frm_CmdSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub Frm_CmdSet_Init()
Dim Cmd_Index As Integer
For Cmd_Index = 0 To 9
Txt_Cmd_Con(Cmd_Index) = GetINI("cmdcon", "cmdc" & Cmd_Index, App.Path & "\sysini\cmd.ini")
Txt_Cmd_Name(Cmd_Index) = GetINI("cmdname", "cmdn" & Cmd_Index, App.Path & "\sysini\cmd.ini")
Cbl_Tim_Ser(Cmd_Index) = GetINI("cmdarray", "cmda" & Cmd_Index, App.Path & "\sysini\cmd.ini")
Chk_Asc(Cmd_Index).Value = GetINI("cmdkind", "cmdk" & Cmd_Index, App.Path & "\sysini\cmd.ini")
Next Cmd_Index
End Sub
Private Sub Cmd_Set_Click(Index As Integer)
If Chk_Asc(Index).Value = 1 Then
SaveINI "cmdkind", "cmdk" & Index, "1", App.Path & "\sysini\cmd.ini"
ElseIf Chk_Asc(Index).Value = 0 Then
Txt_Cmd_Con(Index).Text = AddSpace(UCase(Delspace(Txt_Cmd_Con(Index).Text)))
SaveINI "cmdkind", "cmdk" & Index, "0", App.Path & "\sysini\cmd.ini"
End If
SaveINI "cmdcon", "cmdc" & Index, Txt_Cmd_Con(Index), App.Path & "\sysini\cmd.ini"
SaveINI "cmdname", "cmdn" & Index, Txt_Cmd_Name(Index), App.Path & "\sysini\cmd.ini"
SaveINI "cmdarray", "cmda" & Index, Cbl_Tim_Ser(Index), App.Path & "\sysini\cmd.ini"
End Sub
Private Sub Form_Load()
Call Frm_CmdSet_Init
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim Index As Integer
Dim TempK As Integer
For Index = 0 To 9
Frm_CmdSend.Cmb_List.List(Index) = GetINI("cmdcon", "cmdc" & Index, App.Path & "\sysini\cmd.ini")
Next Index
Frm_CmdSend.Cmb_List.Text = GetINI("cmdcon", "cmdc" & "0", App.Path & "\sysini\cmd.ini")
Frm_CmdSend.Lbl_Cmd_Name = GetINI("cmdname", "cmdn" & "0", App.Path & "\sysini\cmd.ini")
TempK = GetINI("cmdkind", "cmdk" & "0", App.Path & "\sysini\cmd.ini")
If TempK = 0 Then
Frm_CmdSend.Lbl_Cmd_Kind = "HEX"
ElseIf TempK = 1 Then
Frm_CmdSend.Lbl_Cmd_Kind = "ASC"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -