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
要求有个可以该难度。。入门,初级,中等,高级 展开
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
要求有个可以该难度。。入门,初级,中等,高级 展开
2个回答
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询