Jump to content
Sign in to follow this  
axer

Desactivar teclas

Recommended Posts

axer

Boas,

Eu estou aqui com uns problemas, o que eu pretendo é:

- Criar um EXE em ms-dos

- Desactivar --> ESC

- Desactivar --> 4 (Teclado numérico)

- Desactivar --> DEL. (Teclado numérico)

- Desactivar --> P ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direccional

- Desactivar --> R ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direcional

- Desactivar --> 4 ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direccional

E tenho o seguinte código que encontrei depois de procurar informação na net (Nota: Ainda estou a aprender vb, e não sou muito entendido do assunto):

 
    Private bKillKey As Boolean
    Private Sub Form_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)

        bKillKey = False

        On Error Resume Next
        Select Case KeyCode
            Case ConsoleKey.Escape, ConsoleKey.NumPad4, ConsoleKey.Delete, ConsoleKey.P, ConsoleKey.R, ConsoleKey.D4
               
                bKillKey = True

               Case Else
                bKillKey = False
                'do something else
        End Select

    End Sub

    Private Sub Form_KeyPress(ByVal KeyAscii As Integer)

        If bKillKey = True Then KeyAscii = 0
        'always set the killkey to false here just to ensure
        'it doesnt get "stuck on"
        bKillKey = False
        End
    End Sub

Isto foi que encontrei na net e tentei fazer alguma coisa, ainda não está tudo.

Estou a fazer muita coisa mal?

Podem me dar uma mãozinha?

Cumprimentos,

António Pinheiro

Share this post


Link to post
Share on other sites
a3deluxe

boas,

também não tenho muitos conhecimentos de vb.

tentei fazer foi em Assembler, mas sem sucesso.

acho que que o seu código estará bem é  uma questão de o acabar criando o código para a paralela bi-direccional e compilar. e depois criar um executável em ms-dos para eu testar no programa, a ver se funciona.

cumprimentos

Share this post


Link to post
Share on other sites
axer

Talvez, mas mesmo assim acho que me está a faltar qualquer coisa, e precisava também de uma ajudinha no código para as portas.

Será que alguém me podia dar uma mãozinha?

Share this post


Link to post
Share on other sites
programadorvb6

Tenta isto :

Public Class Form1
  
    Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim bHandled As Boolean = False

        Select Case e.KeyCode

            Case Keys.Escape
                MsgBox("ESC")
                e.Handled = True
            Case Keys.NumPad4
                MsgBox("4 (Teclado numérico)")
                e.Handled = True
            Case Keys.Delete
                MsgBox("DEL. (Teclado numérico)")
                e.Handled = True
            Case Keys.P
                MsgBox("Desactivar --> P ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direccional")
                e.Handled = True
            Case Keys.R
                MsgBox("Desactivar --> R ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direcional")
                e.Handled = True
            Case Keys.D4
                MsgBox("Desactivar --> 4 ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direccional")
                e.Handled = True
        End Select
    End Sub
    
End Class


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Share this post


Link to post
Share on other sites
axer

Preciso é em consoleApplication porque é para correr em ms-dos! :S

Se conseguires me dar uma ajudinha à mesma.

Mas obrigado,

Cumprimentos,

António Pinheiro

Share this post


Link to post
Share on other sites
cmd

Tenta isto :

Public Class Form1
  
    Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim bHandled As Boolean = False

        Select Case e.KeyCode

            Case Keys.Escape
                MsgBox("ESC")
                e.Handled = True
            Case Keys.NumPad4
                MsgBox("4 (Teclado numérico)")
                e.Handled = True
            Case Keys.Delete
                MsgBox("DEL. (Teclado numérico)")
                e.Handled = True
            Case Keys.P
                MsgBox("Desactivar --> P ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direccional")
                e.Handled = True
            Case Keys.R
                MsgBox("Desactivar --> R ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direcional")
                e.Handled = True
            Case Keys.D4
                MsgBox("Desactivar --> 4 ---> e envio-lo para um PIN (um qualquer) da Porta-Paralela BI-Direccional")
                e.Handled = True
        End Select
    End Sub
    
End Class

Adapta o código que o programadorvb6 te deu à console application ;)


Cumps.cmd

Share this post


Link to post
Share on other sites
bioshock
    Sub Main()
        Select Case Console.ReadKey.Key
            Case ConsoleKey.Escape
                MsgBox("Oh maluco, wrong tecla!")
                Exit Select
        End Select
    End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.