| 時既に遅しさん > メッセージボックスを使っています。 メッセージボックスは中央に表示されて邪魔になりませんか? メニュー2 コマンドは桐2004位から仕様変更が合ったのじゃないでしょうか? ピクセル指定ができるので邪魔にならない位置に指定できるので以下のように 前と次を検索できるようにしたらいかがでしょうか。
手続き定義開始 ファミリ_2::ソース値更新() method @フォーム.更新モード設定( 0 ) var 整数 { &n=#対応番号( "会員番号,氏名,フリガナ,郵便番号,住所,電話1,電話2,購入,ポイント備忘欄" \ , &this ) ,&Imenu=1,&Iend,&I位置X,&I幅} object &I位置X = &this.始点X,&I幅=@フォーム.フォームの幅 &I位置X=#cond((&I幅/&I位置X)<2,10,1,&I幅-100) 実行制御 ピクセル指定=する コマンド "検索 ↓,["+&this+"]_&Search[&n], 部分一致検索=含む , 終了状態=&Iend" if (&Iend<1) else 繰り返し ( &Imenu>0 .and &Imenu<3) メニュー2 &Imenu,&Imenu,( 20,&I位置X ), "処理メニュー",\ "次を検索,前を検索,検索中止" if (&Imenu=1) コマンド "検索 ∨,["+&this+"]_&Search[&n], 部分一致検索=含む , 終了状態=&Iend" else if ( &Imenu=2 ) コマンド "検索 ∧,["+&this+"]_&Search[&n], 部分一致検索=含む , 終了状態=&Iend" else &Imenu=0 end end end &Search[&n] = "" method &this.フォーカス設定() 手続き定義終了
|