1个回答
展开全部
Dim aShape(10#) As Shape
for i=0 to 10#-1
Set aShape(i) = Controls.Add("VB.Shape", Replace("Shape" + Str(i), " ", ""))
Next
注意，定义完了以后要像上面一样将数组初始化
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
