Von DLL nach DLL Variable (As Object) erkennen

09/03/2011 - 16:46 von Heinz-Mario Frühbeis | Report spam
Hallo!

Gegeben ->
DLL_1
DLL_2

In DLL_1 in einem Modul ->


Public Obj_Für_Dies As Object
Public Obj_Für_Das As Object

In DLL_2 möchte ich nun ->


Private MeinObj_Für_Dies As Object
Private MeinObj_Für_Das As Object


Public Sub SetFürObject(ByRef varObj As Object)
Set varObj = MeinObj_Für_Dies ' oder eben ->
Set varObj = MeinObj_Für_Das
End Sub

Aufruf in DLL_1 ->


DLL_2.SetFürObject Obj_Für_Dies ' oder eben ->
DLL_2.SetFürObject Obj_Für_Dies

Wie kann ich denn in DLL_2 unterscheiden, ob jetzt ->
entweder MeinObj_Für_Dies
oder MeinObj_Für_Das
übergeben wurde?

Mit Gruß
Heinz-Mario Frühbeis
 

Lesen sie die antworten

#1 Schmidt
09/03/2011 - 19:10 | Warnen spam
"Heinz-Mario Frühbeis" schrieb im Newsbeitrag
news:il87df$6cq$

Wie kann ich denn in DLL_2 unterscheiden, ob jetzt ->
entweder MeinObj_Für_Dies
oder MeinObj_Für_Das
übergeben wurde?



Mittels TypeName(Obj) wenn LateBinding zum Zuge
kommt (gibt dann einen String zurück).

Oder mittels:

If TypeOf Obj Is MeineClasseFürDies Then
...
End If

Olaf

Ähnliche fragen