Question

vb中的图像控件怎样设置？

这有一段代码，试着运行时总告知：“对象变量或with块变量未设置”，怎么这是呢？
Private Sub setimg()
Dim i As Integer
Dim img(0 To 6) As Image
Dim imgbj As Image
Dim imgjx As Image
i = 0
For i = 0 To 6
Set img(i).Picture = imglist.ListImages(1).Picture
img(i).Visible = True
Next
Set imgbj.Picture = imglist.ListImages(11).Picture
Set imgjx.Picture = imglist.ListImages(14).Picture
End Sub
调试程序时显示这一句有问题：Set img(i).Picture = imglist.ListImages(1).Picture
折磨了我好几天了，就是不知道怎样修改

Answer 1

你要引用imglist的值,应当首先判断该对象是否存在.

在set之前要用is nothing判断

Answer 2

先将type设置为1，然后再设置picture属性

Answer 3

运行中变量为空，贴出那句话出来问题。
检查imglist的picture序号有没有14。