Impedir que un control coja el foco

[SbsXrX]

Existe alguna propiedad para evitar que un control tipo Textbox no pueda ser focuseado? (Sin utilizar la propiedad Enable = false o mover el foco a otro control cuando este lo recive.)

Encontre la propiedad CanFocus, pero es de solo lectura.

[emma93]

Mirá, si tenes muchos controles en el formulario hacé esto:

En el evento GOTFOCUS de Textbox poné el siguiente código:

Sendkeys.Send("{TAB}") ' Envias la tecla tab para pasar al siguiente control y evitar Focus

Así de facil, un saludo.

[SbsXrX]

pero eso haria que el control anterior perdiera el foco y se lo traspasase al siguiente en el listado de controles ej-

textbox1
textbox2
textbox3

boton1 boton2

Inicialmente el foco esta en boton1, si no quiero que lo reciva el textbox1 con tu metodo pasaria al siguiente control que podria ser textbox2 o textbox3 o boton2 dependiendo del tabindex, pero yo no quiero que el boton1 pierda el foco si el control tiene la opcion de no recivir el foco. Imaginate que estoy en textbox3 y hago clink en textbox1 y el foco aparece en el textbox2, no tiene sentido.

Muchas gracias igual.

[chcma]

Pues si lo que quieres es que el Boton1 siempre tenga el foco, ponlo en el evento LostFocus que se le vuelva a poner y listo tio....

[emma93]

Entonces hacé como dicen arriba:

En el evento LostFocus del Button1 (o como se llame), ponés el siguiente codigo:

Button1.Focus()

Y listo, el Button1 nunca perderá el foco

Un saludo.-

[SbsXrX]

A ver puse un ejemplo, no dije que queria que el boton1 no perdiese el foco. la pregunta es: ¿existe una propiedad de textbox que impida que el control reciva el foco?

Gracias gente. pense que era algo mas simple.

[Avellaneda]

Iniciado por SbsXrX

A ver puse un ejemplo, no dije que queria que el boton1 no perdiese el foco. la pregunta es: ¿existe una propiedad de textbox que impida que el control reciva el foco?

Gracias gente. pense que era algo mas simple.

Bueno, este código no es muy ortodoxo pero sí efectivo.

Se trata de guardar en una variable el nombre del último control que tenía el foco y al tomar el foco el control que no queremos que lo reciba (en el ejemplo es TextBox1) se lo devuelve al control anterior.

Código PHP:

  Public Class Form1 
    Private UltimoControl As Control 
 
    Private Sub Button1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.GotFocus 
        UltimoControl = Button1 
    End Sub 
 
    Private Sub Button2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.GotFocus 
        UltimoControl = Button2 
    End Sub 
    Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus 
        Dim ElControl As New Control 
        ElControl = UltimoControl 
        ElControl.Focus() 
    End Sub 
 
    Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus 
        UltimoControl = TextBox2 
    End Sub 
 
    Private Sub TextBox3_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus 
        UltimoControl = TextBox3 
    End Sub 
 
End Class  
   

El inconveniente es que tienes que repetir el mismo código en todos los controles del formulario (quizá haya alguna forma mas sencilla de hacerlo, pero ahora no se me ocurre ninguna).

[chcma]

Pues ponerlo a Disabled tio....

[SbsXrX]

Iniciado por chcma

Pues ponerlo a Disabled tio....

No quiero que tenga el efecto que tiene los controles cuando no estan habilitados y por eso justamente dije en el primer post: sin tener que poner la propiedad enable=true. Muchas gracias igualmente compi.

[SbsXrX]

Iniciado por Avellaneda

Bueno, este código no es muy ortodoxo pero sí efectivo.

Se trata de guardar en una variable el nombre del último control que tenía el foco y al tomar el foco el control que no queremos que lo reciba (en el ejemplo es TextBox1) se lo devuelve al control anterior.

Código PHP:

  Public Class Form1 
    Private UltimoControl As Control 
 
    Private Sub Button1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.GotFocus 
        UltimoControl = Button1 
    End Sub 
 
    Private Sub Button2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.GotFocus 
        UltimoControl = Button2 
    End Sub 
    Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus 
        Dim ElControl As New Control 
        ElControl = UltimoControl 
        ElControl.Focus() 
    End Sub 
 
    Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus 
        UltimoControl = TextBox2 
    End Sub 
 
    Private Sub TextBox3_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus 
        UltimoControl = TextBox3 
    End Sub 
 
End Class  
   

El inconveniente es que tienes que repetir el mismo código en todos los controles del formulario (quizá haya alguna forma mas sencilla de hacerlo, pero ahora no se me ocurre ninguna).

Es lo que tengo echo, pero como tu dices, no es muy ortodoxo jejeje
Tiene que haber alguna propiedad o algo sencillo y elegante.

Un saludo y muchas gracias por el aporte.