Enlaces patrocinados:

Trucos de Visual Basic 6.0 Seleccionar texto en textbox

Con esta función seleccionaremos todo el texto de un textbox.


Public Sub TextSelected()
Dim i As Integer
Dim oMyTextBox As Object


Set oMyTextBox = Screen.ActiveControl
If TypeName(oMyTextBox) = "TextBox" Then
i = Len(oMyTextBox.Text)
oMyTextBox.SelStart = 0
oMyTextBox.SelLength = i
End If
End Sub


Simplemente añade la función a tu proyecto y llámala desde el evento GotFocus del TextBox.

Private Sub Text1_GotFocus()
TextSelected
End Sub

NUEVO: Si tienes dudas de informática pregunta en nuestros foros

Comentarios sobre Seleccionar texto en textbox

Angel Cordoba dice:

estan muy buenos los trucos y nos salvan la vida para algunas rutinas de diseño y programación.
Comentario publicado 11/12/2010 8:00:00
santiago dice:

es un super codigo el que compartes, hice dos text en el uno escribo y en el otro lo muestro, la cosa es que al pegar texto en el primer text todo funciona bien, pero al escribir no ya que borra cada letra que ecribo, como puedo solucionarlo
Comentario publicado 13/01/2011 16:10:00
ABDENAGO dice:

NO ME GUSTA ESTA MIERDA
Comentario publicado 08/04/2011 20:43:00
Felipe dice:

Tambié se puede de estar forma chavos Text1.SetFocus SendKeys "{Home}+{End}"
Comentario publicado 09/08/2011 22:43:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario:

Código de seguridad

Captcha

Inserta el código de seguridad