关于runtime时添加的control的事件问题，急！！

Option   Explicit  
   
  Private   WithEvents   NewPicture   As   PictureBox  
  Private   mCol   As   New   Collection  
  Private   Num   As   Integer  
   
  Private   Sub   Command1_Click()  
          Set   NewPicture   =   Form1.Controls.Add("VB.picturebox",   "image"   &   Num)  
          NewPicture.Visible   =   True  
          NewPicture.Move   2000   *   Num  
          mCol.Add   NewPicture  
          Num   =   Num   +   1  
  End   Sub  
   
  Private   Sub   newpicture_click()  
          MsgBox   "NewPicture"  
  End   Sub  
   
  这段code,是在一个form中，有一个command   button，当这个button被按下后，就会有一个新的picturebox被添加到form中。反复按，就不断有新的picturebox生成。  
   
  我定义的picturebox是withevents，那么就可以对新生成的picturebox的事件进行写code，例如写picturebox的click   event。但是，如果重复按form中的button，编写好的picturebox的click   event事件就只对最后一个生成的picturebox起作用。  
   
  我想请问，有没有办法让click   event对所有的picturebox都起作用呢？或者说，有没有办法令前面生成的picturebox，也能在鼠标点击的时候，做出反应？ 问题点数：100、回复次数：2Top

1 楼pigpag（Pigpag - A GRE Fighter）回复于 2004-05-02 00:12:17 得分 100

做成控件数组  
   
  先放一个隐藏得PictureBox控件，并且设其Index   =   0。  
   
  新的控件都可以通过Load   PictureBox(新索引)来载入。  
  处理事件的过程当然就是PictureBox1_Click(Index   As   Integer)了Top

2 楼roncelia（）回复于 2004-05-02 12:16:01 得分 0

超级感激...Top

相关问题

• 控件
• newpicture
• picturebox
• 事件
• click
• num
• sub
• button
• event
• form

• 帖主：roncelia
• pigpag

• Visual Basic类图书
• Visual Basic类源码下载