Is (operator): Difference between revisions
Jump to navigation
Jump to search
No edit summary |
No edit summary |
||
| Line 7: | Line 7: | ||
== Example''' == | == Example''' == | ||
<pre> | |||
Rem Is Example | Rem Is Example | ||
Dim Obj1,Obj2 | Dim Obj1,Obj2 | ||
Obj1 = Array("Lovelace","Hopper","Allen") | Obj1 = Array("Lovelace","Hopper","Allen") | ||
Set Obj2 = Obj1 | Set Obj2 = Obj1 | ||
CompareObjects Obj1, Obj2 | CompareObjects(Obj1, Obj2) | ||
Set Obj2 = NOTHING | Set Obj2 = NOTHING | ||
CompareObjects Obj1, Obj2 | CompareObjects(Obj1, Obj2) | ||
missing=6 | missing=6 | ||
notmissing=7 | notmissing=7 | ||
CompareObjects missing, notmissing | CompareObjects(missing, notmissing) | ||
Sub CompareObjects(Ob1, Ob2) | Sub CompareObjects(Ob1, Ob2) | ||
If Ob1 | If Ob1 Is Ob2 Then | ||
Print "Same" | Print "Same" | ||
Else | Else | ||
| Line 30: | Line 32: | ||
<pre> | <pre> | ||
Same | Same | ||
Different | |||
Different | Different | ||
</pre> | </pre> | ||
Revision as of 19:13, 28 August 2012
result = object1 Is object2
Description
Is returns a boolean specifying if one object reference is identical to another. The required components, object1 and object2 are two object references.
Example
Rem Is Example
Dim Obj1,Obj2
Obj1 = Array("Lovelace","Hopper","Allen")
Set Obj2 = Obj1
CompareObjects(Obj1, Obj2)
Set Obj2 = NOTHING
CompareObjects(Obj1, Obj2)
missing=6
notmissing=7
CompareObjects(missing, notmissing)
Sub CompareObjects(Ob1, Ob2)
If Ob1 Is Ob2 Then
Print "Same"
Else
Print "Different"
End If
End Sub
Output
Same Different Different