none
Tecla 1 clik en boton RRS feed

  • Pregunta

  • Como el titulo lo dice como hacer que al presionar la tecla # 1 me de alguna ejecución, o click en un botón, tengo este ejemplo, saludos

        Private Sub OnKeyDownHandler(ByVal sender As Object, ByVal e As KeyEventArgs)
            If (e.Key = Keys.1) Then
                ejecucion()
            End If
        End Sub

     
    miércoles, 27 de abril de 2016 19:22

Todas las respuestas

  • Parece ser Windows Forms.  No programo en VB.net, pero ¿no hace falta algo en ese código?  Normalmente diría, según mi poca experiencia, Private Sub OnKeyDownHandler(ByVal sender As Object, ByVal e As KeyEventArgs) Handles XXX.

    En fin.  El Sub ese debe manejar el KeyDown del formulario, y la propiedad del formulario llamada KeyPreview debe ser true.


    Jose R. MCP
    Code Samples

    miércoles, 27 de abril de 2016 19:41
  • Hola,

    Aquí hay un hilo similar, la diferencia es que en vez de usar Keys.Enter usarías el Keys.D1, y mandas a llamar al método o usas PerformClick, para hacer la simulación de que presionó algún botón.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    miércoles, 27 de abril de 2016 21:02
  • Este es mi proyecto, el cual me falta saber cual es el código para el click en un botón 

    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'aqui me gustaria inciar iniciar click en el boton 3
        End Sub
        Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
    
            Select Case e.KeyCode
                Case Keys.S
                    Label1.Text = "Tecla S  (KeyDown)"
                    'aqui me gustaria presionar el Boton 1
                Case Keys.W
                    Label1.Text = "Tecla W (KeyDown)"
    
            End Select
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Label1.Text = "1 boton"
    
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Label1.Text = "2 boton"
        End Sub
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Label1.Text = "Inicio automatico en Boton, al iniciar"
        End Sub
    End Class



    • Editado Cael1020 jueves, 28 de abril de 2016 2:52
    jueves, 28 de abril de 2016 2:51
  • Cael1020 dijo:

    Este es mi proyecto, el cual me falta saber cual es el código para el click en un botón 

    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'aqui me gustaria inciar iniciar click en el boton 3
        End Sub
        Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
    
            Select Case e.KeyCode
                Case Keys.S
                    Label1.Text = "Tecla S  (KeyDown)"
                    'aqui me gustaria presionar el Boton 1
                Case Keys.W
                    Label1.Text = "Tecla W (KeyDown)"
    
            End Select
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Label1.Text = "1 boton"
    
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Label1.Text = "2 boton"
        End Sub
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Label1.Text = "Inicio automatico en Boton, al iniciar"
        End Sub
    End Class

    Lo que deseas hacer es que se genere el evento Button1.Click, si es así, solo debes ingresar:

    Button1.PerformClick()

    O si quieres darle el lugar al usuario, puedes mover el cursor al botón con:

    Button1.Select()

    Como también darle el foco al botón con:

    Button1.Focus()

    Espero haya sido de ayuda.


    Saludos. Atentamente Pablo Fac. [VB.Net - Visual Studio 2015]

    jueves, 28 de abril de 2016 3:17