none
Tecla q ao pressionar no form abre outro (KeyDown) RRS feed

  • Pergunta

  • Quando eu apertar a tecla F1 abrirá um novo form, uso o seguinte código mais não está funcionando direto no form

        Private Sub f_menu_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
            If e.KeyValue = Keys.F1 Then
                f_login.Show()
                Me.Close()
            End If
    
        End Sub

    Alguem sabe um código que aplicado no form e pressionar F1, abra outro form?

    quinta-feira, 3 de janeiro de 2013 16:42

Respostas

  • segue um exemplo que ira resolver seu problema :D

    >> Adicione um timer em sua aplicação 

    >> ponha o interval = 1

    >> e deixe enabled = true 

    Public Class Form1

    Private Declare Function GetAsyncKeyState Lib "User32" (Byval vKey As Integer) As Integer

    Private Timer1_Tick (Byval sender As Object, Byval e As EventArgs) Handles Timer1.Tick

    Dim f1 As Boolean = GetAsyncKeyState(Keys.F1)

    If f1 = true then 

    form2.show()

    end if

    End Sub

    End Class

    espero q ajude ;)

    lembrando que existem inumeros methodos de fazer isto , este é apenas um ^^


    AleSaggiorato

    • Marcado como Resposta Zorzi00 sexta-feira, 4 de janeiro de 2013 15:06
    sexta-feira, 4 de janeiro de 2013 01:06

Todas as Respostas

  • segue um exemplo que ira resolver seu problema :D

    >> Adicione um timer em sua aplicação 

    >> ponha o interval = 1

    >> e deixe enabled = true 

    Public Class Form1

    Private Declare Function GetAsyncKeyState Lib "User32" (Byval vKey As Integer) As Integer

    Private Timer1_Tick (Byval sender As Object, Byval e As EventArgs) Handles Timer1.Tick

    Dim f1 As Boolean = GetAsyncKeyState(Keys.F1)

    If f1 = true then 

    form2.show()

    end if

    End Sub

    End Class

    espero q ajude ;)

    lembrando que existem inumeros methodos de fazer isto , este é apenas um ^^


    AleSaggiorato

    • Marcado como Resposta Zorzi00 sexta-feira, 4 de janeiro de 2013 15:06
    sexta-feira, 4 de janeiro de 2013 01:06
  • Zorzi00, faça o seguinte, ative KeyPress, 

    depois no evento Key_Down faça:

    If e.KeyCode = Keys.F1 Then
    
    Dim frmMeuFormulario as New 
    frmMeuFormulario()
    frmMeuFormulario .ShowDialog()
    End If
    abraços



    sexta-feira, 4 de janeiro de 2013 12:29