Mega Code Archive
Array of Structure
<![CDATA[
Structure Employee
Dim strName As String
Dim intSalary As Integer
End Structure
public class Test
public Shared Sub Main
Dim aryEmployees(15) As Employee
Dim intCounter As Integer
aryEmployees(0).strName = "J"
aryEmployees(0).intSalary = 3
aryEmployees(1).strName = "B"
aryEmployees(1).intSalary = 6
'Set other array elements here.
aryEmployees(15).strName = "P"
aryEmployees(15).intSalary = 1
'Show the elements of the array.
For intCounter = 0 To 15
Console.WriteLine("Array element: " & intCounter & vbCrLf & _
"Name: " & aryEmployees(intCounter).strName & vbCrLf & _
"Salary: " & aryEmployees(intCounter).intSalary)
Next intCounter
End Sub
End class
Array element: 0
Name: J
Salary: 3
Array element: 1
Name: B
Salary: 6
Array element: 2
Name:
Salary: 0
Array element: 3
Name:
Salary: 0
Array element: 4
Name:
Salary: 0
Array element: 5
Name:
Salary: 0
Array element: 6
Name:
Salary: 0
Array element: 7
Name:
Salary: 0
Array element: 8
Name:
Salary: 0
Array element: 9
Name:
Salary: 0
Array element: 10
Name:
Salary: 0
Array element: 11
Name:
Salary: 0
Array element: 12
Name:
Salary: 0
Array element: 13
Name:
Salary: 0
Array element: 14
Name:
Salary: 0
Array element: 15
Name: P
Salary: 1
]]>