SelectText (2)
Private Sub Text1_GotFocus() SendKeys "{home}+{end}" End Sub 'oppure Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub
Private Sub Text1_GotFocus()
SendKeys "{home}+{end}"
End Sub
'oppure
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
( selecttext2.html )- by Paolo Puglisi
- Modifica del 17/12/2023