メインコンテンツまでスキップ
バージョン: 開発中

FORM Get current page

FORM Get current page {( * )} : Integer

引数説明
*演算子カレントサブフォームページ番号を返す
戻り値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