请问一个关于Object对象的问题（绝对给分）。

Question

请问如何将一个Object对象赋给另一个Object对象？怎样判断Object＝Nothing?

Answer 1

Set Object1=Object2
if Object1 is Nothing then
...
end if

Answer 2

你可以使用這樣
dim object1 as object
set object1=new object
if object1 is nothing then
當無指向時也就是當object=nothing時所要執行的語句.
end if

Answer 3

来慢一步
IF Object IS Nothing Then

Answer 4

补充一下创建对象有四种方法：
1。dim obj as New Class
2。set obj=obj1
3。set obj=creatobject("...")
4。使用返回对象的函数，也要用Set语句赋值*对象间的赋值必须使用Set语句：
   obj1=obj2'错误
   set obj1=obj2'正确
*对象之间的比较必须用Is运算符，例如
   if obj1 is obj2 then
   Nothing是对象变量的一个特殊值，表示没有初始化或已被删除哇，写得好累！争取赚点分：)

Answer 5

补充：判断一个对象（对象变量）是否为NOTHING并不能说明此对象不存在。只能说此对象变量并没有对这个对象的引用。SET 对象（变量）1=对象（变量）2 只能说对象（变量）1和对象（变量）2是对同一个对象（对象（变量）2原来所引用的对象）的引用，并没有生成新的对象。

Answer 6

哎 ~ ~ ~
还不容易裸奔到此
想不到还是迟了一步Nothing 也是一个对象（伪对象，表示“无物”）
对对象的判断使用“Is”关键词
If varObject Is CommandButton Then
  '...
ElseIf varObject Is Monkey Then
  '...
ElseIf varObject Is King Then
  '...
End If