|
Damit eine Eigenschaft eines UserControls zur Designzeit im
Eigenschaftenfenster angezeigt wird, müssen die
Eigenschaftenprozeduren Property Get und Property Let (bzw. Set)
paarweise vorhanden sein. Bei einer Eigenschaft, die sowohl zur
Designzeit als auch zur Laufzeit nur lesbar sein soll, braucht
dagegen nur die Property Get-Prozedur implementiert zu sein - sie
wird dann allerdings nicht im Eigenschaftenfenster angezeigt.
Wenn Sie den Wert einer nur lesbaren Eigenschaft trotzdem zur
Designzeit im Eigenschaftenfenster anzeigen wollen, ohne dass sie
geändert werden kann, fügen Sie eine Property Let-Prozedur hinzu,
in der nichts weiter geschieht, als eine Fehlermeldung auszulösen.
Die Fehlernummer setzen Sie aus dem Konstantwert vbObjectError und
einer beliebigen Fehlernummer zusammen. Als Fehlerbeschreibung
lassen Sie einen Text wie etwa "Diese Eigenschaft kann nicht
geändert werden." anzeigen.
Public Property Get AktuelleUhrzeit() As Date
AktuelleUhrzeit = Now
End Property
Public Property Let AktuelleUhrzeit(Dummy As Date)
Err.Raise vbObjectError + 4444, , _
"Diese Eigenschaft kann nicht geändert werden."
End Property
|