关于Controls中字符串有数字变量时如何处理？

??

For i = 2 To 59

  Load Picture0(i)

  Picture0(i).Top = Picture0(0).Top

  Picture0(i).Left = 35 + (i - 2) * 84

  Picture0(i).Visible = True



  Load Picture1(i)

  Picture1(i).Top = Picture1(0).Top

  Picture1(i).Left = 35 + (i - 2) * 84

  Picture1(i).Visible = True



  Load Picture2(i)

  Picture2(i).Top = Picture2(0).Top

  Picture2(i).Left = 35 + (i - 2) * 54

  Picture2(i).Visible = True

Next

Private Sub Form_Load()

'添加三个Picture----Picture0,Picture1,Picture2,index属性全部为0

For i = 1 To 5

  Load Picture0(i)

  Picture0(i).Top = Picture0(0).Top

  

  Picture0(i).Left = Picture0(i - 1).Left + Picture0(i - 1).Width + 40

  Picture0(i).Visible = True

  Next

    

  For i = 1 To 5

  Load Picture1(i)

  Picture1(i).Top = Picture1(0).Top

  Picture1(i).Left = Picture1(i - 1).Left + Picture1(i - 1).Width + 40

  Picture1(i).Visible = True

  Next



  For i = 1 To 5

  Load Picture2(i)

  Picture2(i).Top = Picture2(0).Top

  Picture2(i).Left = Picture2(i - 1).Left + Picture2(i - 1).Width + 40

  Picture2(i).Visible = True

  Next



End Sub

Private Sub Form_Load()

   Me.ScaleMode = vbPixels



   For j = 0 To 2

     For i = 2 To 59

         Load Me("Picture" & j)(i)

         Me("Picture" & j)(i).BorderStyle = 0

         Me("Picture" & j)(i).BackColor = QBColor(11 + j * 2)

         Me("Picture" & j)(i).Move 35 + (i - 2) * 14, j ^ 2 * 7 + 7, 7, 7

         Me("Picture" & j)(i).Visible = True

     Next

   Next

End Sub

补充：VB ,  基础类

上一个：请问这个网页能自动填写么？谢谢
下一个：扫条码不能触发MSComm_OnComm()事件，鼠标不能动，没死机