| 投稿日 | ： 2004/12/01(Wed) 17:13 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： |
| タイトル | ： 引数渡しのコントロールのイベントを発生させたい |
皆さん、お世話になっております。
下記コードで、引数Sourceで渡されるコントロールのクリックイベントを発生させたいのですが、
上3行はコンパイルエラーになってしまいます。最下行は引数使用ではなく、実際のコントロール
を指定しましたので、動作するのは確認できましたが、やはり引数での指定をしたいです。
RaiseEventは使ったことが無く勉強を始めたばかりですが、「RaiseEventを使う」のが正解なの
でしょうか？それとももっと良い手が？
Private Sub picSheet_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
Source.DragMode = vbManual
Source_Click …× SubまたはFunctionが定義されていません
Call Source_Click …× SubまたはFunctionが定義されていません
RaiseEvent Click(Source) …× イベントが見つかりません
tbsSOLs_Click … ○ tbsSOLsはSourceで渡されるべきコントロールの一つ