SELECIONADO TODO TEXTO AO ENTRAR NA CAIXA DE TEXTO
Ai galera, estou precisando do seguinte, ao entrar na caixa de texto, ela tendo algum texto, precisaria do texto viesse todo selecionado
O que devo usar no evento GETFOCUS da caixa de texto pra que ele venha todo selecionado?
Valeu
O que devo usar no evento GETFOCUS da caixa de texto pra que ele venha todo selecionado?
Valeu
use esta função
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
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
use:
SendKeys [Ô]{home}+{end}[Ô]
SendKeys [Ô]{home}+{end}[Ô]
Valeu Galera pelas dicas! 
Tópico encerrado , respostas não são mais permitidas