VB-Homepage Tipp 285

Benutzerdefinierte Typen definieren und nutzen

Variablen, also Objekte denen Sie Werte zuweisen, müssen immer einem bestimmten Typ angehören.
Dieses wird über die Dim Anweisung erledigt.

Dim MeineVaraible as String
(definiert den Variablentyp und damit den Inhalt als Zeichenkette)

Dim MeineVariable as Integer
(definiert den Variablentyp und damit den Inhalt als numerischen Wert)

Wenn Sie sich zum Beispiel schon die API Funktionen zu nutze gemacht haben, sind Sie sicher auch auf ganze andere Typdefinitionen gestoßen.

Type POINTAPI
     x As Long
     y As Long
End Type

Gearbeitet wird dann aber nicht mit POINTAPI sondern mit einer selbst definierten Variable, die man als entsprechenden Typ definiert.

Dim MeinPointApi As POINTAPI
MeinPointApi.x = .....
MeinPointApi.y = .....

Das Ganze wollen wir nun für unseren eigenen Typ nutzen.
Als Beispiel wäre uns ein Typ recht, der sowohl einen Namen, einen Vornamen und eine Telefonnummer speichern kann.

Type MeinEignerTyp
     Name As String
     Vorname As String
     Telefon As String
End Typ

Wenn Sie es im Allgemein/Deklarationen Abschnitt eines Moduls angeben,
reicht diese Angabe. Nutzen Sie die Form, müssen Sie     
Private Type MeinEignerTyp   angeben.

Definieren Sie dann die Variable, die diesem Typ entsprechen soll.

Dim Adresse As MeinEignerTyp

.. und nun holen wir uns die Information z.Bsp. auslesen von Textfeldern
Adresse.Name = Text1.Text
Adresse.Vorname = Text2.Text
Adresse.Telefon = Text3.Text

und abfragen geht genauso gut.

Msgbox Adresse.Vorname & " " & Adresse.Name & " = " & Adresse.Telefon

Möchten Sie den Variablen auch noch die Anzahl an Zeichen zuweisen, können Sie dies wie folgt.

Type MeinEignerTyp
     Name As String * 20
     Vorname As String * 20
     Telefon As String * 15
End Typ

Dabei werden nicht benötigte Zeichen mit Leerzeichen aufgefüllt.

Dies hat den Vorteil, daß jeder Datensatz die gleiche Länge aufweist und er so besser händelbar ist.

Der Vorteil der Nutzung benutzerdefinierter Typen liegt einmal im Vorgenannten, aber auch eine bessere Übersichtlichkeit und Resourcenschonung zählen dazu.


Tipp-Download

Quelle :

Zurück zur Übersichtsseite