[VB] Problema pressione e rilascio tasto

giovedì 17 marzo 2011 - 11.22

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

giofrida Profilo | Newbie

1 messaggi | Data Invio: gio 17 mar 2011 - 11:22

Vorrei creare un nuovo programma che mi permetta di "intercettare" la pressione e il rilascio del tasto destro del mouse in un' applicazione a schermo intero.
Non riesco a sviluppare questo codice.
In pratica, se io premo il tasto destro del mouse il programma me lo intercetta e la sensibilità del mouse si riduce, mentre quando lo rilascio la sensibilità aumenta e ritorna normale.
Grazie.

Scrigno Profilo | Newbie

8 messaggi | Data Invio: ven 29 apr 2011 - 17:28

Public Class Form1
    'Ti serve una form con una label
    Declare Auto Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Int16
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Dim cliccato As Boolean = True
        Select Case cliccato
            Case Is = GetAsyncKeyState(Keys.LButton)
                Label1.Text = "Hai premuto il tasto Sinistro"
            Case Is = GetAsyncKeyState(Keys.RButton)
                Label1.Text = "Hai premuto il tasto destro"
            Case Is = GetAsyncKeyState(Keys.MButton)
                Label1.Text = "Hai premuto il tasto Centrale"
        End Select
    End Sub
End Class

Immagino si possa fare anche di meglio ma per quello che hai chiesto pare che così possa andare :-)
Spero, dal basso della mia schiappitudine, di esserti stato utile

Fumziona anche questo:

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !