Rubrik: Variablen/Strings · UDT (Benutzerdefinierte Datentypen) | VB-Versionen: VB5, VB6 | 04.04.05 |
UDT als Parameter einer Klassen-Prozedur Irgendwie scheint es ein VB-Bug zu sein, der es nicht erlaubt, ein UDT an eine öffentliche Klassen-Prozedur zu übergeben. Wie man das Ganze umgehen kann, das erfahren Sie hier. | ||
Autor: Dieter Otter | Bewertung: | Views: 15.344 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Arbeiten Sie auch gerne mit UDT's (benutzerdefinierte Datentypen)? Und haben Sie schon einmal versucht ein solches UDT an eine öffentliche Prozedur eines Klassenmoduls zu übergeben? Wahrscheinlich ja - aber weit sind Sie sicherlich nicht gekommen, denn schon das Deklarieren der Prozedur quittiert uns VB mit einer Fehlermeldung, die da lautet:
Fehler beim Kompilieren! Nur öffentliche, benutzerdefinierte Typen, die in öffentlichen Objektmodulen definiert sind, können als Parameter oder Rückgabetypen für öffentliche Prozeduren von Klassenmodulen oder als Felder öffentlicher, benutzerdefinierter Type verwendet werden.
Eigenartig... das Ganze funktioniert auch dann nicht, wenn man den benutzerdefinierten Datentyp als "Public" in einem Modul deklariert:
Im Modul...
Option Explicit ' UDT festlegen Public Type myUDT Var1 As String Var2 As Long Var3 As String Var4 As Date End Type
Im Klassenmodul...
Public Sub DoSomething(oData As myUDT) ... End Sub
Beim Versuch das Projekt zu starten, wird obige Fehlermeldung ausgeworfen.
Wir schafft man es jetzt aber dennoch, ein UDT an die Prozedur zu übergeben?
Die Lösung lautet: als Pointer
Das heißt, wir übergeben der Prozedur nicht das UDT selbst, sondern mittels der VarPtr-Funktion von VB die Speicheradresse des UDTs. Innerhalb der Prozedur kopieren wir dann mit Hilfe der CopyMemory-Funktion den Speicherinhalt in unsere UDT-Variable.
Das Ganze sieht dann wie folgt aus:
Im Klassenmodul...
Option Explicit ' Benötigte API-Deklarationen Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" ( _ Destination As Any, _ ByVal Source As Long, _ ByVal Length As Long)
Public Sub DoSomething(nDataPointer As Long) Dim oData As myUDT ' Speicherinhalt ins UDT kopieren Call CopyMemory(oData, nDataPointer, Len(oData)) ' UDT-Inhalt auslesen With oData Debug.Print StrConv(.Var1, vbFromUnicode) Debug.Print .Var2 Debug.Print StrConv(.Var3, vbFromUnicode) Debug.Print .Var4 End With End Sub
Der Aufruf der Prozedur "DoSomething" aus einer Form heraus, erfolgt dann so:
In einer Form...
Option Explicit ' Instanz der Klasse erzeugen Dim oClass As New Class1
Dim oData As myUDT ' UDT mit Daten füllen With oData .Var1 = "Irgendetwas" .Var2 = 100 .Var3 = "noch etwas" .Var4 = Now End With ' UDT als Pointer die Klassen-Prozedur "DoSomething" übergeben oClass.DoSomething VarPtr(oData)
Et voilà... und es geht also doch