📄 frmmain.frm
字号:
Top = 6660
Width = 975
End
Begin VB.ListBox lstData
BeginProperty Font
Name = "Courier New"
Size = 9.6
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2424
Index = 1
ItemData = "frmMain.frx":06F2
Left = 120
List = "frmMain.frx":06F4
TabIndex = 174
Top = 2400
Width = 6495
End
Begin VB.Frame fraOutput
Caption = "输出"
Height = 855
Index = 1
Left = 1320
TabIndex = 171
Top = 7380
Width = 975
Begin VB.OptionButton optBinaryOut
Caption = "二进制"
Height = 255
Index = 1
Left = 60
TabIndex = 173
Top = 495
Value = -1 'True
Width = 855
End
Begin VB.OptionButton optStringOut
Caption = "字符串"
Height = 255
Index = 1
Left = 60
TabIndex = 172
Top = 240
Width = 840
End
End
Begin VB.CommandButton cmdClear
Caption = "清除"
Height = 375
Index = 1
Left = 120
TabIndex = 170
Top = 6060
Width = 1095
End
Begin VB.Frame fraRThreshold
Caption = "接收限制"
Height = 615
Index = 1
Left = 1320
TabIndex = 166
Top = 5940
Width = 2535
Begin VB.CommandButton cmdApplyRThresh
Caption = "应用"
Enabled = 0 'False
Height = 285
Index = 1
Left = 1680
TabIndex = 169
Top = 225
Width = 735
End
Begin VB.TextBox txtRThreshold
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Index = 1
Left = 960
TabIndex = 168
Top = 225
Width = 615
End
Begin VB.CheckBox chkRThreshold
Caption = "允许"
Height = 255
Index = 1
Left = 105
TabIndex = 167
Top = 240
Width = 795
End
End
Begin VB.Frame fraLineControl
Caption = "队列开关"
Height = 1695
Index = 1
Left = 120
TabIndex = 162
Top = 6540
Width = 1095
Begin VB.CommandButton cmdDTR
Caption = "DTR"
Height = 375
Index = 1
Left = 120
TabIndex = 165
Top = 1200
Width = 735
End
Begin VB.CommandButton cmdRTS
Caption = "RTS"
Height = 375
Index = 1
Left = 120
TabIndex = 164
Top = 720
Width = 735
End
Begin VB.CommandButton cmdBreak
Caption = "BREAK"
Height = 375
Index = 1
Left = 120
TabIndex = 163
Top = 240
Width = 735
End
Begin VB.Shape shpDTR
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 1200
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpRTS
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 720
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpBreak
FillColor = &H00FF00FF&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 240
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpDTROff
FillColor = &H00000080&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 1200
Width = 135
End
Begin VB.Shape shpRTSOff
FillColor = &H00008000&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 720
Width = 135
End
Begin VB.Shape shpBreakOff
FillColor = &H00800080&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 240
Width = 135
End
End
Begin VB.Frame fraHolding
Caption = "载波信息"
Height = 975
Index = 1
Left = 1320
TabIndex = 158
Top = 8340
Width = 975
Begin VB.Label lblCD
AutoSize = -1 'True
Caption = "CD"
BeginProperty Font
Name = "Courier New"
Size = 8.4
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 161
Top = 720
Width = 210
End
Begin VB.Shape shpCD
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 765
Visible = 0 'False
Width = 255
End
Begin VB.Label lblDSR
AutoSize = -1 'True
Caption = "DSR"
BeginProperty Font
Name = "Courier New"
Size = 8.4
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 160
Top = 480
Width = 315
End
Begin VB.Shape shpDSR
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Visible = 0 'False
Width = 255
End
Begin VB.Label lblCTS
AutoSize = -1 'True
Caption = "CTS"
BeginProperty Font
Name = "Courier New"
Size = 8.4
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 159
Top = 240
Width = 315
End
Begin VB.Shape shpCTS
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Visible = 0 'False
Width = 255
End
Begin VB.Shape shpCDOff
FillColor = &H00008080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 765
Width = 255
End
Begin VB.Shape shpDSROff
FillColor = &H00000080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Width = 255
End
Begin VB.Shape shpCTSOff
FillColor = &H00008000&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Width = 255
End
End
Begin VB.Frame fraLineDetect
Caption = "线路侦测"
Height = 975
Index = 1
Left = 120
TabIndex = 154
Top = 8340
Width = 1095
Begin VB.Timer tmrLineDetect
Enabled = 0 'False
Index = 1
Interval = 250
Left = 840
Top = 720
End
Begin VB.Shape shpBreakEvent
FillColor = &H00FF00FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Visible = 0 'False
Width = 255
End
Begin VB.Label lblBreak
AutoSize = -1 'True
Caption = "Break"
BeginProperty Font
Name = "Courier New"
Size = 8.4
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 157
Top = 240
Width = 525
End
Begin VB.Shape shpRing
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Index = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -