vb@rchiv · Tipps & Tricks

Rubrik: Variablen/Strings · UDT (Benutzerdefinierte Datentypen) | VB-Versionen: VB6

21.04.06

UDT leeren Durch Zuweisung einer "leeren" UDT-Variable lässt sich eine gefüllte UDT-Struktur schnell leeren.
Autor: Dieter Otter	Bewertung:	Views: 10.877
www.tools4vb.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Das Leeren einer UDT-Variable (benutzerdefinierte Datenstruktur) stellt für so manch einen eine kleine Herausforderung dar.

Beispiel:

Option Explicit
 
' Benutzerdefinierte Datenstruktur
Private Type UDT_Struc
  ID As Long
  Name As String
  Strasse As String
  PLZ As String
  Ort As String
  Land As String
  GebDat As Date
  EMail As String
End Type
 
Dim myUDT As UDT_Struc

' UDT füllen
With myUDT
  .ID = 1
  .Name = "Dieter Otter"
  .Strasse = "Maria-Stern-Str. 20"
  .PLZ = "97708"
  .Ort = "Steinach"
  .GebDat = "05.05.1973"
  .EMail = "info@tools4vb.de"
End With

Um nun den Inhalt von "myUDT" zu leeren gehen viele wie folgt vor:

With myUDT
  .ID = 0
  .Name = ""
  .Strasse = ""
  .PLZ = ""
  .Ort = ""
  .Land = ""
  .GebDat = Empty
  .EMail = ""
End With

Bei kleineren Datenstrukturen ist das auch noch gar nicht so tragisch. Was aber, wenn nachträglich neue Datenelemente in die UDT-Definition aufgenommen werden oder die UDT-Struktur aus 100 Datenfeldern besteht?

Schnelles Leeren einer UDT-Variable
Nachfolgender Zweizeiler zeigt, wie man die Daten einer UDT-Variable sehr schnell löschen kann, indem man einfach eine leere UDT-Variable zuweist!

Dim EmptyUDT As UDT_Struc
myUDT = EmptyUDT

Et voilà - die einzelnen Datenelemente sind gelöscht.