FORM Get current page
FORM Get current page {( * )} -> 戻り値
引数 | 型 | 説明 | |
---|---|---|---|
* | 演算子 | → | カレントサブフォームページ番号を返す |
戻り値 | Integer | ← | 現在表示されているページ番号 |
このコマンドはスレッドセーフではないため、プリエンプティブなコードには使えません。
説明
FORM Get current pageコマンドは、現在表示されているフォームページ、またはFORM LOAD コマンドによってロードされたカレントフォームの番号を返します。
* 引数は、複数のページを含むサブフォームタイプのページのコンテキストでコマンドが呼び出される場合に使用します。こ の場合、この引数を渡すと、コマンドは (コマンドを呼び出した) カレントサブフォームのページを変更します。* が省略された場合、デフォルトでコマンドは常に親フォームに適用されます。
例題
フォームにおいて、メニューバーから任意のメニューを選択、またはそのフォームが別プロセスからの呼び出しを受信した場合に、現在表示されているフォームページに応じて異なる動作を実行することができます。この例を以下に示します:
// [myTable];"myForm" フォームメソッド
Case of
:(Form event code=On Load) //v17 以前はForm eventを使用すること
// ...
:(Form event code=On Unload) //v17 以前はForm event を使用すること
// ...
:(Form event code=On Menu Selected) //v17 以前はForm event を使用すること
$vlMenuNumber:=Menu selected>>16
$vlItemNumber:=Menu selected & 0xFFFF
Case of
:($vlMenuNumber=...)
Case of
:($vlItemNumber=...)
:(FORM Get current page=1)
// ページ 1のアクション
:(FORM Get current page=2)
// ページ 2のアクション
// ...
:($vlItemNumber=...)
// ...
End case
:($vlMenuNumber=...)
// ...
End case
:(Form event code=On Outside Call) //v17 以前はForm event を使用すること
Case of
:(FORM Get current page=1)
// ページ 1のアクション
:(FORM Get current page=2)
// ページ 2のアクション
End case
// ...
End case
参照
FORM FIRST PAGE
FORM GOTO PAGE
FORM LAST PAGE
FORM NEXT PAGE
FORM PREVIOUS PAGE