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:     [ Jetzt bewerten ]	Views:  15.635
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 40 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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