标题: 控件数组的问题？ [打印本页] 作者: access_boy_li 时间: 2009-5-12 12:03 标题: 控件数组的问题？ Private Sub Form_Load()
On Error GoTo Err
' Set img(0) = Me.imgLine1
' Set img(1) = Me.imgLine2
' Set img(2) = Me.imgLine3
' Set img(3) = Me.imgLine4
' Set img(4) = Me.imgLine5
' Set img(5) = Me.imgLine6
' Set img(6) = Me.imgLine7
' Set img(7) = Me.imgLine8
' Set img(8) = Me.imgLine9
' Set img(9) = Me.imgLine10
For i = 0 To 10
Set img(i) = Me.Controls("imgLine" & i)
Next
Me.TimerInterval = 150
Exit Sub
Err:
MsgBox Err.Number & Err.Description
End Sub
Set img(i) = Me.Controls("imgLine" & i) 出错？？
怎么实现啊？？作者: Henry D. Sy 时间: 2009-5-12 12:05
vba视乎不支持控件数组