投稿日 | : 2004/12/01(Wed) 17:13 |
投稿者 | : ダンボ |
URL | : |
タイトル | : 引数渡しのコントロールのイベントを発生させたい |
皆さん、お世話になっております。
下記コードで、引数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で渡されるべきコントロールの一つ