Confronto oggetti VB6

Question

Quale metodo VB6 consente di confrontare due oggetti personalizzati dello stesso tipo (definiti in un modulo di classe)? Penso che ci sia un equivalente al metodo compareTo di Java, ma non riesco a trovarlo da nessuna parte.

Answer 1

Per gli altri che potrebbe chiedere circa la stessa domanda:

Dopo aver fatto un sacco di ricerche, sembra che VB6 non abbia alcun tipo di metodi integrati compareTo o equals, come Java.

Ho dimenticato che in Java, compareTo è definito nell'interfaccia java.lang.Comparable. Poiché le interfacce sono così spezzate in VB6, anche se hai scritto la tua interfaccia Comparable, dovresti chiamare il tuo metodo Comparable_compareTo a meno che non sia stato dichiarato come Comparable, che è inutile.

Linea di fondo:. Se vuoi compareTo o equals metodi nelle classi VB6, basta metterli in

Answer 2

Se per "confrontare" vuol dire "sono la stessa tipo?", È possibile il TypeName funzione:

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 

Se per "confrontare" intendi "non fanno riferimento allo stesso oggetto ? in memoria", è possibile utilizzare il Is operatore:

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