none
VB6でのWithEvents RRS feed

  • 質問

  • VB6でPictureBoxを動的生成していますがイベント処理ができません。
    ちなみにCommandButtonはできています。
    ソースプログラムは以下のようにしています。
    何か問題がありますでしょうか?
    アドバイスお願い致します。


    Private WithEvents PB As PictureBox
      :   :   :
    Private Sub PB_Click()
       このイベントが発生しません...
    End Sub

      :   :   :


    Private Sub Form_Load()
    Set addPB = Controls.Add("VB.PIctureBox", "PB", Form1)
    With addPB
        .Move 0, 0, 2000, 2000
        .Visible = True
    End With

    End Sub

    2009年10月20日 1:54

回答

すべての返信

  • 変数宣言がPBで、初期化してるのがaddPBだからじゃないですか?
    Set PB = Contorls~
    にすれば動くはずです
    2009年10月20日 4:14
  • あと with addPB も with PB にね。
    2009年10月20日 4:19
  • tatuya様

    O_Masa様と合わせた対応で上手くいきました。
    有難うございました。
    2009年10月20日 5:35
  • O_Masa様

    tatuya様と合わせた対応で上手くいきました。
    有難うございました。
    2009年10月20日 5:37
  • フォーラムオペレーターの高橋春樹です。 

    tatuyaさん、O_Masaさん、こんにちは。
    ご投稿ありがとうございました。

    すけさんさん初めまして。
    MSDNフォーラムのご投稿ありがとうございます。

    問題が解決したようで、よかったです。
    今回、tatuyaさん、O_Masaさんのアドバイスが、問題解決に繋がったようなので、
    皆さんの投稿に、回答マークを付けさせてもらいました。

    次回でよいのですが、問題が解決したときは、すけさんさん直々に、参考になった投稿に対して、回答マークを付けて頂ければと思います。
    フォーラムの仕組みが分かりづらくてすみません・・・

    今後ともMSDNフォーラムをよろしくお願いします(^_^)


    マイクロソフト株式会社 フォーラム オペレーター 高橋春樹
    2009年10月30日 7:33