Foro de elhacker.net

Alguien me puede ayudar a meter controles de tecla en este proyecto y responda con teclas ordenes



Deseo meter esta orden cuando este la pantalla completa obedezca la presion de la tecla A
 

  If e.KeyCode = Keys.A Then ''GENERO
            ButtonNORMAL_Click(sender, e)
        Else
        End If

Public Class Form1
    Dim POSICION As Point
    Dim ANTERIOR As Point
    Dim BANDERA As Boolean
    Dim ALTURA As Integer
 
    Private Sub AxWindowsMediaPlayer1_MouseMoveEvent(sender As Object, e As AxWMPLib._WMPOCXEvents_MouseMoveEvent) Handles AxWindowsMediaPlayer1.MouseMoveEvent
        POSICION = Windows.Forms.Cursor.Position
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AxWindowsMediaPlayer1.uiMode = "NONE"
        AxWindowsMediaPlayer1.Location = New Point(0, 0)
        AxWindowsMediaPlayer1.Width = Me.Width
        ALTURA = AxWindowsMediaPlayer1.Height
        PanelCONTROLES.Location = New Point(0, PanelCONTROLES.Location.Y)
        PanelCONTROLES.Width = Me.Width
        ButtonNORMAL.Visible = False
        ButtonNORMAL.Anchor = AnchorStyles.Right
        ButtonCOMPLETA.Location = New Point(Me.Width - ButtonCOMPLETA.Width - 30, ButtonCOMPLETA.Location.Y)
    End Sub
 
    Private Sub ButtonINICIAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonINICIAR.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            AxWindowsMediaPlayer1.stretchToFit = True
        End If
    End Sub
 
    Private Sub ButtonCOMPLETA_Click(sender As System.Object, e As System.EventArgs) Handles ButtonCOMPLETA.Click
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.WindowState = FormWindowState.Maximized
        AxWindowsMediaPlayer1.Dock = DockStyle.Fill
        PanelCONTROLES.Location = New Point(0, Me.Height - PanelCONTROLES.Height)
        PanelCONTROLES.Width = Me.Width
        ButtonNORMAL.Visible = True
        ButtonCOMPLETA.Visible = False
        BANDERA = True
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If BANDERA = True Then
            If ANTERIOR <> POSICION Then
                If PanelCONTROLES.Visible = False Then
                    PanelCONTROLES.Visible = True
                ElseIf PanelCONTROLES.Visible = True Then
                    PanelCONTROLES.Visible = False
                End If
                ANTERIOR = POSICION
            End If
        End If
    End Sub
 
    Private Sub ButtonNORMAL_Click(sender As System.Object, e As System.EventArgs) Handles ButtonNORMAL.Click
        Timer1.Stop()
        BANDERA = False
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        Me.WindowState = FormWindowState.Normal
        AxWindowsMediaPlayer1.Dock = DockStyle.None
        AxWindowsMediaPlayer1.Height = ALTURA
        PanelCONTROLES.Location = New Point(0, Me.Height - PanelCONTROLES.Height - 45)
        PanelCONTROLES.Width = Me.Width
        ButtonNORMAL.Visible = False
        ButtonCOMPLETA.Visible = True
    End Sub
End Class