- Ορισμένες φορές χρειάζεται να ομαδοποιήσουμε δεδομένα διαφορετικών
τύπων μεταξύ τους.
Για το σκοπό αυτό μπορούμε να ορίσουμε έναν νέο
τύπο (type) δεδομένων ως μια
δομή (structure).
- Τη δυνατότητα αυτή μας δίνει η εντολή Type με την παρακάτω σύνταξη:
Type όνομα
πεδίο1 As τύπος
πεδίο2 As τύπος
...
End Type
- Παράδειγμα:
Type CustomerEntry
Name As String
Phone As String
Balance As Currency
End Type
- Τα στοιχεία μπορούν να είναι και πίνακες σύμφωνα με τη σύνταξη
που ορίζουμε τις αντίστοιχες μεταβλητές.
- Με βάση τον τύπο που ορίσαμε μπορούμε να ορίσουμε νέες μεταβλητές:
Dim CurrentCustomer As CustomerEntry
Dim AllCustomers(100) As CustomerEntry
- Πρόσβαση στα πεδία της δομής έχουμε με τη σύνταξη μεταβλητή.πεδίο:
Dim TotalBalance as Currency
MsgBox CurrentCustomer.Name + CurrentCustomer.Phone
For i = 1 to 100
TotalBalance = TotalBalance + AllCustomers(i).Balance
Next i