📄 frmmain.frm
字号:
VERSION 5.00
Object = "{530785A0-E4E5-490D-83B1-D1C602C8910B}#1.0#0"; "HCCom3A.ocx"
Begin VB.Form frmMain
BackColor = &H00000000&
Caption = "B Section"
ClientHeight = 8115
ClientLeft = 60
ClientTop = 345
ClientWidth = 9105
LinkTopic = "Form1"
ScaleHeight = 8115
ScaleWidth = 9105
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Quit
BackColor = &H0000FFFF&
Caption = "Quit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6720
MaskColor = &H00000000&
Style = 1 'Graphical
TabIndex = 70
Top = 7320
Width = 1455
End
Begin VB.CommandButton Connect
BackColor = &H0000FFFF&
Caption = "Connect"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6720
MaskColor = &H000000FF&
Style = 1 'Graphical
TabIndex = 69
Top = 6480
Width = 1455
End
Begin HCCOM3ALib.HCCom3A m_HCCom3A1
Height = 375
Left = 6480
TabIndex = 68
Top = 5760
Visible = 0 'False
Width = 615
_Version = 65536
_ExtentX = 1085
_ExtentY = 661
_StockProps = 0
LocalPort = 1006
LocalIP = "192.168.0.1"
RemotePort = 1002
RemoteIP = "192.168.0.11"
End
Begin VB.Timer Timer1
Interval = 1000
Left = 7920
Top = 5760
End
Begin VB.Frame Frame1
BackColor = &H00000000&
Caption = "Write To DCS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 4815
Left = 5880
TabIndex = 53
Top = 840
Width = 3135
Begin VB.TextBox txtListenData
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1560
TabIndex = 67
Top = 4080
Width = 1095
End
Begin VB.TextBox txtSendData6
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1560
TabIndex = 66
Top = 3480
Width = 1095
End
Begin VB.TextBox txtSendData5
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1560
TabIndex = 65
Top = 2880
Width = 1095
End
Begin VB.TextBox txtSendData4
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1560
TabIndex = 64
Top = 2280
Width = 1095
End
Begin VB.TextBox txtSendData3
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1560
TabIndex = 63
Top = 1680
Width = 1095
End
Begin VB.TextBox txtSendData2
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1560
TabIndex = 62
Top = 1080
Width = 1095
End
Begin VB.TextBox txtSendData1
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1560
TabIndex = 61
Top = 480
Width = 1095
End
Begin VB.Label Label33
BackColor = &H00000000&
Caption = "LISTENSIGN B"
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 60
Top = 4080
Width = 1215
End
Begin VB.Label Label32
BackColor = &H00000000&
Caption = "NMFV-3216.OP"
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 59
Top = 3480
Width = 1215
End
Begin VB.Label Label31
BackColor = &H00000000&
Caption = "NMFV-3215.OP"
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 58
Top = 2880
Width = 1215
End
Begin VB.Label Label30
BackColor = &H00000000&
Caption = "NMFV-3214.OP"
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 57
Top = 2280
Width = 1215
End
Begin VB.Label Label29
BackColor = &H00000000&
Caption = "NMFV-3213.OP"
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 56
Top = 1680
Width = 1215
End
Begin VB.Label Label28
BackColor = &H00000000&
Caption = "NMFV-3212.OP"
ForeColor = &H000000FF&
Height = 240
Left = 240
TabIndex = 55
Top = 1080
Width = 1215
End
Begin VB.Label Label27
BackColor = &H00000000&
Caption = "NMFV-3211.OP"
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 54
Top = 480
Width = 1095
End
End
Begin VB.Frame Frame
BackColor = &H00000000&
Caption = "Read From DCS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 7095
Left = 120
TabIndex = 0
Top = 840
Width = 5655
Begin VB.TextBox txtGetData27
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1440
TabIndex = 73
Top = 6600
Width = 1095
End
Begin VB.TextBox txtGetData26
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 52
Top = 6120
Width = 1095
End
Begin VB.TextBox txtGetData25
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 51
Top = 5640
Width = 1095
End
Begin VB.TextBox txtGetData24
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 50
Top = 5160
Width = 1095
End
Begin VB.TextBox txtGetData23
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 49
Top = 4680
Width = 1095
End
Begin VB.TextBox txtGetData22
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 48
Top = 4200
Width = 1095
End
Begin VB.TextBox txtGetData21
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 47
Top = 3720
Width = 1095
End
Begin VB.TextBox txtGetData20
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 46
Top = 3240
Width = 1095
End
Begin VB.TextBox txtGetData19
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 45
Top = 2760
Width = 1095
End
Begin VB.TextBox txtGetData18
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 44
Top = 2280
Width = 1095
End
Begin VB.TextBox txtGetData17
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 43
Top = 1800
Width = 1095
End
Begin VB.TextBox txtGetData16
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 42
Top = 1320
Width = 1095
End
Begin VB.TextBox txtGetData15
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 41
Top = 840
Width = 1095
End
Begin VB.TextBox txtGetData14
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 40
Top = 360
Width = 1095
End
Begin VB.TextBox txtGetData13
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1440
TabIndex = 26
Top = 6120
Width = 1095
End
Begin VB.TextBox txtGetData12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -