SELECIONAR TODO O TEXTO DE UM TEXTBOX COM UM CLICK

RICKSOUSA 16/02/2010 10:46:00
#334479
como eu faço para selecionar todo o texto de um textbox quanco eu der um click nele???
ALEXLUGON 16/02/2010 10:49:07
#334480
você pode usar de duas forma:

Public Sub FocaTexto(ByRef pObj As Object) [ô]Marca o texto para edição
With pObj
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

e chame ela assim

Private Sub Text1_GotFocus()
Call FocaTexto(Text1)
End Sub



OU ASSIM;


SendKeys [Ô]{home}+{end}[Ô]


No mesmo evento
MARCELO.TREZE 16/02/2010 10:53:52
#334482 Resposta escolhida
uma maneira super simples é essa, no gotfocus do textbox coloque:

Private Sub Text1_GotFocus()
SendKeys [Ô]{HOME}+{END}[Ô]
End Sub
DANIKULL 16/02/2010 11:00:00
#334484
Rick, bom dia.

No evento MouseDown do textbox coloque o seguinte código:

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    
End Sub


Ok.

Dúvida poste novamente.
RICKSOUSA 16/02/2010 11:40:42
#334492
valeu pela ajuda galera, eu achei a resposta do marcelo treze mais simples e bem funcional....

mais agradeço a todos!!!
Tópico encerrado , respostas não são mais permitidas
Voltar