merlin

attached toolbar

Discussion created by merlin on Feb 2, 2011
Latest reply on Feb 7, 2011 by merlin

Hello,

I have write a little scripte to build a Toolbar in DxDesigner (viewdraw). On my computer with windows7 64bit or my virtuell-maschine the script is ok. on other computer with win xp an error messages unknow command line 14.

line 14 is: Set utilitiesToolBar = wvApp.CommandBars("PDM")

 

can anyone help?

 

Option Explicit

' Add the key bindings type library so that we can use enumerates from that library.
Scripting.AddTypeLibrary("ViewDraw.CommandBarsEx")
Scripting.AddTypeLibrary("MGCSDD.CommandBarsEx")
' Get the application object.  Use implicit Application for internal scripts
Dim wvApp
Set wvApp = Application
Dim vdapp
Set vdapp = GetObject(,"ViewDraw.Application")

' Get the Utilities tool bar.
Dim utilitiesToolBar
Set utilitiesToolBar = wvApp.CommandBars("PDM")

' Get the collection of controls from utilities tool bar
Dim utilitiesControlsColl
Set utilitiesControlsColl = utilitiesToolBar.Controls

 

best regards

merlin

Outcomes