kiri9.com

キーダウン

[F2]で、訂正モードにする。

手続き定義開始 フォーム::キーダウン(長整数 &仮想キーコード,長整数 &スキャンコード,長整数 &フラグ,参照 長整数 &処理中止)
 ケース開始
   ケース ( &仮想キーコード = 113 )
     メソッド呼び出し @フォーム.更新モード設定( 2 )  /* [F2]訂正モード */
   ケース ( &仮想キーコード = 114 )
     メソッド呼び出し @フォーム.更新モード設定( 6 )  /* [F3]行追加モード */
   ケース ( &仮想キーコード = 115 )
     メソッド呼び出し @フォーム.更新モード設定( 0 )  /* [F4]表示モード(確定) */
 ケース終了
手続き定義終了

[F2]で、訂正モードにする。

手続き定義開始 フォーム::キーダウン(長整数 &仮想キーコード,長整数 &スキャンコード,長整数 &フラグ,参照 長整数 &処理中止)
 変数宣言 整数{ &mode }
   メソッド呼び出し @フォーム.更新モード取得( &mode )
 ケース開始
   ケース ( &仮想キーコード = 113 .AND &mode = 0 )
     メソッド呼び出し @フォーム.更新モード設定( 2 )  /* [F2]訂正モード */
   ケース ( &仮想キーコード = 114 .AND &mode = 0 )
     メソッド呼び出し @フォーム.更新モード設定( 6 )  /* [F3]行追加モード */
   ケース ( &仮想キーコード = 115 .AND &mode <> 0 )
     メソッド呼び出し @フォーム.更新モード設定( 0 )  /* [F4]表示モード(確定) */
 ケース終了
手続き定義終了

powered by Quick Homepage Maker 5.3
based on PukiWiki 1.4.7 License is GPL. QHM

最新の更新 RSS  Valid XHTML 1.0 Transitional