Código de Visual Basic - Marcar un texto al seleccionar un textbox

Imágen de perfil

Marcar un texto al seleccionar un textboxgráfica de visualizaciones


Visual Basic

Publicado el 5 de Marzo del 2002 por Administrador (686 códigos)
31.829 visualizaciones desde el 5 de Marzo del 2002
Simple código que selecciona el contenido de un textbox al coger el foco

Versión 1
estrellaestrellaestrellaestrellaestrella(11)

Publicado el 5 de Marzo del 2002gráfica de visualizaciones de la versión: Versión 1
31.830 visualizaciones desde el 5 de Marzo del 2002
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
'-- http://www.lawebdelprogramador.com --'
Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub



Comentarios sobre la versión: Versión 1 (11)

Deyninzon
7 de Noviembre del 2002
estrellaestrellaestrellaestrellaestrella
Este codigo me parece muy eficiente y practico para que algunas veces no se caigan nuestras aplicasiones
Responder
Humberto Benavides
5 de Diciembre del 2002
estrellaestrellaestrellaestrellaestrella
Muy buena opcion, facil, rapida y con poco codigo !
Responder
Willy
21 de Diciembre del 2002
estrellaestrellaestrellaestrellaestrella

Hey amigos !!
Otra manera agregar simplemente

por ej:

Text1.setfocus
SendKeys "{HOME}+{END}"

de esa manera se selecciona todo el texto del "Text1"
Responder
Lucas
26 de Marzo del 2003
estrellaestrellaestrellaestrellaestrella
Si sirve y es simple
Responder
Piri
24 de Abril del 2003
estrellaestrellaestrellaestrellaestrella
Me parecio interesante y muy sencillo.
Responder
Federico
29 de Abril del 2005
estrellaestrellaestrellaestrellaestrella
Acabo de descubrir lo siguiente solo para ahorrar algunas lineas de codigo:

Private Sub PintaText()
Dim Texto as TextBox
Set Texto = Me.ActiveControl
Texto.SelStart = 0
Texto.SelLength = Len(Texto.Text)
End Sub

De esta manera lo escribis solo una vez y en el Got Focus de cada Text le pones solo PintaTexto.
Responder
mastergnomo
10 de Mayo del 2016
estrellaestrellaestrellaestrellaestrella
¡Bien hecho! para que sea un poco mas completo se podría agregar una sentencia de control para saber si el control activo es un textbox...... por ejemplo:

Private Sub PintaText()
If TypeOf Me.ActiveControl Is Not TextBox Then Exit Sub 'si no es un textbox entonces sale de la sub-rutina

Dim Texto as TextBox
Set Texto = Me.ActiveControl
Texto.SelStart = 0
Texto.SelLength = Len(Texto.Text)
End Sub
Responder
mastergnomo
10 de Mayo del 2016
estrellaestrellaestrellaestrellaestrella
corrección:

If Not (TypeOf Me.ActiveControl Is TextBox) Then Exit Sub 'si no es un textbox entonces sale de la sub-rutina
Responder
VirgoMan
9 de Marzo del 2006
estrellaestrellaestrellaestrellaestrella
Muy buen codigo gracias
Responder
Ricardo Torres
24 de Octubre del 2016
estrellaestrellaestrellaestrellaestrella
Muchas Gracias por su Ayuda estoy empesando a programar en VBasic y me ayudaron muchisimo
que tengas un Hermoso Dia.
Responder
jorge mejia
15 de Junio del 2020
estrellaestrellaestrellaestrellaestrella
Private Sub PintaText()
Try
If Not (TypeOf Me.ActiveControl Is TextBox) Then Exit Sub 'si no es un textbox entonces sale de la sub-rutina
Dim Texto As TextBox
Texto = Me.ActiveControl
Texto.SelectionStart = 0
Texto.SelectionLength = Len(Texto.Text)
Catch ex As Exception
oSql.Mensaje(ex)
End Try
End Sub
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s140