通过

结构和其他编程元素 (Visual Basic)

  • 项目

可以将结构与数组、对象和过程结合使用，也可以相互配合使用。 交互使用的语法与这些元素单独使用的语法相同。

注意

不能初始化结构声明中的任何结构元素。 只能将值分配给已声明为结构类型的变量的元素。

结构和数组

结构可包含一个数组作为结构的一个或多个元素。 下面的示例对此进行了演示。

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

访问结构中的数组值的方式与访问对象属性的方式相同。 下面的示例对此进行了演示。

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

还可以声明由结构构成的数组。 下面的示例对此进行了演示。

Dim allSystems(100) As systemInfo

你会遵循相同的规则来访问此数据体系结构的组件。 下面的示例对此进行了演示。

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

结构和对象

结构可包含一个对象作为结构的一个或多个元素。 下面的示例对此进行了演示。

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

应在此类声明中使用特定对象类，而不是 Object。

结构和过程

可以将结构作为过程自变量传递。 下面的示例对此进行了演示。

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

前面的示例按引用传递结构，该结构允许过程修改其元素，以便更改在调用代码中生效。 如果要防止结构受到此类修改，请按值传递。

还可以从 Function 过程返回结构。 下面的示例对此进行了演示。

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

结构中的结构

结构可包含其他结构。 下面的示例对此进行了演示。

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"

还可以使用此技术将一个模块中定义的结构封装在其他模块中定义的结构中。

结构可以包含任意深度的其他结构。

另请参阅