auto selezione appena prende fuoco

[giko83]

non è un campanello di allarme anti incendio...
Vorrei sapere come si può fare si che all'evento got focus di una text per esempio tutto il testo venga selezionato....

Grazie tante ciao....

[paolomat]

Scusa ma in che linguaggio?
Ciao

[giko83]

a scusate dimenticavo in vb

[chipdb]

Semplice

Text1.SelStart = 1
Text1.SelLenght = Len(Text1)

Bye

[Janx]

Private Sub Text1_GotFocus()
    SendKeys "{home}+{end}"
End Sub

'oppure
Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub