4D Write v14

WR ON COMMAND

ホーム

 
4D Write v14
WR ON COMMAND

WR ON COMMAND 


 

WR ON COMMAND ( area ; 4DRepMethod ) 
引数   説明
area  倍長整数 in 4D Writeエリア
4DRepMethod  文字 in 代わりに実行するメソッド

説明   

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

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

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

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

例題  

“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

 
プロパティ 

プロダクト: 4D Write
テーマ: WRエリアコントロール
番号: 89498

 
履歴 

初出: 4D Write 6.5

 
参照 

WR EXECUTE COMMAND
WR Get on command method

 
ARTICLE USAGE

4D Write ( 4D Write v11.6)
4D Write ( 4D Write v12)
4D Write ( 4D Write v14)
4D Write ( 4D v13)
4D Write ( 4D Write v14 R2)
4D Write ( 4D Write v14 R3)
4D Write ( 4D Write v14 R4)