AGIRE PRIMA CHE IL COMPONENTE RICEVA IL FOCUS
Quando il focus raggiunge un oggetto, viene generato un evento di nome GotFocus. Se a tale oggetto è stata associata un subroutine per la sua gestione, essa viene eseguita.
Più precisamente, la subroutine viene posta in esecuzione prima che l'oggetto prenda il controllo: se, ad esempio, l'oggetto è una TextBox, allora verrà prima eseguita la subroutine associata all'evento GotFocus e poi l'utente potrà inserire i dati:
CODICE VISUAL BASIC 6 / VB6 :
'Seleziona tutto il testo presente all'interno di Text1
'Immediatamente prima che il componente Text1 prenda il Focus
Private Sub Text1_GetFocus()
Text1.SelStart = 0 'Seleziona la prima posizione
Text1.SelLength = Len(Text1) 'Evidenzia tutto il testo fino alla fine per tutta la sua lunghezza Len(Text1)
End Sub