4D Doc Center : WR ON COMMAND

4D Write v14

WR ON COMMAND


WR ON COMMAND ( area ; 4DRepMethod )

引数	型	説明
area	倍長整数	4D Writeエリア
4DRepMethod	文字	代わりに実行するメソッド

説明

WR ON COMMANDは、メニューからコマンドを選択する、またはボタンをクリックすることにより、ユーザによって4D Writeコマンドが呼び出された際に、4DRepMethodで指定されたメソッドを実行します。areaが0の場合、4DRepMethodで指定されたメソッドはデータベースが閉じられるか、次のようにWR ON COMMANDが呼び出されるまで、各4D Writeエリアに適用されます

WR ON COMMAND(0;"")

4DRepMethodは2つの引数を受け取ります:

$1にはareaを表す倍長整数値
$2にはコマンド番号を表す倍長整数値

データベースをコンパイルする際には、$1と$2を倍長整数値として宣言しなければなりません。

選択されたコマンドを4DRepMethod内で実行するには、以下のコードを使用します:

WR EXECUTE COMMAND($1;$2)

例題

“Archive”フォルダにドキュメントを保存します:

 C_LONGINT($1;$2)

 Case of

    :($2=wr cmd save as) `別名で保存が選択されたら...

       $DocName:=Request("ドキュメント名: ")

       If((OK=1) & ($DocName#""))

  `指定したフォルダにドキュメントを保存

          WR SAVE DOCUMENT($1;"HDisk:Archives:"+$DocName) `Mac

          WR SAVE DOCUMENT($1;"D:\Archives\"+$DocName)  `Win

       Else

          BEEP `エラー

       End if

    Else `他のメニューコマンド

       WR EXECUTE COMMAND($1;$2)

  `通常のアクションを実行

 End case

フォームメソッド:

 If(Form event=On Load)

    WR ON COMMAND(Area;"TheMethod")

 End if