SetFocus u.a.
17.08.2004 11:52:08
Krauti
ich würde gern umsetzen,
1. dass in einer Textbox bereits ein "Hilfetext" hinsichtlich der Eingabe enthalten ist. Wenn man dann in die Textbox klickt, soll der gesamte Text markiert werden, sodass man ihn leicht überschreiben kann.
2. dass, wenn man eine Box vor dem Feld auswählt, der Cursor in die Textbox dahinter springt und wiederum den Hilfetext automatisch markiert und man ihn leicht überschreiben kann.
Das 2. Problem hatte ich gedacht, mit
If ChckBox1.Value = True Then
TxtBox1.Enabled = True
TxtBox1.SetFocus
i = Len(TxtBox1.Text)
TxtBox1.SelStart = 0
TxtBox1.SelLength = i
Else
TxtBox1.Enabled = False
TxtBox1.Text = "[Hilfetext]"
End If
zu lösen. Das Ganze funktioniert jedoch nur in einer Userform.
Habt Ihr vielleicht eine Idee?
Herzlichen Dank und schöne Grüße
Krauti