vb控件数组问题

创建了一个控件数组image1()PrivateSubcmd_Click()Fori=1To7LoadImage1(i)Image1(i).Left=700*(iMod4... 创建了一个控件数组 image1()
Private Sub cmd_Click()
For i = 1 To 7
Load Image1(i)
Image1(i).Left = 700 * (i Mod 4 + 1)
Image1(i).Top = 480 + 700 * (i \ 4)
Next i
创建了7个image1
我想再点一次时它显示已经装载过了 如何在一开始把以前装载的删掉???
在下还有个问题在 http://zhidao.baidu.com/question/57129192.html
要求有个可以该难度。。入门,初级,中等,高级
展开
 我来答 举报
百度网友dca4cb820
2008-06-17
知道答主
回答量:19
采纳率:0%
帮助的人:17.9万
展开全部
Private Sub cmd_Click()
if ubound(image1)=7 then
if msgbox ("已经加载过了,是否把加载过的卸载?",vbYesNo)=vbyes then
for 1 to 7
unload image1(i)
next
exit sub
end if
end if
For i = 1 To 7
Load Image1(i)
Image1(i).Left = 700 * (i Mod 4 + 1)
Image1(i).Top = 480 + 700 * (i \ 4)
Next i
end sub
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
游芷容PD
2008-06-17 · TA获得超过188个赞
知道小有建树答主
回答量:212
采纳率:0%
帮助的人:0
展开全部
for Next 中间多加个

Image1(i)..Picture = Nothing

刚去你信箱了,没有邮件,谁给你删除了估计。
本回答被提问者采纳
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式