SELECAO TXT

USUARIO.EXCLUIDOS 29/03/2004 08:37:56
#17383
Ola,
Como eu faço para selecionar o txt (ficar todo selecionado, "letras em azul") eu tenho um codigo mas ele seleciona só quando eu volto o campo dando shif tab, não quando eu entro no campo dando tab ou enter.
Aí vai o codigo
Sub selecionatudo()
On Error GoTo fim
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelStart = 0
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
End If
fim:
End Sub

atenciosamente,
Vargax
LIZANDRO 29/03/2004 08:58:08
#17386
Pode usar estas dusa funções.



Public Sub SelecionaTexto(vgCt As Control)
    vgCt.SelStart = 0                           'posição do inicio da seleção
    vgCt.SelLength = Len(vgCt.Text)             'qde de caracteres a selecionar
End Sub

Public Sub SelecionaTextoMask(vgCt As MaskEdBox)
    vgCt.SelStart = 0                           'posição do inicio da seleção
    vgCt.SelLength = Len(vgCt.FormattedText)              'qde de caracteres a selecionar
End Sub
LIZANDRO 29/03/2004 07:11:08
#17397 Resposta escolhida
Só para completar, vc tem que colocar a chamada da função no evento GotFocus
Tópico encerrado , respostas não são mais permitidas
Voltar