Marcar un texto al seleccionar un textbox
Visual Basic
Publicado el 5 de Marzo del 2002 por Administrador (718 códigos)
42.936 visualizaciones desde el 5 de Marzo del 2002
Simple código que selecciona el contenido de un textbox al coger el foco
Iniciar sesiónCrear cuenta
Crear cuenta
Comentarios sobre la versión: Versión 1 (12)
Hey amigos !!
Otra manera agregar simplemente
por ej:
Text1.setfocus
SendKeys "{HOME}+{END}"
de esa manera se selecciona todo el texto del "Text1"
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.
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
If Not (TypeOf Me.ActiveControl Is TextBox) Then Exit Sub 'si no es un textbox entonces sale de la sub-rutina
que tengas un Hermoso Dia.
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