⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 simple vb .net opc example.vb

📁 vb6.0与OPCSERVER的完整例子
💻 VB
📖 第 1 页 / 共 5 页
字号:
		Me._OPCItemActiveState_6.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_6, "Click here to change the active state of this item")
		'
		'_OPCItemActiveState_5
		'
		Me._OPCItemActiveState_5.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_5.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_5.Checked = True
		Me._OPCItemActiveState_5.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_5.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_5.Enabled = False
		Me._OPCItemActiveState_5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_5.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_5.Location = New System.Drawing.Point(508, 387)
		Me._OPCItemActiveState_5.Name = "_OPCItemActiveState_5"
		Me._OPCItemActiveState_5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_5.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_5.TabIndex = 152
		Me._OPCItemActiveState_5.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_5, "Click here to change the active state of this item")
		'
		'_OPCItemActiveState_4
		'
		Me._OPCItemActiveState_4.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_4.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_4.Checked = True
		Me._OPCItemActiveState_4.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_4.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_4.Enabled = False
		Me._OPCItemActiveState_4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_4.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_4.Location = New System.Drawing.Point(508, 363)
		Me._OPCItemActiveState_4.Name = "_OPCItemActiveState_4"
		Me._OPCItemActiveState_4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_4.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_4.TabIndex = 151
		Me._OPCItemActiveState_4.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_4, "Click here to change the active state of this item")
		'
		'_OPCItemActiveState_3
		'
		Me._OPCItemActiveState_3.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_3.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_3.Checked = True
		Me._OPCItemActiveState_3.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_3.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_3.Enabled = False
		Me._OPCItemActiveState_3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_3.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_3.Location = New System.Drawing.Point(508, 339)
		Me._OPCItemActiveState_3.Name = "_OPCItemActiveState_3"
		Me._OPCItemActiveState_3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_3.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_3.TabIndex = 150
		Me._OPCItemActiveState_3.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_3, "Click here to change the active state of this item")
		'
		'_OPCItemActiveState_2
		'
		Me._OPCItemActiveState_2.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_2.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_2.Checked = True
		Me._OPCItemActiveState_2.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_2.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_2.Enabled = False
		Me._OPCItemActiveState_2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_2.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_2.Location = New System.Drawing.Point(508, 315)
		Me._OPCItemActiveState_2.Name = "_OPCItemActiveState_2"
		Me._OPCItemActiveState_2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_2.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_2.TabIndex = 149
		Me._OPCItemActiveState_2.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_2, "Click here to change the active state of this item")
		'
		'_OPCItemActiveState_1
		'
		Me._OPCItemActiveState_1.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemActiveState_1.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
		Me._OPCItemActiveState_1.Checked = True
		Me._OPCItemActiveState_1.CheckState = System.Windows.Forms.CheckState.Checked
		Me._OPCItemActiveState_1.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemActiveState_1.Enabled = False
		Me._OPCItemActiveState_1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemActiveState_1.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemActiveState_1.Location = New System.Drawing.Point(508, 291)
		Me._OPCItemActiveState_1.Name = "_OPCItemActiveState_1"
		Me._OPCItemActiveState_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemActiveState_1.Size = New System.Drawing.Size(57, 17)
		Me._OPCItemActiveState_1.TabIndex = 148
		Me._OPCItemActiveState_1.Text = "Active"
		Me.ToolTip1.SetToolTip(Me._OPCItemActiveState_1, "Click here to change the active state of this item")
		'
		'_OPCItemWriteButton_9
		'
		Me._OPCItemWriteButton_9.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_9.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_9.Enabled = False
		Me._OPCItemWriteButton_9.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_9.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_9.Location = New System.Drawing.Point(428, 483)
		Me._OPCItemWriteButton_9.Name = "_OPCItemWriteButton_9"
		Me._OPCItemWriteButton_9.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_9.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_9.TabIndex = 147
		Me._OPCItemWriteButton_9.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_9, "Click here to send the value entered in the 'Value to Write' field")
		'
		'_OPCItemWriteButton_8
		'
		Me._OPCItemWriteButton_8.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_8.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_8.Enabled = False
		Me._OPCItemWriteButton_8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_8.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_8.Location = New System.Drawing.Point(428, 459)
		Me._OPCItemWriteButton_8.Name = "_OPCItemWriteButton_8"
		Me._OPCItemWriteButton_8.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_8.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_8.TabIndex = 146
		Me._OPCItemWriteButton_8.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_8, "Click here to send the value entered in the 'Value to Write' field")
		'
		'_OPCItemWriteButton_7
		'
		Me._OPCItemWriteButton_7.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_7.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_7.Enabled = False
		Me._OPCItemWriteButton_7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_7.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_7.Location = New System.Drawing.Point(428, 435)
		Me._OPCItemWriteButton_7.Name = "_OPCItemWriteButton_7"
		Me._OPCItemWriteButton_7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_7.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_7.TabIndex = 145
		Me._OPCItemWriteButton_7.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_7, "Click here to send the value entered in the 'Value to Write' field")
		'
		'_OPCItemWriteButton_6
		'
		Me._OPCItemWriteButton_6.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_6.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_6.Enabled = False
		Me._OPCItemWriteButton_6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_6.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_6.Location = New System.Drawing.Point(428, 411)
		Me._OPCItemWriteButton_6.Name = "_OPCItemWriteButton_6"
		Me._OPCItemWriteButton_6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_6.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_6.TabIndex = 144
		Me._OPCItemWriteButton_6.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_6, "Click here to send the value entered in the 'Value to Write' field")
		'
		'_OPCItemWriteButton_5
		'
		Me._OPCItemWriteButton_5.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_5.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_5.Enabled = False
		Me._OPCItemWriteButton_5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_5.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_5.Location = New System.Drawing.Point(428, 387)
		Me._OPCItemWriteButton_5.Name = "_OPCItemWriteButton_5"
		Me._OPCItemWriteButton_5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_5.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_5.TabIndex = 143
		Me._OPCItemWriteButton_5.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_5, "Click here to send the value entered in the 'Value to Write' field")
		'
		'_OPCItemWriteButton_4
		'
		Me._OPCItemWriteButton_4.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_4.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_4.Enabled = False
		Me._OPCItemWriteButton_4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_4.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_4.Location = New System.Drawing.Point(428, 363)
		Me._OPCItemWriteButton_4.Name = "_OPCItemWriteButton_4"
		Me._OPCItemWriteButton_4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_4.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_4.TabIndex = 142
		Me._OPCItemWriteButton_4.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_4, "Click here to send the value entered in the 'Value to Write' field")
		'
		'_OPCItemWriteButton_3
		'
		Me._OPCItemWriteButton_3.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_3.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_3.Enabled = False
		Me._OPCItemWriteButton_3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_3.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_3.Location = New System.Drawing.Point(428, 339)
		Me._OPCItemWriteButton_3.Name = "_OPCItemWriteButton_3"
		Me._OPCItemWriteButton_3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_3.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_3.TabIndex = 141
		Me._OPCItemWriteButton_3.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_3, "Click here to send the value entered in the 'Value to Write' field")
		'
		'_OPCItemWriteButton_2
		'
		Me._OPCItemWriteButton_2.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_2.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_2.Enabled = False
		Me._OPCItemWriteButton_2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me._OPCItemWriteButton_2.ForeColor = System.Drawing.SystemColors.ControlText
		Me._OPCItemWriteButton_2.Location = New System.Drawing.Point(428, 315)
		Me._OPCItemWriteButton_2.Name = "_OPCItemWriteButton_2"
		Me._OPCItemWriteButton_2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._OPCItemWriteButton_2.Size = New System.Drawing.Size(72, 17)
		Me._OPCItemWriteButton_2.TabIndex = 140
		Me._OPCItemWriteButton_2.Text = "Write Value"
		Me.ToolTip1.SetToolTip(Me._OPCItemWriteButton_2, "Click here to send the value entered in the 'Value to Write' field")
		'
		'_OPCItemWriteButton_1
		'
		Me._OPCItemWriteButton_1.BackColor = System.Drawing.SystemColors.Control
		Me._OPCItemWriteButton_1.Cursor = System.Windows.Forms.Cursors.Default
		Me._OPCItemWriteButton_1.Enabled = False

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -