Zugriff auf Klassen-Eigenschaft

28/11/2008 - 17:41 von Frank Bach | Report spam
Hallo NG,

ich habe eine Klasse:

Public Class Adresse
Public Name as string
Public Vorname as string
End Class

Jetzt kann ich auf den Namen folgendermaßen zugreifen:
...
Dim MyAdresse as New Adresse
MyAdresse.Name = "Müller"
...

Ich bràuchte für eine Schleifenverarbeitung jedoch einen Zugriff über eine
Variable:
...
MyAdresse("Name") = "Müller"
...

Kann ich das irgendwie hinbekommen ?


Danke!

Frank
 

Lesen sie die antworten

#1 Harald M. Genauck
28/11/2008 - 18:15 | Warnen spam
Hallo Frank,

ich habe eine Klasse:

Public Class Adresse
Public Name as string
Public Vorname as string
End Class

Jetzt kann ich auf den Namen folgendermaßen zugreifen:
...
Dim MyAdresse as New Adresse
MyAdresse.Name = "Müller"
...

Ich bràuchte für eine Schleifenverarbeitung jedoch einen Zugriff über
eine Variable:
...
MyAdresse("Name") = "Müller"
...

Kann ich das irgendwie hinbekommen ?



Du könntest Deine Klasse mit einer Standardeigenschaft versehen:

Public Class Adresse
Public Name As String
Public Vorname As String

Default Public Property Value(ByVal key As String) As String
Get
Select Case key.ToLower
Case "name"
Return Name
Case "vorname"
Return Vorname
End Select
End Get
Set(ByVal value As String)
Select Case key.ToLower
Case "name"
Name = value
Case "vorname"
Vorname = value
End Select
End Set
End Property

End Class

Wichtig: Das Schlüsselwort "Default" vor der Deklaration der
Eigenschaft "Value".


Viele Grüße

Harald M. Genauck

"VISUAL STUDIO one" - http://www.visualstudio1.de (Chefredakteur)
"ABOUT Visual Basic" - http://www.aboutvb.de (Herausgeber)

Ähnliche fragen