SELECIONAR TUDO NO RICHTEXTBOX

USUARIO.EXCLUIDOS 25/05/2005 10:44:12
#85099
Olá,

Como faço para selecionar todo o conteudo de um richtextbox? Obrigado.

Luiz
TRUHILLO 25/05/2005 10:55:26
#85100 Resposta escolhida
Tente isso:

RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
USUARIO.EXCLUIDOS 25/05/2005 10:55:27
#85101
Coloque esse código num módulo:


Public Sub SelecionaTudo()
On Error GoTo Fim
    If TypeOf Screen.ActiveControl Is TextBox Or TypeOf Screen.ActiveControl Is RichTextBox Then
       Screen.ActiveControl.SelStart = 0
       Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
    End If
Fim:
End Sub


Coloque este código no evento gotfocus do RichTextBox:

SelecionaTudo


E vai funcionar....
USUARIO.EXCLUIDOS 25/05/2005 10:56:56
#85102
Tópico com 1 segundo de diferença!

Só no VBMania mesmo!!!
WEBMASTER 25/05/2005 11:11:42
#85106
Inacreditável,

1 Segundo de diferença
USUARIO.EXCLUIDOS 25/05/2005 11:23:03
#85110
Usei o codigo do TRUHILLO e funcionou. Grato a todos.

Luiz
Tópico encerrado , respostas não são mais permitidas
Voltar