OPC Technical Forum http://www.opc-china.com OPC server, customer program technology discussion 1, VB New Forms As described below, please refer to the photo album OPC technology. Second, refer to the photo album OPC technology as follows. Third, the code is as follows DIM WITHEVENTS G_SERVER AS OPCSERVERDIM G_BROWSER AS OPCBROWSER
DIM BROWSEFILTER AS Long
DIM VT_FILTER AS INTEGERDIM NODX AS NODEDIM VALUE AS VARIANTDIM FULLNAME AS STRINGDIM RELATIVE AS STRINGDIM I AS INTEGER
Private Sub cmbAccessRights_Click () Select Case cmbAccessRights.Text Case "OPC_ACCESS_WRITE" g_Browser.AccessRights = OPCWritable Case Else g_Browser.AccessRights = OPCReadable End SelectEnd Sub
Private subbbbrowsefilter_click () Select Case CMBBBBROWSEFILTER.TEXT CASE "OPC_FLAT" Browsefilter = OPC_FLAT CASE ELSE BROWSEFILTER = OPC_BRANCH End SelectensEnd Sub
Private Sub cmbVtFilter_Click () Select Case cmbVtFilter.Text Case "VT_EMPTY" g_Browser.DataType = VT_EMPTY Case "UINT1" g_Browser.DataType = VT_UI1 Case "UINT2" g_Browser.DataType = VT_UI2 Case "TEXT" g_Browser.DataType = VT_BSTR Case "BOOLEAN" g_browser.datatype = vt_bool end selectenD SUB
Private Sub Command1_Click () Dim i As Integer Dim Key As String MousePointer = 11 'Mousepointer as hourclass Set nodX = Nothing TreeView.Nodes.Clear Select Case BrowseFilter Case OPC_FLAT BuildFlat Case OPC_BRANCH BuildTree End Select MousePointer = 0' Normal mousepointer End Sub'- -------------------------------------------------- ------------------------- 'Sub Buildflat ()' Purpose: Show All Items' ------------- -------------------------------------------------- ------------- Public Sub Buildflat () DIM KEY AS STRING DIM LEAF AS VARIANT G_BROWSER.MOVETOROOT G_BROWSER.SHOWLEAFS TRUE for Each Leaf in g_browser i = i 1 Key = "#" & i SET NODES.ADD (NULL, TVWNEXT, Key, G_Browser.getItemid (leaf)) DOEvents next leafnd sub '----------------------- -------------------------------------------------- --- 'Sub Buildtree ()' Purpose: Recursive Building Of The Tree View '-------------------------------- ---------------------------------------- ---- Public Sub BuildTree (Optional Relative As Variant) Dim Branch, Leaf As Variant Dim Key As String g_Browser.ShowBranches For Each Branch In g_Browser i = i 1 Key = "#" & i Set nodX = TreeView.Nodes. Add (Relative, tvwChild, Key, Branch) 'Go down to next level g_Browser.MoveDown (Branch) BuildTree (Key)' Go up to next level g_Browser.MoveUp DoEvents Next Branch g_Browser.ShowLeafs False For Each Leaf In g_Browser i = i 1 Key = "#" & I set nodx = treeview.nodes.add (Relative, TVWChild, Key, g_browser.getitemid (leaf) Next Leaf end Sub
Private Sub Command2_Click () Set g_Server = Nothing Set g_Browser = Nothing EndEnd SubPrivate Sub Form_Load () Set g_Server = New OPCServer g_Server.Connect ( "Matrikon.OPC.Simulation") 'OPC SERVER Title Set g_Browser = g_Server.CreateBrowser cmbVtFilter.Text = "VT_EMPTY" cmbVtFilter.AddItem "UINT1" cmbVtFilter.AddItem "UINT2" cmbVtFilter.AddItem "TEXT" cmbVtFilter.AddItem "BOOLEAN" cmbVtFilter.AddItem "VT_EMPTY" browseFilter = OPC_BRANCH g_Browser.AccessRights = OPCReadable g_Browser.DataType = VT_EMPTY TreeView.LineStyle = TVWROOTLINES 'LINESTYLE 1
End Sub
