VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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で渡されるべきコントロールの一つ


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -