Parfois, nous souhaitons sélectionner tout le texte de la zone de texte lorsque le contrôle de zone de texte obtient le focus. Cela peut être réalisé via les propriétés SelStart et SelLength. Plus précisément, lorsque l'objet obtient le focus, il est sélectionné depuis l'avant (SelStart=0) et la longueur sélectionnée est la longueur du texte (Len (Text1)).
Sous-texte privé1_GotFocus()
Texte1.SelStart = 0
Text1.SelLength = Len(Texte1)
Fin du sous-marin
L'événement GotFocus se produit lorsqu'un contrôle obtient le focus.