看看我的程序，怎么就是click事件不行呢？

Question

看看我的程序，怎么就是click事件不行呢？
 Dim Pic(100) As PictureBox 
Dim iSum, iRow, iCol As Integer 
Dim iw As Integer 
'初始化 
isum=1 
iCol=0 
iRow=0 
private sub command1_click() 
iw = CInt(Picture1.Width / 1500) 
For iSum = 1 To 5 
Set Pic(iSum) = form1.Controls.Add("vb.PictureBox", "Pic" & iSum, Picture1) 
Pic(iSum).ScaleMode = 1 
Pic(iSum).Move iCol * 1500, iRow * 1500 , 1500, 1500 
Pic(iSum).Picture = LoadPicture("f:\picture\3.bmp") 
Pic(iSum).Visible = True 
iCol = iCol + 1 
If (iCol Mod iw = 1) And (iCol > iw) Then 
  iCol = 0 
  iRow = iRow + 1 
End If 
Next 
end sub 
Private Sub Pic_Click(Index As Integer) 
Select Case Index 
Case 0: MsgBox "No 0" 
Case 1: MsgBox "No 1" 
Case 2: MsgBox "No 2" 
Case 3: MsgBox "No 3" 
Case 4: MsgBox "No 4" 
'……………… 
End Select 
End Sub 
根本不响应Pic_click事件呀！！！怎么回事？？？？

Answer 1

用Private Sub Pic_Click(Index As Integer)的条件是
在设计是Pic(0)是添加的控件不是动态生成的 Set Pic(iSum) = form1.Controls.Add("vb.PictureBox", "Pic" & iSum, Picture1) 是动态生成的 你要这么做
1.在界面上画Pic(0)控件(一个就够了)
2.用Load Pic(iSum) 添加控件
3.设定Pic(iSum)的属性
  .visibled=true
  是必要的
这样可以响应Private Sub Pic_Click(Index As Integer)事件 
4.用unLoad Pic(iSum) 删除控件

Answer 2

处理对象的事件 
引发事件的对象叫做事件源。为了处理事件源所引发的事件，可以用 WithEvents 关键字声明对象类的变量。本主题继续讨论上面的“声明和引发事件”中开始的 Widget 对象示例。为了处理 Widget 的 PercentDone 事件，将下面的代码放置到 Form1 的声明部分：Option Explicit
Private WithEvents mWidget As Widget
Private mblnCancel As BooleanWithEvents 关键字指定：变量 mWidget 将用于处理对象的事件。可以通过提供类名来指定对象类型，该类是创建这个对象的类。变量 mWidget 是在“Form1”的声明部分所声明的，因为 WithEvents 变量必须是模块级的变量。这是正确的，而不管将它们放置其中的模块类型如何。变量 mblnCancel 将用于取消 LongTask 方法。对 WithEvents 变量的一些限制
使用 WithEvents 变量时，应该注意下面这些限制条件： WithEvents 变量不能是派生对象变量。也就是说，不能把它声明为 As Object—当声明该变量时必须指定类名。
不能把 WithEvents 变量声明为 As New。必须明确地创建事件源对象，并将它赋给 WithEvents 变量。
不能在标准模块中声明 WithEvents 变量。只能在类模块、窗体模块以及其它定义类的模块中声明。
不能创建 WithEvents 变量数组。 

Answer 3

编写处理事件的代码
一旦声明了 WithEvents 变量，变量名就出现在模块“代码”窗口左边的下拉菜单上。当选择了 mWidget 时，Widget 类的事件将出现在右边下拉菜单上，如下图 9.9 中所示。图 9.9   与 WithEvents 变量相关联的事件选定一个事件，将显示相应的事件过程，以 mWidget_ 为前缀。所有跟 WithEvents 变量相关联的事件过程，都将以该变量名为前缀。将下面的代码添加到 mWidget_PercentDone 事件过程中。Private Sub mWidget_PercentDone(ByVal Percent As _
Single, Cancel As Boolean)
   lblPercentDone.Caption = CInt(100 * Percent) & "%"
   DoEvents
   If mblnCancel Then Cancel = True
End Sub不论何时，引发 PercentDone 事件时，事件过程就在 Label 控件中显示完成的百分比。DoEvents 语句允许重新画出该标签，同时也给用户单击“取消”按钮的机会。将下面的代码添加到标题为“取消”按钮的 Click 事件中。Private Sub Command2_Click()
   mblnCancel = True
End Sub当 LongTask 正在运行时，如果单击了“取消”按钮，一旦 DoEvents 语句允许出现对事件的处理，那么将会执行 Command2_Click 事件。模块级的变量 mblnCancel 设置为 True，mWidget_PercentDone 事件将对其进行测试，并将 ByRef Cancel 参数设置为 True。

Answer 4

连接 WithEvents 变量与对象
Form1 已经设置了对 Widget 对象事件的处理。剩余工作就是寻找某个地方的 Widget。在设计时，声明 WithEvents 变量时，并没有任何对象与之相关联。WithEvents 变量与任何其它对象变量相同。必须创建对象，并将对该对象的引用赋给这个 WithEvents 变量。将下面的代码添加到 Form_Load 事件过程中，以创建 Widget。Private Sub Form_Load()
   Set mWidget = New Widget
End Sub当执行上面的代码时，Visual Basic 将创建一个 Widget，并将它的事件跟 mWidget 相关联的事件过程连接起来。从那时起，一旦 Widget 产生了 PercentDone 事件，都将执行 mWidget_PercentDone 事件过程。为了调用 LongTask 方法，将下面的代码添加到标题为“启动任务”按钮的 Click 事件中。'“启动任务”按钮。
Private Sub Command1_Click()
   mblnCancel = False
   lblPercentDone.Caption = "0%"
   lblPercentDone.Refresh   Call mWidget.LongTask(14.4, 0.66)   If Not mblnCancel Then lblPercentDone.Caption = 100
End Sub在调用 LongTask 方法之前，完成百分比的显示标签必须被初始化，而且必须将模块级的 Boolean 标记（其作用是取消方法）设置为 False。用 14.4 秒任务延迟调用 LongTask。每隔三分之二秒引发一次 PercentDone 事件。每次引发该事件时，都将执行 mWidget_PercentDone 事件过程。LongTask 结束以后，都要测试 mblnCancel，以了解 LongTask 是否正常结束，或者是否因为 mblnCancel 设置为 True 而停止。只有在前一种情况下，完成的百分比才会被更新。运行程序
按 F5 键，就使工程处于运行模式。单击“启动任务”按钮。每次引发 PercentDone 事件，带有完成百分比的标签将会被更新。单击“取消”按钮，可以停止任务。注意：单击“取消”按钮时，该按钮的外观并不会立即改变。直到 DoEvents 语句允许事件处理时，才引发 Click 事件。可能会发现用 F8 键来运行程序是有益的—这样做的话，每次将执行一行代码。可以清楚地看到是怎样执行到 LongTask 的，然后在每次引发 PercentDone 事件时，能直接重新进入 Form1。当执行回到 Form1 中的代码时，如果再次调用 LongTask 方法，将会发生什么样的情况？混乱、混沌，并最终（如果每次产生事件时都发生这种情况）出现堆栈溢出。处理不同的 Widget 事件
通过将对新 Widget 的引用赋给 mWidget 变量，可以使得 mWidget 变量为不同 Widget 对象处理事件。事实上，每次单击按钮时，通过添加下面两行代码，可以让 Command1 中的代码来做这些：Set mWidget = New Widget      '<- 新行。
Call mWidget.LongTask(14.4, 0.66)
Set mWidget = Nothing         '<- 新行。每次按下按钮时，上面的代码都将创建一个新的 Widget。一旦 LongTask 方法结束，对 Widget 的引用就会通过将 mWidget 设置为 Nothing 而释放，而且这个 Widget 也被撤消。WithEvents 变量每次只能包含一个对象引用，因此如果将不同的 Widget 对象赋给 mWidget，先前 Widget 对象的事件将不会再得到处理。如果 mWidget 是唯一包含对旧 Widget 引用的对象变量时，那么该对象将被撤消。注意   需要多少 WithEvents 变量，就可以声明多少，但是不支持 WithEvents 变量数组。终止 WithEvents 变量事件的处理 
只要有一个赋给变量 mWidget 的 Widget 对象，不论何时，当该 Widget 产生事件时，都将调用跟 mWidget 相关联的事件过程。为了终止事件处理，可以将 mWidget 设置为 Nothing，就象在下面代码块中所示。'终止 mWidget 事件处理。
Set mWidget = Nothing当把 WithEvents 变量设置为 Nothing 时，Visual Basic 将拆除对象的事件和与该变量相关联的事件过程的连接。重点   WithEvents 变量与任何其它对象变量一样，包含一个对象引用。这个对象引用所起的作用，是保持该对象是活动的。当把对象的所有引用都设置为 Nothing 以撤消它时，不要忘记声明为 WithEvents 的那个变量。详细信息   与 WithEvents 变量相关联的事件过程看起来很象窗体上控件的事件过程。“WithEvents 与窗体上的控件事件的比较”讨论了它们之间的相似和不同之处。

Answer 5

wangsitao(飞猪) (  ) 
It's OK!

Answer 6

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'在这里判断 鼠标的位置判断是哪个 pic
End Sub