📄 form1.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{FFF1E629-774C-40A8-9B84-8BEAD68014B1}#1.0#0"; "VSPort.ocx"
Object = "{60CC5D62-2D08-11D0-BDBE-00AA00575603}#1.0#0"; "SysTray.ocx"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "COPYCOM2.0"
ClientHeight = 7080
ClientLeft = 3390
ClientTop = 2115
ClientWidth = 9030
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7080
ScaleWidth = 9030
Begin VB.CheckBox Check_autorun
Caption = "自动运行"
Height = 255
Left = 6240
TabIndex = 39
Top = 1200
Width = 1455
End
Begin VB.TextBox Text_local_port
Height = 270
Left = 2760
TabIndex = 37
Text = "4095"
Top = 480
Width = 975
End
Begin VB.CommandButton Command_load_ini
Caption = "读取INI"
Height = 255
Left = 7800
TabIndex = 36
Top = 3600
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command_save_ini
Caption = "保存INI"
Height = 255
Left = 7800
TabIndex = 35
Top = 3360
Visible = 0 'False
Width = 1095
End
Begin MSWinsockLib.Winsock Winsock_data
Left = 8400
Top = 4200
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
RemoteHost = "127.0.0.1"
RemotePort = 5000
LocalPort = 5002
End
Begin MSWinsockLib.Winsock Winsock_cmd
Left = 8400
Top = 4680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
RemoteHost = "127.0.0.1"
RemotePort = 5000
LocalPort = 5002
End
Begin SysTrayCtl.cSysTray cSysTray1
Left = 8400
Top = 6240
_ExtentX = 900
_ExtentY = 900
InTray = 0 'False
TrayIcon = "Form1.frx":030A
TrayTip = "VB 5 - SysTray Control."
End
Begin VB.CommandButton Command_hide
Caption = "隐藏"
Height = 375
Left = 7800
TabIndex = 34
Top = 1560
Width = 1095
End
Begin VB.CommandButton Command_link
Caption = "开始"
Height = 375
Left = 7800
TabIndex = 28
Top = 120
Width = 1095
End
Begin VB.CommandButton Command_close
Caption = "关闭"
Height = 375
Left = 7800
TabIndex = 5
Top = 600
Width = 1095
End
Begin VB.CommandButton Command_exit
Caption = "退出"
Height = 375
Left = 7800
TabIndex = 13
Top = 1080
Width = 1095
End
Begin VB.CommandButton Command_vcom
Caption = "启用串口"
Height = 255
Left = 7800
TabIndex = 12
Top = 2760
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command_open
Caption = "UDP连接"
Height = 255
Left = 7800
TabIndex = 4
Top = 3000
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command_set_io
Caption = "set_io"
Height = 375
Left = 7800
TabIndex = 21
Top = 2400
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command_setcom
Caption = "set_com"
Height = 375
Left = 7800
TabIndex = 18
Top = 2040
Visible = 0 'False
Width = 1095
End
Begin VB.Timer Timer_check
Enabled = 0 'False
Interval = 50
Left = 8400
Top = 5760
End
Begin VB.CheckBox Check_setio
Caption = "RTS和DTR成功"
Height = 255
Left = 6240
TabIndex = 33
Top = 840
Width = 1455
End
Begin VB.CheckBox Check_setcom
Caption = "串口参数更新成功"
Height = 255
Left = 4080
TabIndex = 32
Top = 840
Width = 1935
End
Begin VB.CheckBox Check_log
Caption = "显示数据记录"
Height = 255
Left = 4080
TabIndex = 31
Top = 1200
Width = 1695
End
Begin VB.ComboBox Combo_mode
Height = 300
ItemData = "Form1.frx":0624
Left = 4080
List = "Form1.frx":0631
TabIndex = 27
Text = "网络工作模式"
Top = 480
Width = 1695
End
Begin VB.CheckBox Check_DTR
Caption = "DTR"
Height = 300
Left = 4440
TabIndex = 23
Top = 6720
Value = 1 'Checked
Width = 735
End
Begin VB.CheckBox Check_RTS
Caption = "RTS"
Height = 300
Left = 3600
TabIndex = 22
Top = 6720
Value = 1 'Checked
Width = 735
End
Begin VB.TextBox Text_com_len
Height = 270
Left = 2760
TabIndex = 19
Text = "256"
Top = 1200
Width = 975
End
Begin VB.CheckBox Check_DSR
Caption = "DSR"
Height = 300
Left = 960
TabIndex = 17
Top = 6720
Width = 735
End
Begin VB.CheckBox Check_DCD
Caption = "DCD"
Height = 300
Left = 2760
TabIndex = 16
Top = 6720
Width = 735
End
Begin VB.CheckBox Check_RING
Caption = "Ring"
Height = 300
Left = 1800
TabIndex = 15
Top = 6720
Width = 855
End
Begin VB.CheckBox Check_CTS
Caption = "CTS"
Height = 255
Left = 120
TabIndex = 14
Top = 6720
Width = 735
End
Begin VB.TextBox Text_server_vname
Height = 270
Left = 2760
TabIndex = 10
Text = "COM3"
Top = 1560
Width = 975
End
Begin VB.TextBox Text_com_delay
Height = 270
Left = 2760
TabIndex = 8
Text = "100"
Top = 840
Width = 975
End
Begin VB.TextBox Text_server_port
Height = 270
Left = 6480
TabIndex = 3
Text = "4096"
Top = 120
Width = 975
End
Begin VB.TextBox Text_server_add
Height = 270
Left = 1440
TabIndex = 0
Text = "192.168.0.236"
Top = 120
Width = 2295
End
Begin VB.Frame Frame1
Caption = "信息栏"
Height = 4695
Left = 120
TabIndex = 6
Top = 1920
Width = 8775
Begin VB.Label Label_state
Height = 4095
Left = 240
TabIndex = 7
Top = 360
Width = 8175
End
End
Begin VB.Label Label8
Caption = "本机端口（1～65535）："
Height = 255
Left = 120
TabIndex = 38
Top = 480
Width = 2535
End
Begin VSPortLib.VSPort VSPort_com1
Left = 7200
Top = 480
_Version = 65536
_ExtentX = 847
_ExtentY = 847
_StockProps = 0
End
Begin VB.Label Text_remote_ip
Height = 255
Left = 5520
TabIndex = 30
Top = 1560
Width = 2055
End
Begin VB.Label Label7
Caption = "远程主机IP："
Height = 255
Left = 4080
TabIndex = 29
Top = 1560
Width = 1335
End
Begin VB.Label Label_com_rate
Height = 255
Left = 7200
TabIndex = 26
Top = 6720
Width = 1575
End
Begin VB.Label Label6
Caption = "State:"
Height = 255
Left = 5400
TabIndex = 25
Top = 6720
Width = 615
End
Begin VB.Label Label_com_state
Caption = "close"
Height = 255
Left = 6240
TabIndex = 24
Top = 6720
Width = 735
End
Begin VB.Label Label3
Caption = "最大长度（byte 0～1400）："
Height = 255
Left = 120
TabIndex = 20
Top = 1200
Width = 2415
End
Begin VB.Label Label5
Caption = "虚拟串口名字："
Height = 255
Left = 120
TabIndex = 11
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -