📄 opc.frm
字号:
TabIndex = 19
ToolTipText = "输入OPC项名称，格式为OPC服务器名.工位号名.TAG名"
Top = 4320
Width = 2775
End
Begin VB.TextBox OPCItemName
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 120
TabIndex = 18
ToolTipText = "输入OPC项名称，格式为OPC服务器名.工位号名.TAG名"
Top = 3960
Width = 2775
End
Begin VB.TextBox OPCItemName
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 120
TabIndex = 17
ToolTipText = "输入OPC项名称，格式为OPC服务器名.工位号名.TAG名"
Top = 3600
Width = 2775
End
Begin VB.Frame OPCGroupFrame
Caption = "添加OPC组"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2775
Left = 3720
TabIndex = 7
Top = 0
Width = 3855
Begin VB.CommandButton RemoveOPCGroup
Caption = "删除组"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1920
TabIndex = 16
ToolTipText = "点击此处从服务器删除组，但必须先删除组中的项"
Top = 2160
Width = 1575
End
Begin VB.CommandButton AddOPCGroup
Caption = "添加组"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 15
ToolTipText = "设置完组的各个属性后点击此处添加组"
Top = 2160
Width = 1575
End
Begin VB.CheckBox GroupActiveState
Alignment = 1 'Right Justify
Caption = "组是否被激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 14
ToolTipText = "设置组的激活状态，可在运行时更改"
Top = 1680
Value = 1 'Checked
Width = 1575
End
Begin VB.TextBox GroupDeadBand
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1800
TabIndex = 13
Text = "0"
ToolTipText = "输入组的死区宽度，默认为0"
Top = 1200
Width = 1695
End
Begin VB.TextBox GroupUpdateRate
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1800
TabIndex = 11
Text = "100"
ToolTipText = "输入组刷新率，此处可在运行时更改"
Top = 720
Width = 1695
End
Begin VB.TextBox OPCGroupName
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1800
TabIndex = 9
Text = "1"
ToolTipText = "输入任意的组名称"
Top = 240
Width = 1695
End
Begin VB.Label Label6
Caption = "死区宽度(%)"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 12
Top = 1200
Width = 1095
End
Begin VB.Label Label5
Caption = "刷新率(ms)"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 10
Top = 720
Width = 1095
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "组名"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 8
Top = 240
Width = 1215
End
End
Begin VB.CommandButton ExitExample
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 8520
TabIndex = 5
ToolTipText = "退出程序"
Top = 2400
Width = 1215
End
Begin VB.TextBox OPCServerName
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1080
TabIndex = 4
Text = "点击列表中的项目"
ToolTipText = "可以从上面的服务器列表中选择要连接的服务器，也可以在这里输入"
Top = 1680
Width = 2055
End
Begin VB.ListBox AvailableOPCServerList
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1035
ItemData = "OPC.frx":003E
Left = 120
List = "OPC.frx":0040
TabIndex = 2
ToolTipText = "选择列表中的OPC服务器，点击下面的“连接”按钮"
Top = 600
Width = 3015
End
Begin VB.CommandButton ListOPCServers
Caption = "OPC服务器列表"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1
ToolTipText = "点击此处列出可用的OPC服务器，然后点击要连接的服务器"
Top = 240
Width = 2655
End
Begin VB.CommandButton OPCServerConnect
Caption = "连接"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 0
ToolTipText = "选择OPC服务器后点击此按钮"
Top = 1680
Width = 855
End
Begin VB.Frame Frame1
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2775
Left = 0
TabIndex = 3
Top = 0
Width = 3495
Begin VB.TextBox OPCNodeName
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1080
TabIndex = 83
ToolTipText = "输入运行OPC服务器的计算机名称，本地计算机上运行的服务器此处可不用输入"
Top = 2040
Width = 2055
End
Begin VB.CommandButton DisconnectFromServer
Caption = "从服务器断开"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 6
ToolTipText = "断开与OPC服务器的连接以释放资源"
Top = 2400
Width = 2055
End
Begin VB.Label lblOPCNodeName
Caption = "节点名称"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -