Development: Looking for VBA example of an sidebar addin

Anonymous

Development: Looking for VBA example of an sidebar addin

Anonymous
Not applicable

Dear community,

 

could you give me a hint where to find an example to develop a sidebar for Inventor?

I already developed this one, which I would like to port to Inventor and would like to continue to develop together with you as a community project opensource'd. It might be that I'm using the wrong term ("sidebar"), therefore here a screenshot of what I have.

 

 

 

Thanks!

- Thomas

0 Likes
Reply
Accepted solutions (1)
1,575 Views
4 Replies
Replies (4)

bradeneuropeArthur
Mentor
Mentor
Think you mean browser control!

Regards,

Arthur Knoors

Autodesk Affiliations:

Autodesk Software:Inventor Professional 2025 | Vault Professional 2024 | Autocad Mechanical 2024
Programming Skills:Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Programming Examples:Drawing List!|Toggle Drawing Sheet!|Workplane Resize!|Drawing View Locker!|Multi Sheet to Mono Sheet!|Drawing Weld Symbols!|Drawing View Label Align!|Open From Balloon!|Model State Lock!
Posts and Ideas:Dimension Component!|Partlist Export!|Derive I-properties!|Vault Prompts Via API!|Vault Handbook/Manual!|Drawing Toggle Sheets!|Vault Defer Update!


! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

Anonymous
Not applicable

While browsing through the internet, it seems to be it. However, I only can find anything specific to begin to develop such a browser control.

Do you or someone else know, where to find a template or a good howto?

 

Many thanks so far!

0 Likes

bradeneuropeArthur
Mentor
Mentor
Accepted solution

Hi,

 

Try this way:

 

Sub DockableWindow()
    Dim oUserInterfaceMgr As UserInterfaceManager
    Set oUserInterfaceMgr = ThisApplication.UserInterfaceManager

    ' Create a new dockable window
    Dim oWindow As DockableWindow
    Set oWindow = oUserInterfaceMgr.DockableWindows.Add("SampleClientId", "TestWindowInternalName", "Test Window")

    ' Get the hwnd of the dialog to be added as a child
    ' CHANGE THIS VALUE!
    Dim hwnd As Long
    hwnd = 4851096

    ' Add the dialog as a child to the dockable window
    Call oWindow.AddChild(hwnd)

    ' Don't allow docking to top and bottom
    oWindow.DisabledDockingStates = kDockTop + kDockBottom

    ' Make the window visible
    oWindow.Visible = True
End Sub

Or look in the help file of inventor programming help file:

 

Programming Help.PNG 

Regards,

Arthur Knoors

Autodesk Affiliations:

Autodesk Software:Inventor Professional 2025 | Vault Professional 2024 | Autocad Mechanical 2024
Programming Skills:Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Programming Examples:Drawing List!|Toggle Drawing Sheet!|Workplane Resize!|Drawing View Locker!|Multi Sheet to Mono Sheet!|Drawing Weld Symbols!|Drawing View Label Align!|Open From Balloon!|Model State Lock!
Posts and Ideas:Dimension Component!|Partlist Export!|Derive I-properties!|Vault Prompts Via API!|Vault Handbook/Manual!|Drawing Toggle Sheets!|Vault Defer Update!


! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

Anonymous
Not applicable

Thank you for the hint. I will take a look at it as soon as I have time.

When further questions occur, I will open new threads here in the forum.

 

Thanks!

0 Likes