---

browser.gif

Hallo Leute,
habe mir eine kleien prozedur geschrieben, die mir einen eigenen Browser im Inventor erstellt (siehe Code unten).
soweit so gut, jetzt würde ich gerne zur Laufzeit, das Icon des TopNode gerne ändern(siehe screenshot). Hat einer von euch vielleicht eine Idee wie ich das machen kann oder ist das einfach nicht möglich????

danke im Voraus

Gruß Chef0000
____________________________________________________________________________

Code:

Sub AddNodes()

Dim oPanes As BrowserPanes
Set oPanes = ThisDocument.BrowserPanes

Dim oRscs As ClientNodeResources
Set oRscs = oPanes.ClientNodeResources

Dim oIcon As IPictureDisp
Set oIcon = LoadPicture("c:\temp\test.bmp")

Dim oRsc As ClientNodeResource
Set oRsc = oRscs.Add("Test", 1, oIcon)

Dim oDef As BrowserNodeDefinition
Set oDef = oPanes.CreateBrowserNodeDefinition("Top Node", 3, oRsc)

Dim oPane As BrowserPane
Set oPane = oPanes.AddTreeBrowserPane("My Pane", "MyGUID", oDef)

Dim oDef1 As BrowserNodeDefinition
Dim oNode1 As BrowserNode

Set oDef1 = oPanes.CreateBrowserNodeDefinition("Node2", 5, oRsc)
Set oNode1 = oPane.TopNode.AddChild(oDef1)

Dim oDef2 As BrowserNodeDefinition
Dim oNode2 As BrowserNode

Set oDef2 = oPanes.CreateBrowserNodeDefinition("Node3", 6, oRsc)
Set oNode1 = oPane.TopNode.AddChild(oDef2)

End Sub

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

---

Hi Chef0000

Schau mal hier.
http://ww3.cad.de/foren/ubb/Forum258/HTML/000289.shtml

Gruss
Emick

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

---

Hi Emick,

erst mal danke für deine Antwort.
Ich suche keine Möglichkeit, einen Browser in den Inventor einzufügen, sondern eine, die das Icon des TopNode im Internen Browser von Inventor
(eingefügt über die Funktion "addTreeBrowserPane") änder. Verwendung, zum Bespiel um anzuzeigen ob File dirty ist.

Gruß Chef0000

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

---

Hi Chef0000

Wenn Du den beschriebenen Weg gehen willst, dann würdest Du in der Tat ein Control schreiben müssen. Mit VB (nicht VBA) wäre dies nicht besonders schwer, da hier bereits eine Treeview-Unterstützung mit der Komp. "MsComctl.ocx" bereit steht.
Eine evtl. einfachere Lösung wäre die Verwendung des Inventor-eigenen Trees. Dort gibt es Methoden, um einen eigenen Tree zu erzeugen (sogar mit eigenen Picture für die Nodes usw. also eigene Resourcen).
Das ganze habe ich auch noch nicht verwendet, ich habe lediglich mal die Doku in diesem Kontext überflogen. Das ganze geht vom aktuellen Dokument (aktuell in der Sitzung) aus. Jedem Dokument ist ein Browserobjekt zugeordnet, wobei Du über die Methode:

dim oDoc as inventor.Document
set oDoc = invApp.ActiveDocument
oDoc.BrowserPanes.....

an den aktuellen Browser des Dokuments herankommst.
Am besten liest Du Dir mal die Doku zu dem Browser durch und schaust Dir die verfügbaren Methoden an.

Ich hoffe das Hilfst Dir weiter...

gruss
Emick

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

---

Hallo Emick,

Ich habe doch schon so einen Inventor-eigenen Tree erstellt. Mein Problem ist jetzt nur, wie ich das Icon des TopNode ändern kann (siehe Bild oben)

Gruß Michael

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