编程论坛 → VB6论坛

清除 image 控件的图片问题？？？？？我

高三党发布于 2014-06-14 23:31， 1063 次点击

如何逐个清除我已经画好了的16个image控件？，使用控件数组总是无法成功

程序代码：

Dim A As Long

Private Sub Command1_Click()
A = 1
Image(A).Picture = LoadPicture()

End Sub

7 回复

xzlxzlxzl2014-06-15 06:49

方法1：Set Image1.Picture = Nothing
方法2：Image1.Picture = LoadPicture("")

高三党2014-06-15 16:06

回复 2 楼 xzlxzlxzl

现在有一个command1按钮和image控件数组：image（0）到image（15），我想按一次键就清除一个图标，

程序代码：

Dim a As Integer
a = 0

Private Sub Command1_Click()
a = a + 1

Image(a).Picture = LoadPicture("")

End Sub

高三党2014-06-15 16:06

回复 2 楼 xzlxzlxzl

但是无法成功

高三党2014-06-15 16:27

回复 3 楼高三党

a= 0.............那行代码是放在Private Sub Form_Load()
事件中的，打错了，。。。
现在还是不行，它提示“编译错误：无效限定符”并且自动将“Image（a）”用蓝底框起来，“Private Sub Command1_Click()”这行用黄底框了起来，
不能理由是什么？

高三党2014-06-16 07:02

我知道答案了，用image.item()可实现，谢谢；了

xzlxzlxzl2014-06-16 08:16

控件数组应该直接“控件名（索引号）”就可以访问的。你在3楼的错误是使用了关键字做控件名（image是vb默认的一个类关键字，如果将控件数组名改为image1就可以了）。
我非常怀疑你用image.item(a)的方法获得成功，反正我没成功，错误提示为类不支持该方法。

[ 本帖最后由 xzlxzlxzl 于 2014-6-16 08:22 编辑 ]

高三党2014-06-16 11:53

回复 7 楼 xzlxzlxzl

真的成功了，我的是vb6.0

清除 image 控件的图片 问题？？？？？我

清除 image 控件的图片问题？？？？？我