zur Laufzeit ganzen Inhalt eines Kontrollelements markieren

[gogo]

Hallo!

Weiss jemand wie es z.B. in einem Base-Formular möglich ist automatisch den gesamten Inhalt eines Textfeldes zu markieren wenn das Textfeld den Fokus erhält?
Manchmal ist das nämlich der Fall, und dann wiederum blinkt der Cursor am Ende des Textfeldes, und man muss den Text erst händisch löschen bevor man was neues eingeben kann.

g

[gogo]

Tja - wenn man weiss nach was man sucht: setSelection

viewtopic.php?f=8&t=37589

Das Makro hab ich nur geringfügig abegeändert, Hart-Codierung auf '3' ist auch kein Problem, da der Text nur aus 3 Chars besteht ansonsten müsste man einfach mit len() die Länge auslesen...

Code: Alles auswählen

Sub SetHighlighting_OnFocus(oEvt)
   Dim oSelection
   oSelection = oEvt.Source.Selection
   oSelection.Min = 0
   oSelection.Max = 3
   oEvt.Source.setSelection(oSelection)
End Sub

thx- DPunch

g