none
COMO PUEDO HACER QUE DETECTE UN BOTÓN "SHIF+5" EL CODIGO QUE TENGO ES EL SIGUIENTE ES UN EJEMPLO

Respuestas

  • Hola:
    En un Form con 1 Button, copia y pega el siguiente código

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.KeyPreview = True
        End Sub
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            PulsarBoton()
        End Sub
        Private Sub PulsarBoton()
            MessageBox.Show("Has hecho click en el boton")
        End Sub

        Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
            Select Case keyData
                Case CType(Keys.Shift + Keys.D5, Keys)
                    PulsarBoton()
            End Select
            Return MyBase.ProcessCmdKey(msg, keyData)
        End Function
    End Class

    Un saludo desde Bilbo
    Carlos
    viernes, 30 de diciembre de 2016 9:49

Todas las respuestas

  • Hola:
    En un Form con 1 Button, copia y pega el siguiente código

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.KeyPreview = True
        End Sub
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            PulsarBoton()
        End Sub
        Private Sub PulsarBoton()
            MessageBox.Show("Has hecho click en el boton")
        End Sub

        Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
            Select Case keyData
                Case CType(Keys.Shift + Keys.D5, Keys)
                    PulsarBoton()
            End Select
            Return MyBase.ProcessCmdKey(msg, keyData)
        End Function
    End Class

    Un saludo desde Bilbo
    Carlos
    viernes, 30 de diciembre de 2016 9:49
  • Gracias me funciono correctamente un saludo
    sábado, 31 de diciembre de 2016 21:41