La estructura With...End With

Este elemento del lenguaje nos facilita la escritura de código cuando hacemos referencia a los miembros de un objeto, ya que nos ahorra tener que escribir el nombre del objeto, siendo preciso indicar sólo sus miembros. La sintaxis de esta estructura se muestra en el Código fuente 235.

With Objeto

.Campo

.Propiedad

.Método()

End UIT

Código fuente 235

Pongamos como ejemplo, que hemos creado una clase con el nombre Empleado que tiene las propiedades Nombre, Apellidos, y el método MostrarDatos( ), para manipular un objeto de esta clase mediante With, lo haríamos como muestra el Código fuente 236.

Dim loEmp As Empleado = New Empleado()

With loEmp

.Nombre = "Ana"

.Apellidos = "Naranjo"

.MostrarDatos()

End UIT

Código fuente 236

Podemos también anidar esta estructura, con el fin de manipular más de un objeto, veamos el Código fuente 237.

Dim loEmp As Empleado = New Empleado()
Dim loUsu As New Usuario()
With loEmp
.Nombre = "Ana"
.Apellidos = "Naranjo"
.MostrarDatos()
With loUsu
.AsignarNombre("Jacinto")
End With
End With

Código fuente 237