例：ボタン機能の追加

この例では、アクション名「Calculator」で定義されたボタンをユーザがクリックすると、計算機が開きます。ユーザ定義のボタンを追加する詳細については、「ツールバーへのボタンの追加」を参照してください。

ActionCanExecute イベント・プロシージャにコードを追加して、ユーザがアクションを開始するとトリガされるようにします。

Wscript.Shell オブジェクトの詳細については、Microsoft のドキュメントを参照してください。VBScript 言語のヘルプを表示するには、スクリプト・エディタで［ヘルプ］＞［VBScript ホーム ページ］を選択します。

Function ActionCanExecute(ActionName)
        ' 関数の戻り値を初期化して、
	 ' 予期しない動作を防ぎます。
        ActionCanExecute = DefaultRes 
        On Error Resume Next
        If ActionName = "UserDefinedActions.Calculator" Then
            Set shell = CreateObject("Wscript.Shell")
            shell.Run "Calc"
            Set shell = Nothing
        End If
        ActionCanExecute = DefaultRes
        PrintError "ActionCanExecute"
        On Error GoTo 0
End Function