| 以下ように試されたらいかがでしょうか。
■変更前
手続き定義開始 フォーム::キーダウン( … 省略 … ) ┌if ( &仮想キーコード ≧ 112 .and &仮想キーコード ≦ 119 ) │ メソッド呼び出し @フォーム.キー変換( 7 ) │ &仮想キーコード = &仮想キーコード - 111 │ &オブジェクト名 = "bF" + #str( &仮想キーコード, 2 ) │ メソッド呼び出し &オブジェクト名.実行() │ &処理中止 = 1 ├else │ メソッド呼び出し @フォーム.キー変換( 0 ) │ &処理中止 = 0 └end 手続き定義終了
■変更後
手続き定義開始 フォーム::キーダウン( … 省略 … ) ┌if ( &仮想キーコード ≧ 112 .and &仮想キーコード ≦ 119 ) │ メソッド呼び出し @フォーム.キー変換( 7 ) │ &仮想キーコード = &仮想キーコード - 111 │ &オブジェクト名 = "bF" + #str( &仮想キーコード, 2 ) │ メソッド呼び出し &オブジェクト名.実行() │ メソッド呼び出し @フォーム.キー変換( 0 ) │ &処理中止 = 1 ├else │ *メソッド呼び出し @フォーム.キー変換( 0 ) │ &処理中止 = 0 └end 手続き定義終了
|