Question

关于vb两个图片交换

dim temp as picture
temp = Picture2(Index + 1).Picture
Picture2(Index + 1).Picture = Picture2(Index).Picture
Picture2(Index).Picture = temp
为什么提示错误91对象变量或with块变量未设置

Answer 1

我看了后，觉得两个地方可能有误，第一、temp为关键字，最好不用，换一个变量。第二、vb里边就没有picture这个数据类型，只有picturebox

追问

1.我换了个别的也不好使
2.我看到别人的代码有Dim pic(6) As Picture，不懂啥意思

Answer 2

Index是多少？不知道啊

追问

好像是点击的那个就是index，我刚看的 不是很明白。我想做个对对碰小游戏想把两个图片交换

追答

Dim pic(6) As Picture是控件数组的第七个
你必须保证有Picture2(Index + 1).这个控件才可以

追问

t = Picture2(1).Picture
Picture2(1).Picture = Picture2(2).Picture
Picture2(2).Picture = t
我换成这个试了也不行

追答

前面加set试试

追问

Set t = Picture2(Index).Picture
Picture2(Index).Picture = Picture2(Index + 1).Picture
Picture2(Index + 1).Picture = t
我改成这样就行了，为什么是这样，教教我好吗，我刚接触vb，谢谢

追答

Set 语句

将对象引用赋给变量或属性。

语法

Set objectvar = {[New] objectexpression | Nothing}

Set 语句的语法包含下面部分：

部分 描述
objectvar 必需的。变量或属性的名称，遵循标准变量命名约定。
New 可选的。通常在声明时使用 New，以便可以隐式创建对象。如果 New 与 Set 一起使用，则将创建该类的一个新实例。如果 objectvar 包含了一个对象引用，则在赋新值时释放该引用。不能使用 New 关键字来创建任何内部数据类型的新实例，也不能创建从属对象。
objectexpression 必需的。由对象名，所声明的相同对象类型的其它变量，或者返回相同对象类型的函数或方法所组成的表达式。
Nothing 可选的。断绝 objectvar 与任何指定对象的关联。若没有其它变量指向 objectvar 原来所引用的对象，将其赋为 Nothing 会释放该对象所关联的所有系统及内存资源。

说明

为确保合法，objectvar 必须是与所赋对象相一致的对象类型。

通常，当使用 Set 将一个对象引用赋给变量时，并不是为该变量创建该对象的一份副本，而是创建该对象的一个引用。可以有多个对象变量引用同一个对象。因为这些变量只是该对象的引用，而不是对象的副本，因此对该对象的任何改动都会反应到所有引用该对象的变量。不过，如果在 Set 语句中使用 New 关键字，那么实际上就会新建一个该对象的实例。
Set 语句示例
该示例使用 Set 语句将对象引用赋给变量。假定 YourObject 指向一个具有 Text 属性的合法对象。

Dim YourObject, MyObject, MyStr
Set MyObject = YourObject '对象引用赋值。
'MyObject 和 YourObject 引用同一个对象。
YourObject.Text = "Hello World" '初始化属性。
MyStr = MyObject.Text '返回 "Hello World"。

'脱离关联。MyObject 不再引用 YourObject。
Set MyObject = Nothing '释放该对象。