| 投稿日 | ： 2004/12/07(Tue) 10:19 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 引数渡しのコントロールのイベントを発生させたい |
LESIAさん、どうもありがとうございます。
作ろうとしている部分は、ピクチャーシートの上に図形部品をドロップしてデザインするものです。
一応、ボタンとラインとサークルとタブストリップとリストボックスとフレームに限定しようかと
思っていますが、まだ種類も個数も確定していません。
> もしそのコントロールがコマンドボタンだったら
> Source.Value = True
> で出来ます。
御意。引数渡しのコントロールのプロパティは、参照・変更できるがイベントは発生させられない？
(プロパティを変える事によりイベントを発生させるという裏技はできそう)
> そうじゃなかったら、そのコントロールのクリックイベントの中に書いてあるコードと
> 同じものを、新しく作ったプロシージャの書いてから
> Call プロシージャ名
> で呼び出すとか
それはそうなのですが、美しくないじゃないですか(＝拡張性の不足、バグの作りこみ、コード量の増加)
ゴリゴリ作るのならば、
If Source.Name = "tbsSOLs" then tbsSOLs_Click
(以下同文、渡されるコントロールの数だけ。多いなぁ。まだ確定していないし)
という方式も考えたのですが、今一です。LESIAさんの考えでは、Click処理がすべてのコントロールで唯一ならば、
一回だけ記述すればよいので優れているともいえますが、実際はコントロールに依って変えたいのです。
で、コントロール毎に記述を変えるのならば、それは各コントロールのイベント部分に記述するのが妥当と
思いますです。(とは言え、言語仕様が許さなければあきらめるのですが。)