📄 frm_set.frm
字号:
VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Begin VB.Form Frm_Set
Caption = "设定"
ClientHeight = 4365
ClientLeft = 4425
ClientTop = 2985
ClientWidth = 4095
LinkTopic = "Form1"
ScaleHeight = 4365
ScaleWidth = 4095
Begin VB.Frame Frm_Ser
Height = 2895
Left = 360
TabIndex = 2
Top = 720
Width = 3375
Begin VB.ComboBox SerCbl_Con
Height = 300
ItemData = "Frm_Set.frx":0000
Left = 1320
List = "Frm_Set.frx":000D
TabIndex = 16
Text = "无"
Top = 2160
Width = 1695
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel8
Height = 255
Left = 120
OleObjectBlob = "Frm_Set.frx":0025
TabIndex = 15
Top = 2160
Width = 1095
End
Begin VB.ComboBox Ser_Cbl_Jud
Height = 300
ItemData = "Frm_Set.frx":008F
Left = 1320
List = "Frm_Set.frx":009C
TabIndex = 14
Text = "n"
Top = 1800
Width = 1695
End
Begin VB.ComboBox Ser_Cbl_Stop
Height = 300
ItemData = "Frm_Set.frx":00A9
Left = 1320
List = "Frm_Set.frx":00B6
TabIndex = 13
Text = "1"
Top = 1440
Width = 1695
End
Begin VB.ComboBox Ser_Cbl_Data
Height = 300
ItemData = "Frm_Set.frx":00C5
Left = 1320
List = "Frm_Set.frx":00D5
TabIndex = 12
Text = "8"
Top = 1080
Width = 1695
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel7
Height = 255
Left = 120
OleObjectBlob = "Frm_Set.frx":00E5
TabIndex = 11
Top = 3720
Width = 1095
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel6
Height = 255
Left = 360
OleObjectBlob = "Frm_Set.frx":014F
TabIndex = 10
Top = 1440
Width = 855
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel5
Height = 255
Left = 240
OleObjectBlob = "Frm_Set.frx":01B5
TabIndex = 9
Top = 1800
Width = 975
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 255
Left = 360
OleObjectBlob = "Frm_Set.frx":021D
TabIndex = 8
Top = 1080
Width = 735
End
Begin VB.ComboBox Ser_Cbl_Com
Height = 300
ItemData = "Frm_Set.frx":0283
Left = 1320
List = "Frm_Set.frx":0299
TabIndex = 7
Text = "COM1"
Top = 720
Width = 1695
End
Begin VB.ComboBox Ser_Cbl_Byte
Height = 300
ItemData = "Frm_Set.frx":02C1
Left = 1320
List = "Frm_Set.frx":02DA
TabIndex = 6
Text = "2400"
Top = 360
Width = 1695
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2
Height = 255
Left = 360
OleObjectBlob = "Frm_Set.frx":030D
TabIndex = 4
Top = 720
Width = 735
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Left = 360
OleObjectBlob = "Frm_Set.frx":0373
TabIndex = 5
Top = 360
Width = 735
End
End
Begin VB.Frame Frm_Ham
Height = 2895
Left = 360
TabIndex = 24
Top = 720
Width = 3375
Begin VB.ComboBox Ham_Cbl_Con
Height = 300
Left = 1080
TabIndex = 36
Text = "硬件"
Top = 2280
Width = 1935
End
Begin VB.ComboBox Ham_Cbl_Cop
Height = 300
ItemData = "Frm_Set.frx":03D9
Left = 1080
List = "Frm_Set.frx":03E3
TabIndex = 35
Text = "已启用"
Top = 1920
Width = 1935
End
Begin VB.ComboBox Ham_Cbl_Pro
Height = 300
ItemData = "Frm_Set.frx":03F7
Left = 1080
List = "Frm_Set.frx":0404
TabIndex = 34
Text = "标准EC"
Top = 1560
Width = 1935
End
Begin VB.ComboBox Ham_Cbl_Rat
Height = 300
ItemData = "Frm_Set.frx":0420
Left = 1080
List = "Frm_Set.frx":043C
TabIndex = 33
Text = "2400"
Top = 1200
Width = 1935
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel17
Height = 255
Left = 240
OleObjectBlob = "Frm_Set.frx":0475
TabIndex = 32
Top = 2280
Width = 735
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel16
Height = 375
Left = 480
OleObjectBlob = "Frm_Set.frx":04DB
TabIndex = 31
Top = 1920
Width = 615
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel15
Height = 375
Left = 120
OleObjectBlob = "Frm_Set.frx":053F
TabIndex = 30
Top = 1560
Width = 1095
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel14
Height = 255
Left = 120
OleObjectBlob = "Frm_Set.frx":05A7
TabIndex = 29
Top = 1200
Width = 975
End
Begin VB.TextBox Ham_Txt_Cod
Height = 375
Left = 1080
TabIndex = 28
Top = 720
Width = 1935
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel13
Height = 375
Left = 120
OleObjectBlob = "Frm_Set.frx":060F
TabIndex = 27
Top = 720
Width = 975
End
Begin VB.TextBox Ham_Txt_Reg
Height = 375
Left = 1080
TabIndex = 26
Top = 240
Width = 1935
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel12
Height = 255
Left = 480
OleObjectBlob = "Frm_Set.frx":0677
TabIndex = 25
Top = 240
Width = 615
End
End
Begin VB.Frame Frm_Tcp
Height = 2895
Left = 360
TabIndex = 19
Top = 720
Width = 3375
Begin VB.TextBox Tcp_Txt_Port
Height = 375
Left = 1200
TabIndex = 23
Top = 1680
Width = 1935
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel11
Height = 375
Left = 240
OleObjectBlob = "Frm_Set.frx":06DB
TabIndex = 22
Top = 1680
Width = 855
End
Begin VB.TextBox Tcp_Txt_IP
Height = 375
Left = 1200
TabIndex = 21
Top = 840
Width = 1935
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel10
Height = 375
Left = 240
OleObjectBlob = "Frm_Set.frx":0741
TabIndex = 20
Top = 840
Width = 1215
End
End
Begin VB.ComboBox Combo5
Height = 300
ItemData = "Frm_Set.frx":07A9
Left = 1440
List = "Frm_Set.frx":07B6
TabIndex = 18
Text = "Serial"
Top = 240
Width = 1695
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel9
Height = 375
Left = 360
OleObjectBlob = "Frm_Set.frx":07CF
TabIndex = 17
Top = 240
Width = 975
End
Begin VB.CommandButton Command3
Caption = "应用"
Height = 375
Left = 2760
TabIndex = 3
Top = 3840
Width = 855
End
Begin VB.CommandButton Command2
Caption = "确定"
Height = 375
Left = 1560
TabIndex = 1
Top = 3840
Width = 855
End
Begin VB.CommandButton Command1
Caption = "取消"
Height = 375
Left = 360
TabIndex = 0
Top = 3840
Width = 855
End
End
Attribute VB_Name = "Frm_Set"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo5_Click()
Select Case Combo5.Text
Case "Serial"
Frm_Ser.ZOrder 0
Case "TCP/IP"
Frm_Tcp.ZOrder 0
Case "Ham"
Frm_Ham.ZOrder 0
End Select
End Sub
Private Sub Frm_Set_Init()
Ser_Cbl_Byte = GetINI("serial", "byterate", App.Path & "\sysini\phisical.ini")
Ser_Cbl_Com = GetINI("serial", "comport", App.Path & "\sysini\phisical.ini")
Ser_Cbl_Data = GetINI("serial", "datalen", App.Path & "\sysini\phisical.ini")
Ser_Cbl_Stop = GetINI("serial", "stoplen", App.Path & "\sysini\phisical.ini")
Ser_Cbl_Jud = GetINI("serial", "judge", App.Path & "\sysini\phisical.ini")
SerCbl_Con = GetINI("serial", "curcon", App.Path & "\sysini\phisical.ini")
Tcp_Txt_IP = GetINI("tcp/ip", "serverip", App.Path & "\sysini\phisical.ini")
Tcp_Txt_Port = GetINI("tcp/ip", "comport", App.Path & "\sysini\phisical.ini")
Ham_Txt_Reg = GetINI("ham", "regcode", App.Path & "\sysini\phisical.ini")
Ham_Txt_Cod = GetINI("ham", "dialcode", App.Path & "\sysini\phisical.ini")
Ham_Cbl_Rat = GetINI("ham", "byterate", App.Path & "\sysini\phisical.ini")
Ham_Cbl_Pro = GetINI("ham", "datapro", App.Path & "\sysini\phisical.ini")
Ham_Cbl_Cop = GetINI("ham", "compress", App.Path & "\sysini\phisical.ini")
Ham_Cbl_Con = GetINI("ham", "curcon", App.Path & "\sysini\phisical.ini")
End Sub
Private Sub Command1_Click()
Me.Hide
End Sub
Private Sub Command2_Click()
Select Case Combo5.Text
Case "Serial"
SaveINI "serial", "byterate", Ser_Cbl_Byte, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "comport", Ser_Cbl_Com, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "datalen", Ser_Cbl_Data, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "stoplen", Ser_Cbl_Stop, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "judge", Ser_Cbl_Jud, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "curcon", SerCbl_Con, App.Path & "\sysini\phisical.ini"
Me.Hide
Case "TCP/IP"
SaveINI "tcp/ip", "serverip", Tcp_Txt_IP, App.Path & "\sysini\phisical.ini"
SaveINI "tcp/ip", "comport", Tcp_Txt_Port, App.Path & "\sysini\phisical.ini"
Me.Hide
Case "Ham"
End Select
Call SerialInit
End Sub
Private Sub Command3_Click()
Select Case Combo5.Text
Case "Serial"
SaveINI "serial", "byterate", Ser_Cbl_Byte, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "comport", Ser_Cbl_Com, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "datalen", Ser_Cbl_Data, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "stoplen", Ser_Cbl_Stop, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "judge", Ser_Cbl_Jud, App.Path & "\sysini\phisical.ini"
SaveINI "serial", "curcon", SerCbl_Con, App.Path & "\sysini\phisical.ini"
Case "TCP/IP"
SaveINI "tcp/ip", "serverip", Tcp_Txt_IP, App.Path & "\sysini\phisical.ini"
SaveINI "tcp/ip", "comport", Tcp_Txt_Port, App.Path & "\sysini\phisical.ini"
Case "Ham"
End Select
Call SerialInit
End Sub
Private Sub Form_Load()
Call Frm_Set_Init
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -