Advertisement
Guest User

Untitled

a guest
Jul 31st, 2015
172
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.82 KB | None | 0 0
  1. 'simulate a click on the "Assign Task" button of an active Inspector
  2. set sInspector = CreateObject("Redemption.SafeInspector")
  3. sInspector.Item = Application.ActiveInspector
  4. set Ribbon = sInspector.Ribbon
  5. oldActiveTab = Ribbon.ActiveTab
  6. Ribbon.ActiveTab = "Task"
  7. set Control = Ribbon.Controls("Assign Task")
  8. Control.Execute
  9. Ribbon.ActiveTab = oldActiveTab 'restore the active tab
  10.  
  11. //simulate a click on the "Assign Task" button of an active Inspector
  12. Redemption.SafeInspector sInspector = new Redemption.SafeInspector();
  13. sInspector.Item = Application.ActiveInspector;
  14. Redemption.SafeRibbon Ribbon = sInspector.Ribbon;
  15. string oldActiveTab = Ribbon.ActiveTab;
  16. Ribbon.ActiveTab = "Task";
  17. Redemption.SafeRibbonControl Control = Ribbon.Controls.Item("Assign Task");
  18. Control.Execute();
  19. Ribbon.ActiveTab = oldActiveTab; //restore the active tab
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement