frmitembrowser.vb

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

Option Strict Off
Option Explicit On
Friend Class frmItemBrowser
	Inherits System.Windows.Forms.Form
	
	Private root, last As System.Windows.Forms.TreeNode
	
	Private Sub AddItem_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles AddItem.Click
		frmMain.AddItem(txtItemName.Text)
	End Sub
	
	Private Sub CancelButton_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CancelButton_Renamed.Click
        Me.Close()
        Me.Dispose()
	End Sub
	Private Sub Browse()
		'UPGRADE_NOTE: NameSpace 已升级到 NameSpace_Renamed。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"”
		Dim NameSpace_Renamed As Short
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If OPC_GetNameSpace(ServerHandle, NameSpace_Renamed) Then
			If NameSpace_Renamed = 1 Then
				BrowseItems()
			Else
				BrowseBranch()
			End If
		End If
	End Sub
	Private Sub ChangePosition(ByRef n As System.Windows.Forms.TreeNode)
		Dim buf(128) As Byte
		'UPGRADE_ISSUE: MSComctlLib.Node 属性 n.root 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
        If TypeOf (n.Parent) Is TreeNode Then '.root.Text <> n.Text
            ChangePosition(n.Parent)
            'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            OPC_ChangeBrowsePosition(ServerHandle, 2, n.Text)
        Else
            'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            OPC_ChangeBrowsePosition(ServerHandle, 3, "")
        End If
	End Sub
	Private Sub BrowseBranch()
		Dim I As Object
		Dim Count As Short
        Dim n, tmp As System.Windows.Forms.TreeNode 'p,
		
		Dim ItemNames As Object
		
		'UPGRADE_WARNING: Return 有新行为。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"”
		If TreeView1.SelectedNode.Text = "" Then Return 
		n = TreeView1.SelectedNode
		ChangePosition(n)
		BrowseItems()
		If n.GetNodeCount(False) = 0 Then
			'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			Count = OPC_BrowseItems(ServerHandle, 1, "*", 0, 0, ItemNames)
			For I = 0 To Count - 1
				'UPGRADE_WARNING: 未能解析对象 ItemNames(I) 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
				'UPGRADE_WARNING: 未能解析对象 ItemNames() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
				'UPGRADE_WARNING: Add 方法行为已更改 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="DBD08912-7C17-401D-9BE9-BA85E7772B99"”
				tmp = TreeView1.Nodes.Find(n.Tag, True)(0).Nodes.Add(n.Tag & ItemNames(I), ItemNames(I))
				'UPGRADE_WARNING: 未能解析对象 ItemNames() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
				tmp.Tag = n.Tag & ItemNames(I)
			Next 
			n.Expand()
		End If
		last = TreeView1.SelectedNode
	End Sub
	Private Sub BrowseItems()
		Dim I As Object
		Dim Count As Short
		Dim ItemNames As Object
		
		listItem.Items.Clear()
		'UPGRADE_WARNING: Return 有新行为。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"”
		If TreeView1.SelectedNode.Text = "" Then Return 
		
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		Count = OPC_BrowseItems(ServerHandle, 2, "*", 0, 0, ItemNames)
		For I = 0 To Count - 1
			'UPGRADE_WARNING: 未能解析对象 ItemNames() 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			listItem.Items.Add(ItemNames(I))
		Next 
		
	End Sub
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		If txtItemName.Text = "" Then Exit Sub
		frmItemStatus.ItemName = txtItemName.Text
		frmItemStatus.ShowDialog()
	End Sub
	
	Private Sub frmItemBrowser_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		root = TreeView1.Nodes.Add("Root", "Root")
		root.Tag = "Root"
		TreeView1.SelectedNode = root
		BrowseBranch()
		
	End Sub
	
	'UPGRADE_WARNING: 初始化窗体时可能激发事件 listItem.SelectedIndexChanged。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"”
	Private Sub listItem_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles listItem.SelectedIndexChanged
		Dim FullName As String
		FullName = Space(128)
		If listItem.SelectedIndex = -1 Then Exit Sub
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If OPC_GetItemFullName(ServerHandle, VB6.GetItemString(listItem, listItem.SelectedIndex), FullName, 127) Then
			txtItemName.Text = FullName
		End If
	End Sub
	
	Private Sub listItem_DoubleClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles listItem.DoubleClick
		If listItem.SelectedIndex = -1 Then Exit Sub
		listItem_SelectedIndexChanged(listItem, New System.EventArgs())
		AddItem_Click(AddItem, New System.EventArgs())
	End Sub
	Private Sub BrowerToTop(ByRef x As System.Windows.Forms.TreeNode)
		'UPGRADE_ISSUE: MSComctlLib.Node 属性 x.root 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
        If (TypeOf (x.Parent) Is TreeNode) Then
            'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            OPC_ChangeBrowsePosition(ServerHandle, 1, "")
            BrowerToTop(x.Parent)
        End If
	End Sub
	Private Sub TreeView1_NodeClick(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
        Dim Node As System.Windows.Forms.TreeNode = eventArgs.Node
        BrowerToTop(last)
        BrowseBranch()
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        'Dim Node As System.Windows.Forms.TreeNode = e.Node
        'BrowerToTop(last)
        'BrowseBranch()
    End Sub
End Class