スクリプトを実行するコマンドを作成します。注: Command オブジェクトを XSIApplication.CreateCommand とともに使用すると、カスタム コマンドを使用するためのさらに強力な API を使用できます。
oString = CreateScriptCommand( CommandName, ScriptName, FileName, [ProcName], [Description] ); |
コマンドのユニークな String 識別子を戻します。
| パラメータ | タイプ | 説明 |
|---|---|---|
| CommandName | 文字列 | ユーザ インターフェイス([Customize]メニューのツールバー ボタン)に表示される名前 |
| ScriptName | 文字列 | スクリプトでコマンドの実行に使用される名前 |
| FileName | 文字列 | スクリプト ファイルのパスおよび名前 |
| ProcName | 文字列 |
スクリプト関数またはサブルーチンの名前 デフォルト値:スクリプトはファイルの始めから実行します。 |
| Description | 文字列 | コマンドの記述 |
sub Install()
dim file, toolbar, command, path
path = Application.InstallationPath( siUserPath )
file = path & "\Data\Scripts\myUtils.vbs"
'Create Toolbar
toolbar = CreateToolbar("Utilities")
'Create Commands
command = CreateScriptCommand( "Simplify It" ,_
"makeSimple" ,_
file ,_
"MakeSimple",_
"Makes life easier." )
'Add button to toolbar.
CreateToolbarButton toolbar, command
end sub |