Guten Tag,
ich habe eine Klasse in der ich über die Private Subs Werte ändern möchte, diese sollen von Außerhalb des erstellten Objekts gelesen aber nicht geändert werden können.
Hier mal ein Beispiel;
Zu Recht meckert der Editor, dass Value ReadOnly ist.
Wie ist es möglich, Value einem Wert innerhalb des Objektes zuzuweisen, welcher von Außerhalb dann nicht mehr geändert werden kann?
Freundliche Grüße
ich habe eine Klasse in der ich über die Private Subs Werte ändern möchte, diese sollen von Außerhalb des erstellten Objekts gelesen aber nicht geändert werden können.
Hier mal ein Beispiel;
VB.NET-Quellcode
- Public Class MyTest
- Public ReadOnly Property Value As String = ""
- Private Tmp_Value As String
- Sub New(ByVal Value As String,
- ByVal P As Parameters)
- With Me
- .Tmp_Value = Value
- Select Case P
- Case Parameters.Blue
- .Value = "Blau"
- Case Parameters.Green
- .Value = "Grün"
- Case Parameters.Red
- .Value = "Rot"
- Case Else
- End Select
- End With
- End Sub
- Public Enum Parameters As Byte
- Red = 5
- Green = 6
- Blue = 19
- End Enum
- End Class
Zu Recht meckert der Editor, dass Value ReadOnly ist.
Wie ist es möglich, Value einem Wert innerhalb des Objektes zuzuweisen, welcher von Außerhalb dann nicht mehr geändert werden kann?
Freundliche Grüße