---

Hallo Leute,

BrowserPanes Erstellen und dann wieder Löschen?

Problem: mit CommandButtonErzeugen_Click() läßt sich prima ein eigener Browser erzeugen (Komplett aus DOCU) nur den wieder so zu löschen, das man Ihn beliebig oft erzeuegn und löschen kann will  mir nicht gelingen.

Das Problem ist die Id von:

Public Function CreateBrowserNodeDefinition( _
  ByVal Label As String, _
  ByVal Id As Long, _
  ByVal Icon As ClientNodeResource, _
  Optional ByVal ToolTipText As Variant, _
  Optional ByVal ExpandedIcon As Variant, _
  Optional ByVal StateIcon As Variant, _
  Optional ByVal StateIconToolTipText As Variant _
) As ClientBrowserNodeDefinition

die wiederum was was mit den ReferenceKeyManager zu tun zu haben könnte....

Ich weis nicht wie ich die Id wieder frei geben kann. Sie wird mit dem Dokument gespeichert und muß eindeutig sein...

Wenn jemand weiter weiss wäre es toll...

Private Sub CommandButtonErzeugen_Click()
    'On Error Resume Next
       
    Dim oPanes As BrowserPanes
    Set oPanes = ThisApplication.ActiveDocument.BrowserPanes
    'ThisApplication.ActiveDocument.ReferenceKeyManager.
    'oPanes.GetNativeBrowserNodeDefinition
    'oPanes.GetClientBrowserNodeDefinition
    Dim oRscs As ClientNodeResources
    Set oRscs = oPanes.ClientNodeResources
   
    Dim oIcon As IPictureDisp
    Set oIcon = LoadPicture("C:\INVENTOR\Laptop\INVENTOR Normteile\VBA 2008\PETPart.bmp")
   
    Dim oRsc As ClientNodeResource
    Set oRsc = oRscs.Add("Test", 1, oIcon)
   
    Dim oDef As BrowserNodeDefinition
    Set oDef = oPanes.CreateBrowserNodeDefinition("Top Node1888", 52, oRsc)
   
    Dim oPane As BrowserPane
    Set oPane = oPanes.AddTreeBrowserPane("My Pane", "MyGUID", oDef)
    'oPane.TopNode
   
   
    Dim oDef1 As BrowserNodeDefinition
    Dim oNode1 As BrowserNode
   
    Set oDef1 = oPanes.CreateBrowserNodeDefinition("Node2", 788, oRsc)
    Set oNode1 = oPane.TopNode.AddChild(oDef1)
   
    Dim oDef2 As BrowserNodeDefinition
    Dim oNode2 As BrowserNode
   
    Set oDef2 = oPanes.CreateBrowserNodeDefinition("Node3", 67, oRsc)
    Set oNode1 = oPane.TopNode.AddChild(oDef2)

End Sub

Private Sub CommandButtonLoeschen_Click()
    On Error Resume Next
    Dim OPDocument As Inventor.BrowserPane
    Set OPDocument = ThisApplication.ActiveDocument.BrowserPanes("MyGUID")
    OPDocument.Delete
    Dim oPanes As BrowserPanes
    Set oPanes = ThisApplication.ActiveDocument.BrowserPanes
'    oPanes.ClientNodeResources
'    'oPane.TopNode
    oPanes.ClientNodeResources.Item(1).Delete
   
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP