frmitemstatus.frm

OPC CLIENT开发包

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmItemStatus 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Item Properties"
   ClientHeight    =   3150
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   6030
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3150
   ScaleWidth      =   6030
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CheckBox bActive 
      Caption         =   "bActive"
      Height          =   255
      Left            =   4800
      TabIndex        =   3
      Top             =   1440
      Width           =   1095
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   2895
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   5106
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   2
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "Key"
         Object.Width           =   3528
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "Value"
         Object.Width           =   2540
      EndProperty
   End
   Begin VB.CommandButton RefreshButton 
      Caption         =   "Refresh"
      Height          =   375
      Left            =   4680
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "Done"
      Default         =   -1  'True
      Height          =   375
      Left            =   4680
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frmItemStatus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Public ItemName As String
Public bretOK As Boolean
Public iActive As Long
Private Sub Form_Load()
    LoadProperties
End Sub

Private Sub OKButton_Click()
    iActive = bActive.Value
    bretOK = True
    Unload Me
End Sub

Private Sub LoadProperties()
    On Error GoTo out1
    Dim I, Count As Long
    Dim lvItem As listItem
    Dim ch As ColumnHeader
    Dim IDList, DataTypeList, DescList As Variant
    Dim v As Variant
    Count = OPC_GetItemProperties(ServerHandle, GroupHandle, ItemName, IDList, DataTypeList, DescList)
    ListView1.ListItems.Clear
        ListView1.ColumnHeaders.Clear
        ListView1.ColumnHeaders.Add , , "ItemPropertyName", ListView1.Width / 3
        ListView1.ColumnHeaders.Add , , "ItemPropertyType", ListView1.Width / 3
        ListView1.ColumnHeaders.Add , , "ItemPropertyValue", ListView1.Width / 3
        ListView1.View = lvwReport
        For I = 0 To Count - 1
            Set lvItem = ListView1.ListItems.Add(, , IDList(I))
            lvItem.SubItems(1) = DataTypeList(I)
            lvItem.SubItems(2) = DescList(I)
            
        Next
        If (DescList(2) = "1") Then
            bActive.Value = 1
        Else
            bActive.Value = 0
        End If
        Exit Sub
out1:
        MsgBox Err.Description
'    For I = 0 To Count - 1
'        If OPC_GetItemPropertyValue(ServerHandle, GroupHandle, ItemName, IDList(I), v) Then
'            Set lvItem = ListView1.ListItems.Add(, , DescList(I))
'            lvItem.SubItems(1) = v
'        End If
'    Next
End Sub

Private Sub RefreshButton_Click()
    LoadProperties
End Sub