4D Write v16WR ON COMMAND |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
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つの引数を受け取ります:
選択されたコマンドを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
プロダクト: 4D Write
テーマ: WRエリアコントロール
番号:
89498
初出: 4D Write 6.5
4D Write ( 4D Write v16)