📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00808000&
Caption = "OPC Client Demo Program "
ClientHeight = 10005
ClientLeft = 60
ClientTop = 345
ClientWidth = 12315
LinkTopic = "Form1"
ScaleHeight = 10005
ScaleWidth = 12315
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.TextBox Text3
Height = 375
Left = 9600
TabIndex = 93
Text = "200"
Top = 8520
Width = 1575
End
Begin VB.CommandButton Command24
Caption = "Write 21-30"
Height = 495
Left = 9600
TabIndex = 92
Top = 9000
Width = 1575
End
Begin VB.TextBox ItemID
Height = 288
Index = 5
Left = 1080
TabIndex = 83
Text = "Device1.Group.TAG5"
Top = 2280
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 6
Left = 1080
TabIndex = 82
Text = "Device1.Group.TAG6"
Top = 2760
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 7
Left = 1080
TabIndex = 81
Text = "Device1.Group.TAG7"
Top = 3120
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 8
Left = 1080
TabIndex = 80
Text = "Device1.Group.TAG8"
Top = 3600
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 9
Left = 1080
TabIndex = 79
Text = "Device1.Group.TAG9"
Top = 4080
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 10
Left = 1080
TabIndex = 78
Text = "Device1.Group.TAG10"
Top = 4560
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 11
Left = 1080
TabIndex = 77
Text = "Device1.Group.TAG11"
Top = 5040
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 12
Left = 1080
TabIndex = 76
Text = "Device1.Group.TAG12"
Top = 5520
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 13
Left = 1080
TabIndex = 75
Text = "Device1.Group.TAG13"
Top = 6000
Width = 1815
End
Begin VB.TextBox ItemID
Height = 288
Index = 14
Left = 1080
TabIndex = 74
Text = "Device1.Group.TAG14"
Top = 6480
Width = 1815
End
Begin VB.CommandButton Command20
Caption = "Write value-16"
Enabled = 0 'False
Height = 375
Left = 10800
TabIndex = 62
Top = 4680
Width = 1455
End
Begin VB.CommandButton Command19
Caption = "Write Data 07"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 61
Top = 5040
Width = 1455
End
Begin VB.CommandButton Command18
Caption = "Write Data 08"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 60
Top = 5520
Width = 1455
End
Begin VB.CommandButton Command17
Caption = "Write Data 09"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 59
Top = 6000
Width = 1455
End
Begin VB.CommandButton Command16
BackColor = &H80000001&
Caption = "Write 10 DATA To PLC"
Enabled = 0 'False
Height = 375
Left = 8760
TabIndex = 58
Top = 5520
Width = 2295
End
Begin VB.CommandButton Command15
Caption = "Write Data 06"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 57
Top = 4560
Width = 1455
End
Begin VB.TextBox ItemID
Height = 288
Index = 16
Left = 7200
TabIndex = 56
Text = "Device1.Group.TAG16"
Top = 4800
Width = 1815
End
Begin VB.TextBox SetValue
Height = 285
Index = 16
Left = 9240
TabIndex = 55
Text = "0"
Top = 4800
Width = 1335
End
Begin VB.TextBox ItemID
Height = 288
Index = 15
Left = 8760
TabIndex = 54
Text = "Device1.Group.TAG15"
Top = 8040
Visible = 0 'False
Width = 2775
End
Begin VB.TextBox SetValue
Height = 285
Index = 15
Left = 11640
TabIndex = 53
Text = "0"
Top = 8040
Visible = 0 'False
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 14
Left = 3120
TabIndex = 52
Text = "0"
Top = 6480
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 13
Left = 3120
TabIndex = 51
Text = "0"
Top = 6000
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 12
Left = 3120
TabIndex = 50
Text = "0"
Top = 5520
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 11
Left = 3120
TabIndex = 49
Text = "0"
Top = 5040
Width = 1335
End
Begin VB.CommandButton Command14
Caption = "Write Data 05"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 48
Top = 4080
Width = 1455
End
Begin VB.CommandButton Command13
Caption = "Write Data 01"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 47
Top = 2160
Width = 1455
End
Begin VB.CommandButton Command12
Caption = "Write Data 02"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 46
Top = 2640
Width = 1455
End
Begin VB.CommandButton Command11
Caption = "Write Data 03"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 45
Top = 3120
Width = 1455
End
Begin VB.CommandButton Command10
Caption = "Write Data 04"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 44
Top = 3600
Width = 1455
End
Begin VB.TextBox SetValue
Height = 285
Index = 10
Left = 3120
TabIndex = 43
Text = "0"
Top = 4560
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 9
Left = 3120
TabIndex = 42
Text = "0"
Top = 4080
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 8
Left = 3120
TabIndex = 41
Text = "0"
Top = 3600
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 7
Left = 3120
TabIndex = 40
Text = "0"
Top = 3120
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 6
Left = 3120
TabIndex = 39
Text = "0"
Top = 2760
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 5
Left = 3120
TabIndex = 38
Text = "0"
Top = 2280
Width = 1335
End
Begin VB.CommandButton Command9
Caption = "Write Data 10"
Enabled = 0 'False
Height = 375
Left = 4680
TabIndex = 37
Top = 6480
Width = 1455
End
Begin VB.TextBox ItemID
Height = 288
Index = 0
Left = 8760
TabIndex = 36
Text = "Device1.Group.TAG0"
Top = 7680
Visible = 0 'False
Width = 2775
End
Begin VB.TextBox SetValue
Height = 285
Index = 0
Left = 11640
TabIndex = 35
Text = "0"
Top = 7680
Visible = 0 'False
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 4
Left = 9240
TabIndex = 34
Text = "0"
Top = 4080
Width = 1335
End
Begin VB.TextBox ItemID
Height = 288
Index = 4
Left = 7200
TabIndex = 33
Text = "Device1.Group.TAG4"
Top = 4080
Width = 1815
End
Begin VB.TextBox Value
Height = 288
Index = 10
Left = 6240
Locked = -1 'True
TabIndex = 32
Top = 9600
Width = 2415
End
Begin VB.CommandButton Command8
Caption = "Write value-4"
Enabled = 0 'False
Height = 375
Left = 10800
TabIndex = 31
Top = 3960
Width = 1455
End
Begin VB.TextBox SetValue
Height = 285
Index = 3
Left = 9240
TabIndex = 30
Text = "0"
Top = 3600
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 2
Left = 9240
TabIndex = 27
Text = "0"
Top = 3120
Width = 1335
End
Begin VB.TextBox SetValue
Height = 285
Index = 1
Left = 9240
TabIndex = 26
Text = "0"
Top = 2400
Width = 1335
End
Begin VB.CommandButton Command6
Caption = "Write value-3"
Enabled = 0 'False
Height = 375
Left = 10800
TabIndex = 25
Top = 3480
Width = 1455
End
Begin VB.CommandButton Command5
Caption = "Write value-2"
Enabled = 0 'False
Height = 375
Left = 10800
TabIndex = 24
Top = 3000
Width = 1455
End
Begin VB.TextBox Text1
Height = 375
Left = 1800
TabIndex = 21
Text = "SunWareCorp.ModbusTCP"
Top = 480
Width = 2655
End
Begin VB.TextBox Text2
Height = 375
Left = 1800
TabIndex = 19
Top = 960
Width = 2655
End
Begin VB.ListBox List1
Height = 1320
Left = 5280
TabIndex = 18
Top = 480
Width = 3255
End
Begin VB.CommandButton Command7
Caption = "Search OPC"
Height = 375
Left = 240
TabIndex = 17
Top = 960
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -