📄 frmmain.frm
字号:
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.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 137
Top = 960
Width = 315
End
Begin VB.Shape shpDSRTO
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 1245
Visible = 0 'False
Width = 255
End
Begin VB.Label lblDSRTO
AutoSize = -1 'True
Caption = "DSR"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 136
Top = 1200
Width = 315
End
Begin VB.Shape shpCDTO
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 1485
Visible = 0 'False
Width = 255
End
Begin VB.Label lblCDTO
AutoSize = -1 'True
Caption = "CD"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 135
Top = 1440
Width = 210
End
Begin VB.Shape shpRXOver
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 1725
Visible = 0 'False
Width = 255
End
Begin VB.Label lblRxOver
AutoSize = -1 'True
Caption = "RX"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 134
Top = 1680
Width = 210
End
Begin VB.Shape shpTXFull
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 1965
Visible = 0 'False
Width = 255
End
Begin VB.Label lblTxFull
AutoSize = -1 'True
Caption = "TX"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 133
Top = 1920
Width = 210
End
Begin VB.Shape shpDCB
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 2205
Visible = 0 'False
Width = 255
End
Begin VB.Label lblDCB
AutoSize = -1 'True
Caption = "DCB"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 132
Top = 2160
Width = 315
End
Begin VB.Shape shpSThreshOff
FillColor = &H00000080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 2445
Width = 255
End
Begin VB.Shape shpOverRunOff
FillColor = &H00000080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 765
Width = 255
End
Begin VB.Shape shpParityOff
FillColor = &H00000080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Width = 255
End
Begin VB.Shape shpFrameOff
FillColor = &H00000080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Width = 255
End
Begin VB.Shape shpCTSTOOff
BackColor = &H00000080&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 1005
Width = 255
End
Begin VB.Shape shpDSRTOOff
BackColor = &H00000080&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 1245
Width = 255
End
Begin VB.Shape shpCDTOOff
BackColor = &H00000080&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 1485
Width = 255
End
Begin VB.Shape shpRXOverOff
BackColor = &H00000080&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 1725
Width = 255
End
Begin VB.Shape shpYXFullOff
BackColor = &H00000080&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 1965
Width = 255
End
Begin VB.Shape shpDCBOff
BackColor = &H00000080&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 2205
Width = 255
End
End
Begin VB.ListBox lstErrors
BackColor = &H00000000&
ForeColor = &H0000FF00&
Height = 2595
Index = 1
ItemData = "frmMain.frx":11C62
Left = 4800
List = "frmMain.frx":11C64
TabIndex = 130
Top = 7875
Width = 1815
End
Begin MSCommLib.MSComm comPort
Index = 1
Left = 6120
Top = 10200
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 2
DTREnable = -1 'True
ParityReplace = 35
BaudRate = 1200
InputMode = 1
End
Begin VB.Frame fraReceive
Caption = "Data Received"
Height = 4455
Index = 1
Left = 120
TabIndex = 176
Top = 2160
Width = 6495
End
Begin VB.Timer tmrSend
Enabled = 0 'False
Index = 1
Left = 5160
Top = 10320
End
Begin VB.Timer tmrPoll
Enabled = 0 'False
Index = 1
Left = 5640
Top = 10320
End
Begin VB.Label lblScope
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "-"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 95
Left = 6480
TabIndex = 224
Top = 6840
Width = 135
End
Begin VB.Label lblScope
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "-"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 94
Left = 6330
TabIndex = 223
Top = 6840
Width = 135
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -