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 and AutoCAD Civil 3D Certified Professional
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn | YouTube
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 and AutoCAD Civil 3D Certified Professional
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn | YouTube
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
Can't find what you're looking for? Ask the community or share your knowledge.