Selecionar texto todo quando muda de campo

[Flecha]

Ola,

Gostaria de saber porque a Sub abaixo funciona em um projeto e no outro que estou fazendo do Zero (para aprender) não funciona dá erro de

sub ou função não definida nessa linha

SelectTextboxText TxtRg

A sub é essa:

Private Sub TxtRg_GotFocus()
SelectTextboxText TxtRg
End Sub

Para funcionar eu tive que arrumar outra sub para o GotFocus() abaixo que funcionou no lugar da outra.

Private Sub TxtRg_GotFocus()

' selecionar o texto ao receber o foco
    With TxtRg
        .SelStart = 0
        .SelLength = Len(.text)
    End With

End Sub

Será que tem que carregar alguma referência ?

Flecha

[kuroi]

nunca vi essa funcao SelectTextboxText(). provavelmente, nesse otro projeto ela deve estar definida em alguma lugar (você foi la e escreveu Private/Public Sub SelectTextboxText() e escreveu o codigo la dentro) e provavelmente ela deve fazer a mesma coisa q esse outro codiog q você postou.

[Flecha]

Kuroi,

realmente, já havia tentado localizar dentro do projeto mas coloquei palavras a mais.

refinando a consulta eu achei, existe uma sub num módulo e ele a chama pela

SelectTextboxText

ai dentro dela tem a que eu tive que usar

With TxtRg

.SelStart = 0

.SelLength = Len(.text)

End With

reumiria em uma linha para cada textbox só colocando a chamada para o modulo.

Resolvido

Obrigado

[Rodrigo Medeiros]

use SendKeys "{HOME}+{END}"

[kuroi]

use SendKeys "{HOME}+{END}"

por motivos q já especifiquei nesse post: http://scriptbrasil.com.br/forum/index.php...st&p=434044, dê preferencia ao codigo do flecha em vez de esse do SendKeys().