| 投稿日 | ： 2004/12/01(Wed) 17:40 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 引数渡しのコントロールのイベントを発生させたい |
> 皆さん、お世話になっております。
>
> 下記コードで、引数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で渡されるべきコントロールの一つ
もしそのコントロールがコマンドボタンだったら
Source.Value = True
で出来ます。
そうじゃなかったら、そのコントロールのクリックイベントの中に書いてあるコードと
同じものを、新しく作ったプロシージャの書いてから
Call プロシージャ名
で呼び出すとか