Visual Basic: Eventi relativi a mouse e tastiera

Eventi del Mouse e della tastiera

All’utilizzo del mouse e della tastiera da parte dell’utente sono correlati numerosi eventi; ciascun evento è associato a un gestore eventi per il quale è possibile creare un codice all’interno delle applicazioni Windows.

Eventi della tastiera

Windows Form include eventi di tastiera standard che consentono di rispondere alla pressione di determinati tasti e fornisce metodi per intercettare, modificare e utilizzare tali pressioni a livello di applicazione, form e controllo.

KeyPress
Si verifica quando si preme un tasto mentre il controllo è attivo.
KeyDown
Si verifica quando si preme un tasto mentre il controllo è attivo.
KeyUp
Si verifica quando viene rilasciato un tasto mentre il controllo è attivo.

Ecco alcuni esempi:

[code language=”vb” gutter=”true” collapse=”false”]
Private Sub txt_Carattere_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_Carattere.KeyDown
MsgBox("Hai premuto il tasto " & e.KeyCode.ToString)
End Sub

Private Sub txt_Carattere_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt_Carattere.KeyPress
MsgBox("Hai premuto il tasto " & e.KeyChar)
End Sub
[/code]

Eventi del mouse

La ricezione e la gestione dell’input del mouse costituiscono un elemento importante di ogni applicazione Windows. E’ possibile gestire eventi del mouse per eseguire un’azione nell’applicazione oppure utilizzare le informazioni sullo stato corrente del mouse, come la posizione del puntatore, i pulsanti del mouse premuti e se la rotellina del mouse è stata fatta scorrere.

MouseClick
Si verifica quando si fa clic con il mouse sul controllo.
MouseDoubleClick
Si verifica quando si fa doppio clic con il mouse sul controllo.
MouseDown
Si verifica quando il puntatore del mouse si trova sopra il controllo e viene premuto un pulsante del mouse.
MouseUp
Si verifica quando il puntatore del mouse si trova sul controllo e un pulsante del mouse viene rilasciato.
MouseMove
Si verifica quando il puntatore del mouse viene spostato sul controllo.
MouseEnter
Si verifica quando il puntatore del mouse entra il controllo.
MouseLeave
Si verifica quando il puntatore del mouse lascia il controllo.
MouseHover
Si verifica quando il puntatore del mouse si sofferma sul controllo.
MouseWheel
Si verifica quando si sposta la rotellina del mouse mentre il controllo ha lo stato attivo.

Ecco alcuni esempi:

[code language=”vb” gutter=”true” collapse=”false”]
Private Sub txt_Carattere_MouseDown(sender As Object, e As MouseEventArgs) Handles txt_Carattere.MouseDown
Select Case e.Button
Case MouseButtons.Left
lbl_Carattere.Text = "Pulsante Sinistro"
Case MouseButtons.Right
lbl_Carattere.Text = "Pulsante Destro"
Case MouseButtons.Middle
lbl_Carattere.Text = "Pulsante Centrale"
Case MouseButtons.XButton1
lbl_Carattere.Text = "Pulsante Extra 1"
Case MouseButtons.XButton2
lbl_Carattere.Text = "Pulsante Extra 2"
Case MouseButtons.None
lbl_Carattere.Text = Nothing
End Select
End Sub

Private Sub txt_Carattere_MouseHover(sender As Object, e As EventArgs) Handles txt_Carattere.MouseHover
lbl_Carattere.Text = "Esempio di utilizzo del MouseHover"
End Sub
[/code]

Visite: 229