您的位置:首页 > 其它

数组控制me("crlName")的调用方法

2010-08-06 16:43 465 查看
数组控制me("crlName")的调用方法

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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐