---

Hi @ all,
habe großes Problem. Ich möchte gerne mit VB ein "TreeView"-Steuerelement in die Browser-Leiste von Inventor 9 einfügen, ich habe aber absolut keine Ahnung wie ich das machen soll :-(
Danke im Vorraus
chef0000

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

---

Hallo,

die Lösung steht doch in der API-Hilfe:

' Declare variable for the calendar control.
Private WithEvents oCal As MSACAL.Calendar

' Declare global variables for the Inventor document and Application.
Private WithEvents oDocEvents As DocumentEvents
Private oPane As BrowserPane
Private oApp As Inventor.Application

Private Sub Form_Load()
    ' Set a reference to a running instance of Inventor.
    ' This expects Inventor to be running.
    Set oApp = GetObject(, "Inventor.Application")
   
    ' Get the active document.  This assumes a document is open.
    Dim oDoc As Inventor.Document
    Set oDoc = oApp.ActiveDocument
   
    ' Connect to the documents events.  Used to
    ' listen for when the document is closed.
    Set oDocEvents = oDoc.DocumentEvents

    ' Create a new browser pane using the Microsoft calendar control.

'---------------------> Auf diese Stelle kommt es an!!!!!

    Set oPane = oDoc.BrowserPanes.Add("Calendar", "MSCAL.Calendar")
   
    ' Set a reference to the calendar control
    ' that was created on the pane.
    Set oCal = oPane.Control
   
    ' Set the calendar to today's date.
    oCal.Today
   
    ' Make the new pane the active pane.
    oPane.Activate
End Sub

Sofern Du ein eigenes OCX-Control geschrieben hast, kannst Du es hier einfach anstelle des Windows-Taschenrechners einfügen!

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

---

erst mal danke für deine Antwort,

Wie kann ich aber ein "TreeView"-Steuerelement in den Browser einfügen, oder muss ich mir selber ein ocx schreiben??? Habe voll keine Ahnung wie ich das machen soll:-)

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

---

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.

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