Resaltar texto en un textBox
Como están, tengo una incógnita que suena fácil pero me esta trayendo muchos dolores de cabeza, tengo 2 textbox en un form, el 2do textbox tiene un texto por defecto, quisiera que al pasar del primer al 2do textbox el texto por defecto aparezca totalmente seleccionado o resaltado.
1 Respuesta
Respuesta de kilvan
1
Primero tienes que sacar el len del text1 luegos los unes y después pones el rango desde donde acaba el text1 hasta el final
Dim lt1 As Integer
lt1 = Len(Text1.Text)
Text2 = Text1 + Text2
Text2.SelStart = lt1
Text2.SelLength = Len(Text2.Text)
Text2.SetFocus
ya que si es alrevez intenta:
Dim lt2 As Integer
lt2 = Len(Text2.Text)
Text2 = Text2 + Text1
Text2.SelStart = 0
Text2.SelLength = lt2
Text2. SetFocus
Dim lt1 As Integer
lt1 = Len(Text1.Text)
Text2 = Text1 + Text2
Text2.SelStart = lt1
Text2.SelLength = Len(Text2.Text)
Text2.SetFocus
ya que si es alrevez intenta:
Dim lt2 As Integer
lt2 = Len(Text2.Text)
Text2 = Text2 + Text1
Text2.SelStart = 0
Text2.SelLength = lt2
Text2. SetFocus
