frmitemstatus.vb

来自「OPC CLIENT开发包」· VB 代码 · 共 60 行

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.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
	
	Private Sub LoadProperties()
        Dim I As Integer
		Dim Count As Integer
        Dim DataTypeList, IDList, DescList As Object
        'Dim v As Object
        Dim ss1() As Object
        Dim ss2() As Object
        Dim ss3() As Object
        Count = OPC_GetItemProperties(ServerHandle, GroupHandle, ItemName, IDList, DataTypeList, DescList)
        ListView1.Items.Clear()
        ss1 = IDList
        ss2 = DataTypeList
        ss3 = DescList
        ListView1.Columns.Clear()
        ListView1.Columns.Add("ItemPropertyName")
        ListView1.Columns.Add("ItemPropertyType")
        ListView1.Columns.Add("ItemPropertyValue")
        Dim item1 As ListViewItem
        For I = 0 To Count - 1
            item1 = New ListViewItem(ss1(I).ToString())
            item1.SubItems.Add(ss2(I).ToString())
            item1.SubItems.Add(ss3(I).ToString())
            ListView1.Items.Add(item1)
        Next
        If (ss3(2).ToString() = "1") Then
            bActive.Checked = True
        Else
            bActive.Checked = False
        End If
        'For I = 0 To Count - 1
        '          If OPC_GetItemPropertyValue(ServerHandle, GroupHandle, ItemName, IDList(I), v) Then
        '              lvItem = ListView1.Items.Add(DescList(I))
        '              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