simple vb .net opc example.vb

vb6.0与OPCSERVER的完整例子

		Me._OPCItemQuality_7.ReadOnly = True
		Me._OPCItemQuality_7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_7.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_7.TabIndex = 127
		Me._OPCItemQuality_7.Text = ""
		'
		'_OPCItemQuality_6
		'
		Me._OPCItemQuality_6.AcceptsReturn = True
		Me._OPCItemQuality_6.AutoSize = False
		Me._OPCItemQuality_6.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_6.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_6.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_6.Location = New System.Drawing.Point(660, 411)
		Me._OPCItemQuality_6.MaxLength = 0
		Me._OPCItemQuality_6.Name = "_OPCItemQuality_6"
		Me._OPCItemQuality_6.ReadOnly = True
		Me._OPCItemQuality_6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_6.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_6.TabIndex = 126
		Me._OPCItemQuality_6.Text = ""
		'
		'_OPCItemQuality_5
		'
		Me._OPCItemQuality_5.AcceptsReturn = True
		Me._OPCItemQuality_5.AutoSize = False
		Me._OPCItemQuality_5.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_5.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_5.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_5.Location = New System.Drawing.Point(660, 387)
		Me._OPCItemQuality_5.MaxLength = 0
		Me._OPCItemQuality_5.Name = "_OPCItemQuality_5"
		Me._OPCItemQuality_5.ReadOnly = True
		Me._OPCItemQuality_5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_5.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_5.TabIndex = 125
		Me._OPCItemQuality_5.Text = ""
		'
		'_OPCItemQuality_4
		'
		Me._OPCItemQuality_4.AcceptsReturn = True
		Me._OPCItemQuality_4.AutoSize = False
		Me._OPCItemQuality_4.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_4.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_4.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_4.Location = New System.Drawing.Point(660, 363)
		Me._OPCItemQuality_4.MaxLength = 0
		Me._OPCItemQuality_4.Name = "_OPCItemQuality_4"
		Me._OPCItemQuality_4.ReadOnly = True
		Me._OPCItemQuality_4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_4.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_4.TabIndex = 124
		Me._OPCItemQuality_4.Text = ""
		'
		'_OPCItemQuality_3
		'
		Me._OPCItemQuality_3.AcceptsReturn = True
		Me._OPCItemQuality_3.AutoSize = False
		Me._OPCItemQuality_3.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_3.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_3.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_3.Location = New System.Drawing.Point(660, 339)
		Me._OPCItemQuality_3.MaxLength = 0
		Me._OPCItemQuality_3.Name = "_OPCItemQuality_3"
		Me._OPCItemQuality_3.ReadOnly = True
		Me._OPCItemQuality_3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_3.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_3.TabIndex = 123
		Me._OPCItemQuality_3.Text = ""
		'
		'_OPCItemQuality_2
		'
		Me._OPCItemQuality_2.AcceptsReturn = True
		Me._OPCItemQuality_2.AutoSize = False
		Me._OPCItemQuality_2.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_2.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_2.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_2.Location = New System.Drawing.Point(660, 315)
		Me._OPCItemQuality_2.MaxLength = 0
		Me._OPCItemQuality_2.Name = "_OPCItemQuality_2"
		Me._OPCItemQuality_2.ReadOnly = True
		Me._OPCItemQuality_2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_2.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_2.TabIndex = 122
		Me._OPCItemQuality_2.Text = ""
		'
		'_OPCItemQuality_1
		'
		Me._OPCItemQuality_1.AcceptsReturn = True
		Me._OPCItemQuality_1.AutoSize = False
		Me._OPCItemQuality_1.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemQuality_1.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemQuality_1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemQuality_1.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemQuality_1.Location = New System.Drawing.Point(660, 291)
		Me._OPCItemQuality_1.MaxLength = 0
		Me._OPCItemQuality_1.Name = "_OPCItemQuality_1"
		Me._OPCItemQuality_1.ReadOnly = True
		Me._OPCItemQuality_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemQuality_1.Size = New System.Drawing.Size(57, 19)
		Me._OPCItemQuality_1.TabIndex = 121
		Me._OPCItemQuality_1.Text = ""
		'
		'_OPCItemValue_9
		'
		Me._OPCItemValue_9.AcceptsReturn = True
		Me._OPCItemValue_9.AutoSize = False
		Me._OPCItemValue_9.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValue_9.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValue_9.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValue_9.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValue_9.Location = New System.Drawing.Point(212, 483)
		Me._OPCItemValue_9.MaxLength = 0
		Me._OPCItemValue_9.Name = "_OPCItemValue_9"
		Me._OPCItemValue_9.ReadOnly = True
		Me._OPCItemValue_9.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValue_9.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValue_9.TabIndex = 120
		Me._OPCItemValue_9.Text = ""
		'
		'_OPCItemValue_8
		'
		Me._OPCItemValue_8.AcceptsReturn = True
		Me._OPCItemValue_8.AutoSize = False
		Me._OPCItemValue_8.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValue_8.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValue_8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValue_8.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValue_8.Location = New System.Drawing.Point(212, 459)
		Me._OPCItemValue_8.MaxLength = 0
		Me._OPCItemValue_8.Name = "_OPCItemValue_8"
		Me._OPCItemValue_8.ReadOnly = True
		Me._OPCItemValue_8.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValue_8.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValue_8.TabIndex = 119
		Me._OPCItemValue_8.Text = ""
		'
		'_OPCItemValue_7
		'
		Me._OPCItemValue_7.AcceptsReturn = True
		Me._OPCItemValue_7.AutoSize = False
		Me._OPCItemValue_7.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValue_7.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValue_7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValue_7.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValue_7.Location = New System.Drawing.Point(212, 435)
		Me._OPCItemValue_7.MaxLength = 0
		Me._OPCItemValue_7.Name = "_OPCItemValue_7"
		Me._OPCItemValue_7.ReadOnly = True
		Me._OPCItemValue_7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValue_7.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValue_7.TabIndex = 118
		Me._OPCItemValue_7.Text = ""
		'
		'_OPCItemValue_6
		'
		Me._OPCItemValue_6.AcceptsReturn = True
		Me._OPCItemValue_6.AutoSize = False
		Me._OPCItemValue_6.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValue_6.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValue_6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValue_6.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValue_6.Location = New System.Drawing.Point(212, 411)
		Me._OPCItemValue_6.MaxLength = 0
		Me._OPCItemValue_6.Name = "_OPCItemValue_6"
		Me._OPCItemValue_6.ReadOnly = True
		Me._OPCItemValue_6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValue_6.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValue_6.TabIndex = 117
		Me._OPCItemValue_6.Text = ""
		'
		'_OPCItemValue_5
		'
		Me._OPCItemValue_5.AcceptsReturn = True
		Me._OPCItemValue_5.AutoSize = False
		Me._OPCItemValue_5.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValue_5.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValue_5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValue_5.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValue_5.Location = New System.Drawing.Point(212, 387)
		Me._OPCItemValue_5.MaxLength = 0
		Me._OPCItemValue_5.Name = "_OPCItemValue_5"
		Me._OPCItemValue_5.ReadOnly = True
		Me._OPCItemValue_5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValue_5.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValue_5.TabIndex = 116
		Me._OPCItemValue_5.Text = ""
		'
		'_OPCItemValue_4
		'
		Me._OPCItemValue_4.AcceptsReturn = True
		Me._OPCItemValue_4.AutoSize = False
		Me._OPCItemValue_4.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValue_4.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValue_4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValue_4.ForeColor = System.Drawing.SystemColors.WindowText
		Me._OPCItemValue_4.Location = New System.Drawing.Point(212, 363)
		Me._OPCItemValue_4.MaxLength = 0
		Me._OPCItemValue_4.Name = "_OPCItemValue_4"
		Me._OPCItemValue_4.ReadOnly = True
		Me._OPCItemValue_4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemValue_4.Size = New System.Drawing.Size(97, 19)
		Me._OPCItemValue_4.TabIndex = 115
		Me._OPCItemValue_4.Text = ""
		'
		'_OPCItemValue_3
		'
		Me._OPCItemValue_3.AcceptsReturn = True
		Me._OPCItemValue_3.AutoSize = False
		Me._OPCItemValue_3.BackColor = System.Drawing.SystemColors.Window
		Me._OPCItemValue_3.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._OPCItemValue_3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemValue_3.ForeColor = System.Drawin