关于VB.NET实现图片控件数组的问题

关于VB.NET实现图片控件数组的问题

如果图片大小相同且小,就用imagelist
要不还是用picturebox吧
控件数组没了,你可以定义一个数组变量即可

dim p(9) as picturebox

mybase.load里加代码

p(0) = picturebox1
p(1)= picturebox2
...
p(9)= picturebox10

开始按钮中代码

dim i,j as integer
j = math.rnd()*10
for i = 0 to 9
p(i).visibale=false
next
p(j).visibale=true

动态控件方法
在程序运行时自动添加控件
这种方法
不需要一个个的在设计时画上去
如需要 还可以添加 事件 给这些控件 需要的话 可留言给我

dim p(9) as picturebox
form1_lode()...
dim i as integer
for i=0 to 9
p(i)=new picturebox
with p(i)
.sizemode=autosize
.image=new bitmap("c:/" & i & ".jpg")
.visable=false
end with
me.contorls.add(p(i))
end sub
button1_click()...
dim i,j as integer
i=int(rnd()*10)
for j=0 to 9
if i=j then
p(i).visable=true
else
p(i).visable=false
end if
next
end sub