simple vb .net opc example.vb

vb6.0与OPCSERVER的完整例子

		Me.Frame1 = New System.Windows.Forms.GroupBox
		Me.lblOPCNodeName = New System.Windows.Forms.Label
		Me.Frame2 = New System.Windows.Forms.GroupBox
		Me._OPCItemQuality_0 = New System.Windows.Forms.TextBox
		Me._OPCItemValue_0 = New System.Windows.Forms.TextBox
		Me.Label9 = New System.Windows.Forms.Label
		Me.Label8 = New System.Windows.Forms.Label
		Me.Label7 = New System.Windows.Forms.Label
		Me.Label4 = New System.Windows.Forms.Label
		Me.OPCGroupFrame.SuspendLayout()
		Me.Frame1.SuspendLayout()
		Me.Frame2.SuspendLayout()
		Me.SuspendLayout()
		'
		'_OPCItemSyncReadButton_9
		'
		Me._OPCItemSyncReadButton_9.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_9.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_9.Enabled = False
		Me._OPCItemSyncReadButton_9.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_9.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_9.Location = New System.Drawing.Point(580, 483)
		Me._OPCItemSyncReadButton_9.Name = "_OPCItemSyncReadButton_9"
		Me._OPCItemSyncReadButton_9.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_9.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_9.TabIndex = 165
		Me._OPCItemSyncReadButton_9.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_9, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemSyncReadButton_8
		'
		Me._OPCItemSyncReadButton_8.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_8.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_8.Enabled = False
		Me._OPCItemSyncReadButton_8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_8.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_8.Location = New System.Drawing.Point(580, 459)
		Me._OPCItemSyncReadButton_8.Name = "_OPCItemSyncReadButton_8"
		Me._OPCItemSyncReadButton_8.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_8.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_8.TabIndex = 164
		Me._OPCItemSyncReadButton_8.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_8, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemSyncReadButton_7
		'
		Me._OPCItemSyncReadButton_7.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_7.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_7.Enabled = False
		Me._OPCItemSyncReadButton_7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_7.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_7.Location = New System.Drawing.Point(580, 435)
		Me._OPCItemSyncReadButton_7.Name = "_OPCItemSyncReadButton_7"
		Me._OPCItemSyncReadButton_7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_7.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_7.TabIndex = 163
		Me._OPCItemSyncReadButton_7.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_7, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemSyncReadButton_6
		'
		Me._OPCItemSyncReadButton_6.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_6.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_6.Enabled = False
		Me._OPCItemSyncReadButton_6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_6.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_6.Location = New System.Drawing.Point(580, 411)
		Me._OPCItemSyncReadButton_6.Name = "_OPCItemSyncReadButton_6"
		Me._OPCItemSyncReadButton_6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_6.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_6.TabIndex = 162
		Me._OPCItemSyncReadButton_6.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_6, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemSyncReadButton_5
		'
		Me._OPCItemSyncReadButton_5.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_5.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_5.Enabled = False
		Me._OPCItemSyncReadButton_5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_5.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_5.Location = New System.Drawing.Point(580, 387)
		Me._OPCItemSyncReadButton_5.Name = "_OPCItemSyncReadButton_5"
		Me._OPCItemSyncReadButton_5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_5.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_5.TabIndex = 161
		Me._OPCItemSyncReadButton_5.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_5, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemSyncReadButton_4
		'
		Me._OPCItemSyncReadButton_4.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_4.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_4.Enabled = False
		Me._OPCItemSyncReadButton_4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_4.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_4.Location = New System.Drawing.Point(580, 363)
		Me._OPCItemSyncReadButton_4.Name = "_OPCItemSyncReadButton_4"
		Me._OPCItemSyncReadButton_4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_4.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_4.TabIndex = 160
		Me._OPCItemSyncReadButton_4.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_4, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemSyncReadButton_3
		'
		Me._OPCItemSyncReadButton_3.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_3.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_3.Enabled = False
		Me._OPCItemSyncReadButton_3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_3.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_3.Location = New System.Drawing.Point(580, 339)
		Me._OPCItemSyncReadButton_3.Name = "_OPCItemSyncReadButton_3"
		Me._OPCItemSyncReadButton_3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_3.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_3.TabIndex = 159
		Me._OPCItemSyncReadButton_3.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_3, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemSyncReadButton_2
		'
		Me._OPCItemSyncReadButton_2.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_2.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_2.Enabled = False
		Me._OPCItemSyncReadButton_2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_2.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_2.Location = New System.Drawing.Point(580, 315)
		Me._OPCItemSyncReadButton_2.Name = "_OPCItemSyncReadButton_2"
		Me._OPCItemSyncReadButton_2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_2.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_2.TabIndex = 158
		Me._OPCItemSyncReadButton_2.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_2, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemSyncReadButton_1
		'
		Me._OPCItemSyncReadButton_1.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemSyncReadButton_1.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemSyncReadButton_1.Enabled = False
		Me._OPCItemSyncReadButton_1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemSyncReadButton_1.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemSyncReadButton_1.Location = New System.Drawing.Point(580, 291)
		Me._OPCItemSyncReadButton_1.Name = "_OPCItemSyncReadButton_1"
		Me._OPCItemSyncReadButton_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemSyncReadButton_1.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemSyncReadButton_1.TabIndex = 157
		Me._OPCItemSyncReadButton_1.Text = "Sync Read"
		Me.ToolTip1.SetToolTip(Me._OPCItemSyncReadButton_1, "Click here to perform a Synchronous read of this OPC Item")
		'
		'_OPCItemActiveState_9
		'
		Me._OPCItemActiveState_9.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_9.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_9.Checked = True
		Me._OPCItemActiveState_9.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_9.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_9.Enabled = False
		Me._OPCItemActiveState_9.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_9.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_9.Location = New System.Drawing.Point(508, 483)
		Me._OPCItemActiveState_9.Name = "_OPCItemActiveState_9"
		Me._OPCItemActiveState_9.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_9.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_9.TabIndex = 156
		Me._OPCItemActiveState_9.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_9, "Click here to change the active state of this item")
		'
		'_OPCItemActiveState_8
		'
		Me._OPCItemActiveState_8.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_8.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_8.Checked = True
		Me._OPCItemActiveState_8.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_8.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_8.Enabled = False
		Me._OPCItemActiveState_8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_8.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_8.Location = New System.Drawing.Point(508, 459)
		Me._OPCItemActiveState_8.Name = "_OPCItemActiveState_8"
		Me._OPCItemActiveState_8.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_8.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_8.TabIndex = 155
		Me._OPCItemActiveState_8.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_8, "Click here to change the active state of this item")
		'
		'_OPCItemActiveState_7
		'
		Me._OPCItemActiveState_7.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_7.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_7.Checked = True
		Me._OPCItemActiveState_7.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_7.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_7.Enabled = False
		Me._OPCItemActiveState_7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_7.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_7.Location = New System.Drawing.Point(508, 435)
		Me._OPCItemActiveState_7.Name = "_OPCItemActiveState_7"
		Me._OPCItemActiveState_7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_7.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_7.TabIndex = 154
		Me._OPCItemActiveState_7.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_7, "Click here to change the active state of this item")
		'
		'_OPCItemActiveState_6
		'
		Me._OPCItemActiveState_6.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_6.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_6.Checked = True
		Me._OPCItemActiveState_6.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_6.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_6.Enabled = False
		Me._OPCItemActiveState_6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_6.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_6.Location = New System.Drawing.Point(508, 411)
		Me._OPCItemActiveState_6.Name = "_OPCItemActiveState_6"
		Me._OPCItemActiveState_6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_6.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_6.TabIndex = 153