Unas de las cosas más cómodas de la sintaxis de Visual Basic es la instrucción WITH…END WITH que, básicamente, nos permite acceder a los miembros de un objeto sin repetir su nombre constantemente.
La sintaxis básica sería la siguiente:
WITH Objeto
'lo que vayamos a hacer
'con sus miembros
END WITH
Dicho así no se entiende bien, pero con un ejemplo lo vemos claro. Tenemos aquí un objeto Mensaje y sus miembros son los valores que necesitamos para enviar un email:
With Mensaje
Set .Configuration = iConf
.To = "correo@gmail.com"
.From = "Donnie"
.Subject = "Ejemplo with"
.HTMLBody = correoHTML
.Send
End With
Como podéis ver esta sintaxis nos ahorra escribir la referencia al objeto Mensaje antes de cada uno de sus elementos. Es a su vez cómodo para escribir y para leer el código.
Es posible anidar una sentencia WITH dentro de otra para acceder a un objeto interno, pero esto puede hacer nuestro código más difícil de leer.
With obVentana
With .Etiqueta
.Mensaje= "Esto es un aviso."
.Fondo = Brushes.DarkSeaGreen
End With
.Titulo = "VENTANA DE AVISO"
.Show()
End With