Comparación de objetos. El operador Is - II

Como hemos podido comprobar, al comparar las variables del anterior fuente con Is, el resultado es False, ya que ambos objetos son instancias diferentes, aunque pertenezcan a la misma clase: Form. La creación de formularios será abordada en un tema posterior. Si por el contrario, creamos una única instancia de un objeto y la asignamos a las dos variables, el resultado será muy diferente. En este caso el operador Is devolverá True ya que ambas variables contienen el mismo objeto. Ver Código fuente 76.

Public Sub Main()

' declarar dos variables que

' contendran objetos de la clase Form

Dim VentanaUno As Form

Dim VentanaDos As Form

Dim Resultado As Boolean

' crear una única instancia de la clase Form,

' el objeto resultante se asigna a una variable

VentanaUno = New Form()

' después el mismo objeto que ya está

' en una variable se asigna a la otra variable

VentanaDos = VentanaUno

' ambas variables contienen una referencia

' al mismo objeto, por lo que la expresión

' de comparación Is devuelve True

Resultado = VentanaUno Is VentanaDos

End Sub

Código fuente 76