Visual Basic - Selección de texto

Life is soft - evento anual de software empresarial
 
Vista:

Selección de texto

Publicado por MAR (11 intervenciones) el 22/08/2002 01:26:37
Gracias por tomarte el tiempo de leer esta pregunta... ¿cómo le puedo hacer para que al momento de posicionarme en un textbox, el texto se sombree de color azul y así no tenga que borrar antes todo su contenido con la tecla "deleted" para llevar a cabo alguna modificación?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Selección de texto

Publicado por Rocio M. (18 intervenciones) el 22/08/2002 02:16:13
Mira podrias utilizar la siguiente rutina en un modulo y asi mandarla llamar desde cualquier txt cuando este tenga y pierda el foco de la siguiente manera:
got focus
selecciona txtNombre.txt
lost focus
selecciona txtnombre.text,,true
Public Sub Selecciona(ByRef curControl As Control, _
Optional ByVal nNewColor As Long = nBackcolor, _
Optional ByVal bApaga As Boolean = False)
Static nColor As Long
On Error Resume Next
If TypeOf curControl Is TextBox Then
curControl.SelStart = 0
curControl.SelLength = Len(curControl.Text)
End If
If Not bApaga Then
nColor = curControl.BackColor
End If
If Not TypeOf curControl Is ComboBox Then
curControl.BackColor = nNewColor '&H00FEAF2C&
End If
If bApaga Then
curControl.BackColor = nColor
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Selección de texto

Publicado por Rodolfo del Peru (454 intervenciones) el 22/08/2002 15:12:17
Amiga Rocio, disculpa que opine diferente en relacion a tu rutina, pero creo que la solucion es mucho mas sencilla, prueba este codigo

Sub txtNombre_GotFocus_Click()
txtIdNombre.SelStart = 0
txtIdNombre.SelLength = Len(txtIdNombre)
End Sub

Saludos desde Lima
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar