With...End With (Instrucción, Visual Basic)

Ejecuta una serie de instrucciones que hacen referencia repetidamente a un único objeto o estructura, por lo que las instrucciones pueden utilizar una sintaxis simplificada al acceder a los miembros del objeto o estructura. Cuando use una estructura, sola podrá leer los valores de los miembros o invocar métodos, y recibirá un error si intenta asignar valores a los miembros de una estructura utilizada en una instrucción With...End With.

Sintaxis

With objectExpression
    [ statements ]
End With

Partes

Comentarios

Con With...End With, puede ejecutar una serie de instrucciones en un objeto especificado sin necesidad especificar el nombre del objeto varias veces. En un bloque de instrucciones With, puede especificar un miembro del objeto que comience por un punto, como si el objeto de la instrucción With lo precediera.

Por ejemplo, para cambiar varias propiedades de un único objeto, coloque las instrucciones de asignación de las propiedades dentro del bloque With...End With y haga referencia al objeto una vez, en lugar de hacerlo en cada una de las asignaciones de las propiedades.

Si el código tiene acceso al mismo objeto en varias instrucciones, la instrucción With le brinda las ventajas siguientes:

• No es necesario evaluar varias veces una expresión compleja ni asignar el resultado a una variable temporal para hacer referencia a sus miembros varias veces.

• El código resulta más legible al eliminar expresiones de calificación repetitivas.

El tipo de datos de objectExpression puede ser cualquier tipo de clase o estructura, o incluso un tipo elemental de Visual Basic, como Integer. Si objectExpression produce un valor que no es un objeto, solo podrá leer los valores de sus miembros o invocar métodos, y recibirá un error si intenta asignar valores a los miembros de una estructura utilizada en una instrucción With...End With. Este es el mismo error que obtendría si invocara un método que devolviera una estructura y accediera inmediatamente a un miembro del resultado de la función, como GetAPoint().x = 1, y le asignara un valor. El problema en ambos casos es que la estructura solo existe en la pila de llamadas y no hay forma de que un miembro de la estructura modificada en estas situaciones pueda escribir en una ubicación de forma que cualquier otro código del programa pueda observar el cambio.

objectExpression se evalúa una vez, tras su entrada en el bloque. No se puede reasignar objectExpression desde el interior del bloque With.

En un bloque With, solo de puede acceder a los métodos y propiedades del objeto especificado sin calificarlos. Se pueden usar métodos y propiedades de otros objetos, pero es necesario calificarlos con los nombres de objeto.

Puede incluir una instrucción With...End With dentro de otra. Las instrucciones With...End With anidadas pueden resultar confusas si los objetos a los que se hace referencia no están claros por el contexto. Debe proporcionar una referencia completa a un objeto que esté en un bloque With externo cuando se haga referencia al objeto desde dentro de un bloque With interno.

No se pueden crear bifurcaciones en un bloque de instrucciones With desde fuera del bloque.

A menos que el bloque contenga un bucle, las instrucciones se ejecutan una sola vez. Puede anidar diferentes tipos de estructuras de control. Para obtener más información, vea Estructuras de control anidadas.

Ejemplo 1

En el ejemplo siguiente, cada bloque With ejecuta una serie de instrucciones en un único objeto.

Private Sub AddCustomer()
    Dim theCustomer As New Customer

    With theCustomer
        .Name = "Coho Vineyard"
        .URL = "http://www.cohovineyard.com/"
        .City = "Redmond"
    End With

    With theCustomer.Comments
        .Add("First comment.")
        .Add("Second comment.")
    End With
End Sub

Public Class Customer
    Public Property Name As String
    Public Property City As String
    Public Property URL As String

    Public Property Comments As New List(Of String)
End Class

Ejemplo 2

En el ejemplo siguiente se anidan las instrucciones With…End With. En la instrucción With anidada, la sintaxis hace referencia al objeto interno.

Dim theWindow As New EntryWindow

With theWindow
    With .InfoLabel
        .Content = "This is a message."
        .Foreground = Brushes.DarkSeaGreen
        .Background = Brushes.LightYellow
    End With

    .Title = "The Form Title"
    .Show()
End With

Consulte también

• List<T>
• Estructuras de control anidadas
• Inicializadores de objeto: tipos con nombre y anónimos
• Tipos anónimos