📄 frmmain.frm
字号:
Left = 120
Top = 525
Visible = 0 'False
Width = 255
End
Begin VB.Label lblRing
AutoSize = -1 'True
Caption = "Ring"
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 = 156
Top = 480
Width = 420
End
Begin VB.Shape shpEOF
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 765
Visible = 0 'False
Width = 255
End
Begin VB.Label lblEOF
AutoSize = -1 'True
Caption = "EOF"
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 = 155
Top = 720
Width = 315
End
Begin VB.Shape shpBreakEventOff
FillColor = &H00800080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Width = 255
End
Begin VB.Shape shpRingOff
FillColor = &H00008080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Width = 255
End
Begin VB.Shape shpEOFOff
BackColor = &H00800000&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 765
Width = 255
End
End
Begin VB.Frame fraPoll
Caption = "端口"
Height = 2655
Index = 1
Left = 2400
TabIndex = 147
Top = 6660
Width = 1095
Begin VB.TextBox txtBuffer
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Index = 1
Left = 120
MaxLength = 4
TabIndex = 151
Text = "0"
Top = 2200
Width = 855
End
Begin VB.CommandButton cmdApplyPoll
Caption = "应用"
Enabled = 0 'False
Height = 285
Index = 1
Left = 120
TabIndex = 150
Top = 600
Width = 855
End
Begin VB.TextBox txtPoll
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Index = 1
Left = 120
MaxLength = 4
TabIndex = 149
Text = "0"
Top = 1200
Width = 855
End
Begin VB.CheckBox chkPoll
Caption = "允许"
Height = 255
Index = 1
Left = 120
TabIndex = 148
Top = 240
Width = 795
End
Begin VB.Label lblReadAt
Alignment = 1 'Right Justify
Caption = "缓存读取计数: "
Height = 390
Index = 1
Left = 45
TabIndex = 153
Top = 1650
Width = 870
End
Begin VB.Label lblInterval
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "时间间隔"
Height = 180
Index = 1
Left = 315
TabIndex = 152
Top = 960
Width = 720
End
End
Begin VB.Frame fraInputLen
Caption = "同一时间要读取的字符"
Height = 615
Index = 1
Left = 3960
TabIndex = 143
Top = 5940
Width = 2655
Begin VB.TextBox txtCount
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Index = 1
Left = 1680
TabIndex = 146
Top = 225
Width = 855
End
Begin VB.OptionButton optCount
Caption = "设定"
Height = 255
Index = 1
Left = 945
TabIndex = 145
Top = 255
Width = 975
End
Begin VB.OptionButton optAll
Caption = "全部"
Height = 255
Index = 1
Left = 75
TabIndex = 144
Top = 240
Value = -1 'True
Width = 675
End
End
Begin VB.PictureBox picScope
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 833
Index = 1
Left = 180
Picture = "frmMain.frx":06F6
ScaleHeight = 67
ScaleMode = 3 'Pixel
ScaleWidth = 529
TabIndex = 142
Top = 4920
Width = 6375
End
Begin VB.Frame fraComError
Caption = "端口错误"
Height = 2655
Index = 1
Left = 3600
TabIndex = 131
Top = 6660
Width = 1225
Begin VB.Timer tmrErrors
Enabled = 0 'False
Index = 1
Interval = 250
Left = 720
Top = 1440
End
Begin VB.Shape shpSThresh
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 2445
Visible = 0 'False
Width = 255
End
Begin VB.Label lblSThresh
AutoSize = -1 'True
Caption = "Send"
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 = 141
Top = 2400
Width = 420
End
Begin VB.Shape shpFrame
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Visible = 0 'False
Width = 255
End
Begin VB.Label lblFrame
AutoSize = -1 'True
Caption = "Frame"
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 = 140
Top = 240
Width = 525
End
Begin VB.Shape shpParity
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Visible = 0 'False
Width = 255
End
Begin VB.Label lblParityError
AutoSize = -1 'True
Caption = "校验"
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 = 139
Top = 480
Width = 630
End
Begin VB.Shape shpOverRun
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 765
Visible = 0 'False
Width = 255
End
Begin VB.Label lblOver
AutoSize = -1 'True
Caption = "Loss"
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 = 138
Top = 720
Width = 420
End
Begin VB.Shape shpCTSTO
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 1005
Visible = 0 'False
Width = 255
End
Begin VB.Label lblCTSTO
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -