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

estrellaestrellaestrellaestrellaestrella(10)
Publicado el 05 de Marzo del 2002 por Administrador
19.346 visualizaciones desde el 05 de Marzo del 2002. Una media de 28 por semana
Simple código que selecciona el contenido de un textbox al coger el foco

Versión 1
estrellaestrellaestrellaestrellaestrella(10)

Publicado el 05 de Marzo del 2002gráfica de visualizaciones de la versión: Versión 1
19.347 visualizaciones desde el 05 de Marzo del 2002. Una media de 28 por semana
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 (10)

Deyninzon
07 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
05 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
09 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

Comentar la versión: Versión 1

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

http://lwp-l.com/s140