| 広田さん、こんにちは。サンプルをアップします。(V9 2006対応) マウスポインタは適当なものに変更してください。 C:\WINDOWS\Cursors にいろいろあります。サンプルには怪獣のアニメを使っており、動いている尻尾の端が普通の矢印カーソルの先端になります。 以下にイベントをコピペします。V8も動くと思うんですが。 遠慮なく直してください。>ALL
名札 メイン 変数宣言 文字列{&場所リスト[10]} /* 変更ナシ */ 変数宣言 文字列{&名前,&場所} /* 変更ナシ */ *
手続き定義開始 フォーム::フォーム開始(長整数 &表番号) 絞り込み 単一化={[場所]} /* 変更ナシ */ 検索 [名前]{#COND([場所]="","A",1,#計算(#代入(&場所リスト[#行番号],[場所]),""))} /* 変更ナシ */ 解除 1 /* 変更ナシ */ 手続き定義終了
手続き定義開始 フォーム::レコード移動(長整数 &行番号,長整数 &総件数,長整数 &明細番号) &秒 = &行番号 /* 組み込み変数で代用しました。 */ 手続き定義終了
手続き定義開始 フォームヘッダ部::マウス左アップ(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ) call マウスポインタ標準() 手続き定義終了
手続き定義開始 フォーム明細部::マウス左アップ(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ) call マウスポインタ標準() 手続き定義終了
手続き定義開始 ファミリ_1::マウス左ダウン(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止) object @フォーム .マウスポインタの種類 = "dinosau2.ani" object @ファミリ_1.マウスポインタの種類 = "dinosau2.ani" object @ファミリ_2.マウスポインタの種類 = "dinosau2.ani" 手続き定義終了
手続き定義開始 ファミリ_2::マウス移動(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ) メソッド呼び出し &this.ソース値取得( &場所, 0 ) /* 変更ナシ */ 手続き定義終了
手続き定義開始 ファミリ_2::マウス左アップ(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ) call マウスポインタ標準() method @フォーム.更新モード設定( 0 ) ジャンプ 行番号 = &秒 行訂正 [場所] = &場所 手続き定義終了
proc マウスポインタ標準() object @フォーム .マウスポインタの種類 = "標準" object @ファミリ_1.マウスポインタの種類 = "標準" object @ファミリ_2.マウスポインタの種類 = "標準" end
久々に訪れました。 アックン(=^・^=)
|