TextBox

[larrea]

Hola a todos
El problema que tengo es el siguiente:
tengo un formulario con varios TexBox y necesitaria saber en que TextBox se ha seleccionado el texto.
He probado con este código pero no termina de funcionar

if Text1.SelText ="" then
msgbox "no seleccionada"
else
msgbox "si seleccionada"
end if

if Text2.SelText ="" then
msgbox "no seleccionada"
else
msgbox "si seleccionada"
end if
gracias por vuestra ayuda

[lpz]

Lo que podrias hacer es en el evento change de cada textbox dejar un flag, por ejemplo setear una variable a un numero, cada cual representara cada textbox. Entonces sabiendo esto, haces un select case y en funcion del numero que este en la variable podes saber que textbox se selecciono..

Salu2!

[jc_moty]

¿Queres saber si se esta seleccionando todo el texto?; porque si es asi te estas equivocando de propiedad; para hacer esto tendrias que utilizar la propiedad SelLength; algo asi:

Código:

    If Text1.SelLength = Len(Text1.Text) Then
        MsgBox "SI Seleccionada"
    Else
        MsgBox "NO Seleccionada"
    End If

[EDITADO]
Aunque tambien lo podes hacer asi:

Código:

    If Text1.SelText = Text1.Text Then
        MsgBox "SI Seleccionada"
    Else
        MsgBox "NO Seleccionada"
    End If

Espero te sirva
Saludos

[larrea]

Hola

Ya he probado las soluciones que me habéis enviado pero sigo teniendo el problema cuando existe más de un TextBox.
Cuando seleccionamos el texto del Text1 efectivamente funciona, pero si a continuación queremos seleccionar el texto de Text2 ya no funciona
Parece que aunque el texto ya no salga seleccionado en el Text1 cuando seleccionamos el texto de Text2 el Text1 sigue manteniendo el foco y la función me dice que tengo las dos cajas con el texto seleccionado.

Gracias por vuestra paciencia.

[Eärandir]

Cada text deberá tener un número de identificación en su propiedad Tag...

espero y esto te de una idea de como lo podrías hacer.

Código:

Private Sub verificar(Control As TextBox)
 If Control.SelLength <> 0 Then
  Label1.Caption = "selecciónando '" & Control.SelText & "' en: Text" & Control.Tag
 End If
End Sub


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
 If (KeyCode = 37 Or KeyCode = 38 Or KeyCode = 39 Or KeyCode = 40) And Shift = 1 Then
  verificar Text1
 End If
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Button = 1 Then
  verificar Text1
 End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
 If (KeyCode = 37 Or KeyCode = 38 Or KeyCode = 39 Or KeyCode = 40) And Shift = 1 Then
  verificar Text2
 End If
End Sub

Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Button = 1 Then
  verificar Text2
 End If
End Sub

[larrea]

he probado el código y funciona tal y como lo necesito
muchisimas gracias

[Eärandir]

Ayer mientras estaba...mmm... digamos que tenía tiempo para pensar.... se me ocurrió que tal vez sería mejor utilizar una matriz de controles textbox y en lugar de asignar un valor a Tag, podrías usar el índice de la matriz, así no tendrías que poner el evento KeyPress o MoveMouse para cada uno; solo sería necesario hacerlo una vez para toda la matriz... la función verificar podría quedar igual, solo que en lugar de tag, sería index.

en fin, ya decidirás tu cuál utilizar