TExtfenster Vorgabewert und Löschung
28.02.2019 08:37:39
Robert
ich habe ein Problem mit dem guten VBA und meiner UserForm :)
Ich würde gern in ein Textfeld einen Vorgabewert haben, der jedoch verschwindet beim anklicken und bei Verlassen des Textfeldes ohne Eingabe der Vorgabetext wieder erscheint Leider gibt es bei mir immer einen Fehler :(
Private Sub Text_Datum_Enter(sender As System.Object, e As System.EventArgs)
Handles Text_Datum.GotFocus
With CType(sender, TextBox)
If .ForeColor = Color.Gray Then
.ForeColor = Color.Black
.Text = ""
End If
End With
End Sub
Private Sub Text_Datum_MouseLeave(sender As System.Object, e As System.EventArgs)
Handles Text_Datum.LostFocus
With CType(sender, TextBox)
If .Text = "" Then
.ForeColor = Color.Gray
.Text = "Gesperrt"
End If
End With
End Sub
Des Weiteren würde ich gern den Hintergrundtext "Gesperrt" bei Textfeldern die nicht verwendet werden dürfen einfügen.
Vielen Dank für eure Hilfe:)
VG Robert
Anzeige