frmitemstatus.vb

OPC-Client sdk for vb/vb.net/c#

Option Strict Off
Option Explicit On
Friend Class frmItemStatus
	Inherits System.Windows.Forms.Form
	
	Public ItemName As String
	
	Private Sub frmItemStatus_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		LoadProperties()
	End Sub
	
	Private Sub OKButton_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OKButton.Click
		Me.Close()
	End Sub
	
	Private Sub LoadProperties()
		Dim I As Object
		Dim Count As Integer
		Dim lvItem As System.Windows.Forms.ListViewItem
		Dim DataTypeList, IDList, DescList As Object
		Dim v As Object
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		Count = OPC_GetItemProperties(ServerHandle, GroupHandle, ItemName, IDList, DataTypeList, DescList)
		ListView1.Items.Clear()
		For I = 0 To Count - 1
			'UPGRADE_WARNING: 未能解析对象 IDList() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			If OPC_GetItemPropertyValue(ServerHandle, GroupHandle, ItemName, IDList(I), v) Then
				'UPGRADE_WARNING: 未能解析对象 DescList() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
				lvItem = ListView1.Items.Add(DescList(I))
				'UPGRADE_WARNING: 集合 lvItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
				'UPGRADE_WARNING: 未能解析对象 v 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
				If lvItem.SubItems.Count > 1 Then
					lvItem.SubItems(1).Text = v
				Else
					lvItem.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, v))
				End If
			End If
		Next 
	End Sub
	
	Private Sub RefreshButton_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles RefreshButton.Click
		LoadProperties()
	End Sub
End Class