simple vb .net opc example.vb

vb6.0与OPCSERVER的完整例子

		Me._OPCItemWriteButton_1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_1.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_1.Location = New System.Drawing.Point(428, 291)
		Me._OPCItemWriteButton_1.Name = "_OPCItemWriteButton_1"
		Me._OPCItemWriteButton_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_1.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_1.TabIndex = 139
		Me._OPCItemWriteButton_1.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_1, "Click here to send the value entered in the 'Value to Write' field using a Synchr" & _
		"onous Write")
		'
		'_OPCItemValueToWrite_9
		'
		Me._OPCItemValueToWrite_9.AcceptsReturn = True
		Me._OPCItemValueToWrite_9.AutoSize = False
		Me._OPCItemValueToWrite_9.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_9.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_9.Enabled = False
		Me._OPCItemValueToWrite_9.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_9.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_9.Location = New System.Drawing.Point(316, 483)
		Me._OPCItemValueToWrite_9.MaxLength = 0
		Me._OPCItemValueToWrite_9.Name = "_OPCItemValueToWrite_9"
		Me._OPCItemValueToWrite_9.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_9.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_9.TabIndex = 138
		Me._OPCItemValueToWrite_9.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_9, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemValueToWrite_8
		'
		Me._OPCItemValueToWrite_8.AcceptsReturn = True
		Me._OPCItemValueToWrite_8.AutoSize = False
		Me._OPCItemValueToWrite_8.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_8.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_8.Enabled = False
		Me._OPCItemValueToWrite_8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_8.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_8.Location = New System.Drawing.Point(316, 459)
		Me._OPCItemValueToWrite_8.MaxLength = 0
		Me._OPCItemValueToWrite_8.Name = "_OPCItemValueToWrite_8"
		Me._OPCItemValueToWrite_8.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_8.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_8.TabIndex = 137
		Me._OPCItemValueToWrite_8.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_8, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemValueToWrite_7
		'
		Me._OPCItemValueToWrite_7.AcceptsReturn = True
		Me._OPCItemValueToWrite_7.AutoSize = False
		Me._OPCItemValueToWrite_7.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_7.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_7.Enabled = False
		Me._OPCItemValueToWrite_7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_7.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_7.Location = New System.Drawing.Point(316, 435)
		Me._OPCItemValueToWrite_7.MaxLength = 0
		Me._OPCItemValueToWrite_7.Name = "_OPCItemValueToWrite_7"
		Me._OPCItemValueToWrite_7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_7.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_7.TabIndex = 136
		Me._OPCItemValueToWrite_7.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_7, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemValueToWrite_6
		'
		Me._OPCItemValueToWrite_6.AcceptsReturn = True
		Me._OPCItemValueToWrite_6.AutoSize = False
		Me._OPCItemValueToWrite_6.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_6.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_6.Enabled = False
		Me._OPCItemValueToWrite_6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_6.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_6.Location = New System.Drawing.Point(316, 411)
		Me._OPCItemValueToWrite_6.MaxLength = 0
		Me._OPCItemValueToWrite_6.Name = "_OPCItemValueToWrite_6"
		Me._OPCItemValueToWrite_6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_6.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_6.TabIndex = 135
		Me._OPCItemValueToWrite_6.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_6, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemValueToWrite_5
		'
		Me._OPCItemValueToWrite_5.AcceptsReturn = True
		Me._OPCItemValueToWrite_5.AutoSize = False
		Me._OPCItemValueToWrite_5.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_5.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_5.Enabled = False
		Me._OPCItemValueToWrite_5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_5.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_5.Location = New System.Drawing.Point(316, 387)
		Me._OPCItemValueToWrite_5.MaxLength = 0
		Me._OPCItemValueToWrite_5.Name = "_OPCItemValueToWrite_5"
		Me._OPCItemValueToWrite_5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_5.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_5.TabIndex = 134
		Me._OPCItemValueToWrite_5.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_5, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemValueToWrite_4
		'
		Me._OPCItemValueToWrite_4.AcceptsReturn = True
		Me._OPCItemValueToWrite_4.AutoSize = False
		Me._OPCItemValueToWrite_4.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_4.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_4.Enabled = False
		Me._OPCItemValueToWrite_4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_4.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_4.Location = New System.Drawing.Point(316, 363)
		Me._OPCItemValueToWrite_4.MaxLength = 0
		Me._OPCItemValueToWrite_4.Name = "_OPCItemValueToWrite_4"
		Me._OPCItemValueToWrite_4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_4.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_4.TabIndex = 133
		Me._OPCItemValueToWrite_4.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_4, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemValueToWrite_3
		'
		Me._OPCItemValueToWrite_3.AcceptsReturn = True
		Me._OPCItemValueToWrite_3.AutoSize = False
		Me._OPCItemValueToWrite_3.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_3.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_3.Enabled = False
		Me._OPCItemValueToWrite_3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_3.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_3.Location = New System.Drawing.Point(316, 339)
		Me._OPCItemValueToWrite_3.MaxLength = 0
		Me._OPCItemValueToWrite_3.Name = "_OPCItemValueToWrite_3"
		Me._OPCItemValueToWrite_3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_3.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_3.TabIndex = 132
		Me._OPCItemValueToWrite_3.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_3, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemValueToWrite_2
		'
		Me._OPCItemValueToWrite_2.AcceptsReturn = True
		Me._OPCItemValueToWrite_2.AutoSize = False
		Me._OPCItemValueToWrite_2.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_2.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_2.Enabled = False
		Me._OPCItemValueToWrite_2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_2.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_2.Location = New System.Drawing.Point(316, 315)
		Me._OPCItemValueToWrite_2.MaxLength = 0
		Me._OPCItemValueToWrite_2.Name = "_OPCItemValueToWrite_2"
		Me._OPCItemValueToWrite_2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_2.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_2.TabIndex = 131
		Me._OPCItemValueToWrite_2.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_2, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemValueToWrite_1
		'
		Me._OPCItemValueToWrite_1.AcceptsReturn = True
		Me._OPCItemValueToWrite_1.AutoSize = False
		Me._OPCItemValueToWrite_1.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValueToWrite_1.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValueToWrite_1.Enabled = False
		Me._OPCItemValueToWrite_1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValueToWrite_1.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValueToWrite_1.Location = New System.Drawing.Point(316, 291)
		Me._OPCItemValueToWrite_1.MaxLength = 0
		Me._OPCItemValueToWrite_1.Name = "_OPCItemValueToWrite_1"
		Me._OPCItemValueToWrite_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValueToWrite_1.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValueToWrite_1.TabIndex = 130
		Me._OPCItemValueToWrite_1.Text = "0"
		Me.ToolTip1.SetToolTip(Me._OPCItemValueToWrite_1, "Enter the value to written here then click the 'Write Value' button")
		'
		'_OPCItemQuality_9
		'
		Me._OPCItemQuality_9.AcceptsReturn = True
		Me._OPCItemQuality_9.AutoSize = False
		Me._OPCItemQuality_9.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_9.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_9.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_9.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_9.Location = New System.Drawing.Point(660, 483)
		Me._OPCItemQuality_9.MaxLength = 0
		Me._OPCItemQuality_9.Name = "_OPCItemQuality_9"
		Me._OPCItemQuality_9.ReadOnly = True
		Me._OPCItemQuality_9.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_9.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_9.TabIndex = 129
		Me._OPCItemQuality_9.Text = ""
		'
		'_OPCItemQuality_8
		'
		Me._OPCItemQuality_8.AcceptsReturn = True
		Me._OPCItemQuality_8.AutoSize = False
		Me._OPCItemQuality_8.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_8.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_8.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_8.Location = New System.Drawing.Point(660, 459)
		Me._OPCItemQuality_8.MaxLength = 0
		Me._OPCItemQuality_8.Name = "_OPCItemQuality_8"
		Me._OPCItemQuality_8.ReadOnly = True
		Me._OPCItemQuality_8.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_8.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_8.TabIndex = 128
		Me._OPCItemQuality_8.Text = ""
		'
		'_OPCItemQuality_7
		'
		Me._OPCItemQuality_7.AcceptsReturn = True
		Me._OPCItemQuality_7.AutoSize = False
		Me._OPCItemQuality_7.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_7.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_7.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_7.Location = New System.Drawing.Point(660, 435)
		Me._OPCItemQuality_7.MaxLength = 0
		Me._OPCItemQuality_7.Name = "_OPCItemQuality_7"