Переключение между вкладками панели инструментов

[Elfilagas]

Добрый день,
Никак не получается сделать активной определенную панель инструментов после выполнения операции.
Можете подсказать как это сделать в VB, т.е. после того как операция завершена, становилась активна например вкладка размещение видов при работе с чертежом.
Спасибо.

[mikazakov]

после того как операция завершена, становилась активна например вкладка размещение видов при работе с чертежом.

Ну можно с двух сторон подходить см. пример, альтернативу я закоментировал

Код - vb.net [Выбрать]

1. Imports Inventor
2. Module Module1
3.     Dim InvApp As Application
4.  
5.     Sub Main()
6.         InvApp = DirectCast(System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application"), Application)
7.  
8.         Dim DrawDoc As DrawingDocument = DirectCast(InvApp.ActiveDocument, DrawingDocument)
9.         Dim BaseEnv As Environment = DrawDoc.EnvironmentManager.BaseEnvironment
10.         BaseEnv.Ribbon.RibbonTabs("id_TabPlaceViews").Active = True
11.  
12.         ''Альтернатива
13.         'Dim UI As UserInterfaceManager = InvApp.UserInterfaceManager
14.         'Dim Ribon As Ribbon = UI.Ribbons("Drawing")
15.         'Ribon.RibbonTabs("id_TabPlaceViews").Active = True
16.  
17.     End Sub
18. End Module
19.  
20.  

[Elfilagas]

Спасибо, выручили, альтернатива отлично легла в проект.

[mikazakov]

альтернатива отлично легла в проект.

Большой проект?

[Elfilagas]

Не особо, строк на 500, в общих чертах при синхронизации и сохранении в сторонний архив вкладки переключались. При этом не всегда и у разных пользователей с разной степенью вероятности. Причин не нашел. С принудительной активацией нужной вкладки что-то и залип. )