VB6 对象比较

Question

什么 VB6 方法允许将两个相同类型的自定义对象(在类模块中定义)相互比较？我认为有一个等效于 Java 的 compareTo 方法，但我无法在任何地方找到它。

Answer 1

如果“比较”是指“它们是同一类型吗？”，您可以使用 类型名称 功能:

If (object1 <> Nothing) and (object2 <> Nothing) then
  If (TypeName(object1) = TypeName(object2)) Then
    Debug.Print "object types are the same"
  Else
    Debug.Print "object types are NOT the same"
  End If
End If

如果“比较”是指“它们是否引用内存中的相同对象？”，您可以使用 是 运算符(operator):

If (object1 Is object2) Then
  Debug.Print "objects references are the same"
Else
  Debug.Print "objects references are NOT the same"
End If