📄 form1.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
Caption = "Modbus TCP/IP Client For TSX ETZ"
ClientHeight = 6495
ClientLeft = 60
ClientTop = 345
ClientWidth = 9765
LinkTopic = "Form1"
ScaleHeight = 6495
ScaleWidth = 9765
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 8280
Top = 2280
End
Begin VB.TextBox Text5
BackColor = &H000000FF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 238
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2520
TabIndex = 72
Text = "Disconnected"
Top = 4800
Width = 3855
End
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
Height = 285
Left = 360
TabIndex = 70
Text = "212.160.58.94"
Top = 4800
Width = 1335
End
Begin MSWinsockLib.Winsock Winsock1
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemoteHost = "85.16.23.23"
RemotePort = 502
End
Begin VB.CommandButton Command4
Caption = "Write Registers"
Height = 495
Left = 5280
TabIndex = 69
Top = 5880
Width = 1575
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 61
Left = 8400
TabIndex = 68
Text = "0"
Top = 840
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 60
Left = 8400
TabIndex = 67
Text = "0"
Top = 480
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 59
Left = 7080
TabIndex = 66
Text = "0"
Top = 3720
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 58
Left = 7080
TabIndex = 65
Text = "0"
Top = 3360
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 57
Left = 7080
TabIndex = 64
Text = "0"
Top = 3000
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 56
Left = 7080
TabIndex = 63
Text = "0"
Top = 2640
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 55
Left = 7080
TabIndex = 62
Text = "0"
Top = 2280
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 54
Left = 7080
TabIndex = 61
Text = "0"
Top = 1920
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 53
Left = 7080
TabIndex = 60
Text = "0"
Top = 1560
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 52
Left = 7080
TabIndex = 59
Text = "0"
Top = 1200
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 51
Left = 7080
TabIndex = 58
Text = "0"
Top = 840
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 50
Left = 7080
TabIndex = 57
Text = "0"
Top = 480
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 49
Left = 5760
TabIndex = 56
Text = "0"
Top = 3720
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 48
Left = 5760
TabIndex = 55
Text = "0"
Top = 3360
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 47
Left = 5760
TabIndex = 54
Text = "0"
Top = 3000
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 46
Left = 5760
TabIndex = 53
Text = "0"
Top = 2640
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 45
Left = 5760
TabIndex = 52
Text = "0"
Top = 2280
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 44
Left = 5760
TabIndex = 51
Text = "0"
Top = 1920
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 43
Left = 5760
TabIndex = 50
Text = "0"
Top = 1560
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 42
Left = 5760
TabIndex = 49
Text = "0"
Top = 1200
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 41
Left = 5760
TabIndex = 48
Text = "0"
Top = 840
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 40
Left = 5760
TabIndex = 47
Text = "0"
Top = 480
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1045
SubFormatType = 1
EndProperty
Height = 285
Index = 39
Left = 4440
TabIndex = 46
Text = "0"
Top = 3720
Width = 735
End
Begin VB.TextBox Text4
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -