Estructuras y otros elementos de programación (Visual Basic)

  • Artículo

Puede usar estructuras junto con matrices, objetos y procedimientos, así como entre sí. Las interacciones usan la misma sintaxis que estos elementos usan individualmente.

Nota

No se puede inicializar ninguno de los elementos de la estructura en la declaración de estructura. Solo puede asignar valores a los elementos de una variable declarada como de un tipo de estructura.

Estructuras y matrices

Una estructura puede contener una matriz como uno o varios de sus elementos. Esto se ilustra en el siguiente ejemplo:

Public Structure systemInfo  
    Public cPU As String  
    Public memory As Long  
    Public diskDrives() As String  
    Public purchaseDate As Date  
End Structure

Puede acceder a los valores de una matriz dentro de una estructura de la misma manera que accede a una propiedad en un objeto. Esto se ilustra en el siguiente ejemplo:

Dim mySystem As systemInfo  
ReDim mySystem.diskDrives(3)  
mySystem.diskDrives(0) = "1.44 MB"

También puede declarar una matriz de estructuras. Esto se ilustra en el siguiente ejemplo:

Dim allSystems(100) As systemInfo

Siga las mismas reglas para acceder a los componentes de esta arquitectura de datos. Esto se ilustra en el siguiente ejemplo:

ReDim allSystems(5).diskDrives(3)  
allSystems(5).CPU = "386SX"  
allSystems(5).diskDrives(2) = "100M SCSI"

Estructuras y objetos

Una estructura puede contener un objeto como uno o varios de sus elementos. Esto se ilustra en el siguiente ejemplo:

Protected Structure userInput  
    Public userName As String  
    Public inputForm As System.Windows.Forms.Form  
    Public userFileNumber As Integer  
End Structure

Debe usar una clase de objeto específica en esta declaración, en lugar de Object.

Estructuras y procedimientos

Puede pasar una estructura como argumento de procedimiento. Esto se ilustra en el siguiente ejemplo:

Public currentCPUName As String = "700MHz Pentium compatible"  
Public currentMemorySize As Long = 256  
Public Sub fillSystem(ByRef someSystem As systemInfo)  
    someSystem.cPU = currentCPUName  
    someSystem.memory = currentMemorySize  
    someSystem.purchaseDate = Now  
End Sub

En el ejemplo anterior se pasa la estructura por referencia, lo que permite al procedimiento modificar sus elementos para que los cambios surtan efecto en el código de llamada. Si desea proteger una estructura frente a esa modificación, pásela por valor.

También puede devolver una estructura desde un procedimiento Function. Esto se ilustra en el siguiente ejemplo:

Dim allSystems(100) As systemInfo  
Function findByDate(ByVal searchDate As Date) As systemInfo  
    Dim i As Integer  
    For i = 1 To 100  
        If allSystems(i).purchaseDate = searchDate Then Return allSystems(i)  
    Next i  
   ' Process error: system with desired purchase date not found.  
End Function

Estructuras dentro de estructuras

Las estructuras pueden contener otras estructuras. Esto se ilustra en el siguiente ejemplo:

Public Structure driveInfo  
    Public type As String  
    Public size As Long  
End Structure  
Public Structure systemInfo  
    Public cPU As String  
    Public memory As Long  
    Public diskDrives() As driveInfo  
    Public purchaseDate As Date  
End Structure  

Dim allSystems(100) As systemInfo  
ReDim allSystems(1).diskDrives(3)  
allSystems(1).diskDrives(0).type = "Floppy"

También puede usar esta técnica para encapsular una estructura definida en un módulo dentro de una estructura definida en un módulo diferente.

Las estructuras pueden contener otras estructuras a una profundidad arbitraria.

Consulte también