📄 串口调试助手.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form 串口调试软件
BackColor = &H0091CACA&
BorderStyle = 1 'Fixed Single
Caption = "串口调试软件V1.0"
ClientHeight = 5640
ClientLeft = 4020
ClientTop = 3120
ClientWidth = 9015
FillColor = &H0091CACA&
ForeColor = &H0091CACA&
Icon = "串口调试助手.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "串口调试助手.frx":0ECA
ScaleHeight = 5640
ScaleWidth = 9015
Begin MSComDlg.CommonDialog CommonDialog1
Left = 7680
Top = 4440
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "文本文件（*.txt）|*.txt"
End
Begin VB.Timer TmrAutoSend
Left = 7080
Top = 4440
End
Begin MSCommLib.MSComm MSComm
Left = 8280
Top = 4320
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.PictureBox Picture1
BackColor = &H00E0E0E0&
Height = 500
Left = 7600
Picture = "串口调试助手.frx":4AAC
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 40
Top = 5130
Width = 500
End
Begin VB.TextBox TxtAutoSendTime
Height = 270
Left = 1320
TabIndex = 38
Text = "1000"
Top = 4940
Width = 660
End
Begin VB.CommandButton CmdAmend
Appearance = 0 'Flat
Caption = "更改"
Height = 300
Left = 1250
TabIndex = 35
Top = 3450
Width = 505
End
Begin VB.CommandButton CmdSaveDisp
Appearance = 0 'Flat
Caption = "保存显示数据"
Height = 300
Left = 30
TabIndex = 34
Top = 3450
Width = 1225
End
Begin VB.CommandButton CmdHelp
Caption = "关于"
Height = 300
Left = 7080
TabIndex = 21
Top = 5350
Width = 505
End
Begin VB.CommandButton CmdQuit
Caption = "关闭程序"
Height = 495
Left = 8110
TabIndex = 20
Top = 5160
Width = 870
End
Begin VB.CommandButton CmdClearCounter
Caption = "计数清零"
Height = 300
Left = 6060
TabIndex = 19
Top = 5350
Width = 865
End
Begin VB.CommandButton CmdSendFile
Caption = "发送文件"
Height = 280
Left = 5530
TabIndex = 18
Top = 5000
Width = 900
End
Begin VB.TextBox TxtSendPath
Alignment = 2 'Center
BackColor = &H0091CACA&
Height = 270
Left = 3800
TabIndex = 17
Text = "还没有选择文件"
Top = 5000
Width = 1700
End
Begin VB.CommandButton CmdSelectFile
Caption = "选择发送文件"
Height = 280
Left = 2520
TabIndex = 16
Top = 5000
Width = 1225
End
Begin VB.TextBox TxtTXCount
Alignment = 2 'Center
BackColor = &H0091CACA&
Height = 270
Left = 4680
TabIndex = 15
Text = "TX:0"
Top = 5350
Width = 1340
End
Begin VB.TextBox TxtRXCount
Alignment = 2 'Center
BackColor = &H0091CACA&
Height = 270
Left = 3340
TabIndex = 14
Text = "RX:0"
Top = 5350
Width = 1350
End
Begin VB.TextBox TxtStatus
Alignment = 2 'Center
BackColor = &H0091CACA&
Height = 270
Left = 260
TabIndex = 13
Top = 5350
Width = 3100
End
Begin VB.CheckBox ChkAutoSend
BackColor = &H0091CACA&
Caption = "自动发送(周期改变后重选)"
Height = 255
Left = 30
TabIndex = 12
Top = 4680
Width = 2480
End
Begin VB.CheckBox ChkHexSend
BackColor = &H0091CACA&
Caption = "十六进制发送"
Height = 255
Left = 30
TabIndex = 11
Top = 4410
Width = 1455
End
Begin VB.CommandButton CmdSend
Caption = "手动发送"
Height = 300
Left = 1590
TabIndex = 10
Top = 4400
Width = 870
End
Begin VB.CommandButton CmdClearSend
Caption = "清空重填"
Height = 300
Left = 100
TabIndex = 9
Top = 4100
Width = 870
End
Begin VB.TextBox TxtSend
Height = 865
Left = 2560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 8
Top = 4080
Width = 6420
End
Begin VB.TextBox TxtSavePath
BackColor = &H0091CACA&
Height = 270
Left = 60
TabIndex = 7
Text = "C:\COMDATA"
Top = 3760
Width = 1650
End
Begin VB.CheckBox ChkHexReceive
BackColor = &H0091CACA&
Caption = "十六进制显示"
Height = 255
Left = 50
TabIndex = 6
Top = 3100
Width = 1455
End
Begin VB.CheckBox ChkAutoClear
BackColor = &H0091CACA&
Caption = "自动清空"
Height = 255
Left = 50
TabIndex = 5
Top = 2850
Width = 1215
End
Begin VB.CommandButton CmdStopdisp
Caption = "停止显示"
Height = 310
Left = 30
TabIndex = 4
Top = 2520
Width = 1050
End
Begin VB.CommandButton CmdClearReceive
Caption = "清空接收区"
Height = 310
Left = 30
TabIndex = 3
Top = 2190
Width = 1050
End
Begin VB.Frame Frame1
BackColor = &H0091CACA&
Height = 2200
Left = 0
TabIndex = 2
Top = -100
Width = 1650
Begin VB.ComboBox CboStopbit
Height = 300
ItemData = "串口调试助手.frx":868E
Left = 750
List = "串口调试助手.frx":8690
TabIndex = 26
Text = "1"
Top = 1300
Width = 800
End
Begin VB.ComboBox CboDatabit
Height = 300
ItemData = "串口调试助手.frx":8692
Left = 750
List = "串口调试助手.frx":8694
TabIndex = 25
Text = "8"
Top = 1000
Width = 800
End
Begin VB.ComboBox CboParitybit
Height = 300
ItemData = "串口调试助手.frx":8696
Left = 750
List = "串口调试助手.frx":86A9
TabIndex = 24
Text = "NONE"
Top = 700
Width = 800
End
Begin VB.ComboBox CboBaudrate
Height = 300
ItemData = "串口调试助手.frx":86CB
Left = 750
List = "串口调试助手.frx":86F6
TabIndex = 23
Text = "9600"
Top = 400
Width = 800
End
Begin VB.ComboBox CboCom
Height = 300
ItemData = "串口调试助手.frx":874F
Left = 750
List = "串口调试助手.frx":8780
TabIndex = 22
Text = "COM1"
Top = 111
Width = 800
End
Begin VB.CommandButton CmdSwitch
Caption = "关闭串口"
Height = 440
Left = 720
TabIndex = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -