Anyone figure out how to make this work in 2013? Pane.MouseDown does not seem to exist? Please help!!
Steve Hill
Civil Designer / .NET Developer
AutoCAD Certified Professional
AutoCAD Civil 3D Certified Professional
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn
Please select the Accept this solution button if my post solves your issue or answers your question.
Are you sure?
Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням! | Do you find the posts helpful? "LIKE" these posts!
Находите сообщения полезными? Поставьте "НРАВИТСЯ" этим сообщениям!
На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ" | Have your question been answered successfully? Click "ACCEPT SOLUTION" button.
На ваш вопрос успешно ответили? Нажмите кнопку "УТВЕРДИТЬ РЕШЕНИЕ"
Alexander Rivilis / Александр Ривилис / Олександр Рівіліс
Programmer & Teacher & Helper / Программист - Учитель - Помощник / Програміст - вчитель - помічник
Facebook | Twitter | LinkedIn
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
Steve Hill
Civil Designer / .NET Developer
AutoCAD Certified Professional
AutoCAD Civil 3D Certified Professional
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn
Please select the Accept this solution button if my post solves your issue or answers your question.
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
Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням! | Do you find the posts helpful? "LIKE" these posts!
Находите сообщения полезными? Поставьте "НРАВИТСЯ" этим сообщениям!
На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ" | Have your question been answered successfully? Click "ACCEPT SOLUTION" button.
На ваш вопрос успешно ответили? Нажмите кнопку "УТВЕРДИТЬ РЕШЕНИЕ"
Alexander Rivilis / Александр Ривилис / Олександр Рівіліс
Programmer & Teacher & Helper / Программист - Учитель - Помощник / Програміст - вчитель - помічник
Facebook | Twitter | LinkedIn