How to respond to a click on Autodesk.AutoCAD.Windows.Pane ?

[Anonymous]

Hello !
I'm new to vb.net (moving from VBA) so please excuse me if this sounds
stupid... I'm adding a pane to the status bar an I want to show a popup menu
(or execute a command) after clicking on the pane. This is my code :

Dim DetPane As New Autodesk.AutoCAD.Windows.Pane

DetPane.Text = "DE : "

DetPane.MinimumWidth = 30

DetPane.ToolTipText = "Current Detail : "

DetPane.Enabled = True

DetPane.Visible = True

DetPane.Style = Autodesk.AutoCAD.Windows.PaneStyles.PopUp

Application.StatusBar.Panes.Add(DetPane)

Please, let me know how to create the callback function. Thanks in advance !

[cadMeUp]

I am not sure how to hook events in VB, I use mostly use C# for customizing AutoCAD 2008. Looking in the VS object browser a 'Pane' object is derived from 'StatusBarItem' which has a 'MouseDown' event that you can hook into.

The event handler would have this similar signature:

Autodesk.AutoCAD.Windows.StatusBarMouseDownEventHandler.StatusBarMouseDownEventHandler(void (object, Autodesk.AutoCAD.Windows.StatusBarMouseDownEventArgs))

I have very limited experience with VB NET so I can't show you how you would wire it up.

[Anonymous]

Thanks alot !

This is the code and it is working 🙂 :

................

AddHandler DetPane.MouseDown, AddressOf OnPaneMouseDown

.................

Sub OnPaneMouseDown(ByVal o As Object, ByVal e As
StatusBarMouseDownEventArgs)

Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage(vbNewLine
+ "Do something man !" + vbNewLine)

End Sub

[cadMeUp]

That's great to hear! I am going to keep your sample for my possible future use! It gives me a good example of how to hook an event in VB.

[stevenh0616]

Anyone figure out how to make this work in 2013? Pane.MouseDown does not seem to exist? Please help!!

[Alexander.Rivilis]

Are you sure?

[stevenh0616]

Well I see that it's there under StatusBarItem, but it gives an error under Pane....

If I Have code like this

Dim DetPane As New Autodesk.AutoCAD.Windows.Pane
DetPane.Text = "DE : "
DetPane.MinimumWidth = 30
DetPane.ToolTipText = "Current Detail : "
DetPane.Enabled = True
DetPane.Visible = True
DetPane.Style = Autodesk.AutoCAD.Windows.PaneStyles.PopUp
DetPane.MouseDown += New StatusBarMouseDownEventHandler(AddressOf OnAppMouseDown)
Application.StatusBar.Panes.Add(DetPane)

I get this... Could I be missing an Import??

Here are my imports...

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports cadApp = Autodesk.AutoCAD.ApplicationServices.Application
Imports cadDocExt = Autodesk.AutoCAD.ApplicationServices.DocumentExtension
Imports Autodesk.AutoCAD.Windows

[Alexander.Rivilis]

Sub OnPaneMouseDown(ByVal o As Object, ByVal e As StatusBarMouseDownEventArgs)
    Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage(vbNewLine + "Do something man !" + vbNewLine)
End Sub
<CommandMethod("MyCommand")> _
Public Sub MyCommand() ' This method can have any name
    Dim DetPane As New Autodesk.AutoCAD.Windows.Pane
    DetPane.Text = "DE : "
    DetPane.MinimumWidth = 30
    DetPane.ToolTipText = "Current Detail : "
    DetPane.Enabled = True
    DetPane.Visible = True
    DetPane.Style = Autodesk.AutoCAD.Windows.PaneStyles.PopUp
    AddHandler DetPane.MouseDown, AddressOf OnPaneMouseDown
    Application.StatusBar.Panes.Add(DetPane)
End Sub