动态创建的 Label 控件数组怎么不能响应 Click 事件？

Question

只有 Index=0 才能响应。   labChar(0).Width = 9
   labChar(0).Height = 18
   labChar(0).BorderStyle = 0
   labChar(0).Caption = " "
   labChar(0).Move RectLeft + 1, RectTop + 3
   
   For i = 1 To 659
      Load labChar(i)
      labChar(i).Visible = True
      labChar(i).Caption = "M"
      labChar(i).Top = FontHeight * (i \ 44) + (RectTop + 3)
      labChar(i).Left = (RectLeft + 1) + (i Mod 44) * FontWidth
   Next i

Answer 1

先在窗口上画一个LABEL,将INDEX设为0Private Sub Label1_Click(Index As Integer)
MsgBox Now'这里就可以触发了
End SubPrivate Sub Command1_Click()
labChar(0).Width = 9
   labChar(0).Height = 18
   labChar(0).BorderStyle = 0
   labChar(0).Caption = " "
   labChar(0).Move RectLeft + 1, RectTop + 3
   
   For i = 1 To 659
      Load labChar(i)
      labChar(i).Visible = True
      labChar(i).Caption = "M"
      labChar(i).Top = FontHeight * (i \ 44) + (RectTop + 3)
      labChar(i).Left = (RectLeft + 1) + (i Mod 44) * FontWidth
   Next i
End Sub

Answer 2

谢谢。  没问题了，刚刚粗心。还有一个Image 没有设置 ZOrder

Answer 3

Private Sub Label1_Click(Index As Integer)
If Index=某数 Then 
   事件 
Endif
End Sub