Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim tecla As Short = e.KeyCode
Dim enter As Short = e.KeyCode
If tecla = System.Windows.Forms.Keys.Escape Then
If MsgBox("Deseja realmente sair?", MsgBoxStyle.OkCancel) = vbOK Then
Me.Close()
End If
End If
If enter = System.Windows.Forms.Keys.Enter Then
Form3.Show()
End If
End Sub
Mas quando teclo ENTER, ele deveria abrir o Form3, mas simplesmente fecha o form, se pressiono ESC o procedimento ocorre de forma correta,ou seja, abre um msgbox perguntando se desejo fechar o form.
Pergunta
rodrigotnoma
Boa noite
Tentei debugar esse código:
Mas quando teclo ENTER, ele deveria abrir o Form3, mas simplesmente fecha o form, se pressiono ESC o procedimento ocorre de forma correta,ou seja, abre um msgbox perguntando se desejo fechar o form.
Vlw pela ajuda.
Rodrigo
Editado por quintelabAdicionado BBCode Code
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.