Come fare un clic evento del mouse utilizzando Visual Basic

April 22

Quando si tratta di clic del mouse gli eventi in Visual Basic, gran parte del lavoro di loro movimentazione è già fatto per voi. La maggior parte dei controlli in Visual Basic hanno i "clic" MouseDown "e" eventi "MouseUp" che è possibile utilizzare per controllare il programma quando l'utente fa clic con il mouse. Inoltre, è possibile utilizzare le proprietà di classe "MouseEventArgs" per fornire dati aggiuntivi per questi eventi, come ad esempio quali pulsante del mouse l'utente ha premuto o le coordinate del mouse sul modulo. Dopo aver creato un nuovo progetto di Visual Basic, è possibile effettuare eventi click del mouse in diversi modi.

istruzione

Clicca Event

1 Fare doppio clic sul controllo "Button" nella casella degli strumenti per aggiungere "Button1" per la forma.

2 Fare doppio clic su "Button1" per aprire la finestra di codice "Button1_Click".

3 Digitare quanto segue:

MsgBox ( "Hai cliccato il tasto!", MsgBoxStyle.Information, "Fare clic su")

Quando l'utente fa clic su Button1, un dialogo informativa con viene visualizzato il messaggio. Sostituire questo con il codice più pratico, come ad esempio una chiamata a un'altra funzione, modificando i valori nelle etichette o caselle di testo, o richiedere all'utente per ulteriori informazioni.

Mouse Down e Up

4 Fare doppio clic sul controllo "Label" nella casella degli strumenti per aggiungere "Label1" per la forma. Modificare la proprietà Text a "Non hai cliccato in etichetta." Aprire la finestra del codice.

5 Aprire la funzione "label1_MouseDown" e digitare quanto segue:

Label1.Text = "State attualmente cliccando sul etichetta".

L'etichetta visualizza questo messaggio quando l'utente fa clic sull'etichetta.

6 Aprire la funzione "label1_MouseUp" e digitare quanto segue:

Label1.Text = "Hai smesso cliccando sull'etichetta".

L'etichetta visualizza questo messaggio quando l'utente rilascia il pulsante del mouse.

7 Aprire la funzione "Label1_MouseLeave" e digitare quanto segue:

Se Label1.Text = "Hai smesso cliccando sull'etichetta". Poi

Label1.Text = "Hai fatto clic sull'etichetta."

Finisci se

I display etichetta questo messaggio se l'utente ha già fatto clic sull'etichetta e poi rilasciato il pulsante del mouse, quindi sposta il puntatore del mouse l'etichetta stessa.

MouseEventArgs Class

8 Fare doppio clic sul controllo "Label" nella casella degli strumenti per sei volte per aggiungere sei etichette al modulo, denominato "Label1" a "Label6."

9 Disporre le etichette verticalmente sul modulo cosicché Label1 è in alto e Label6 è in basso.

10 Aprire la funzione "Form1_MouseClick" e digitare quanto segue:

Label1.Text = "Button:" & e.Button.ToString

Label2.Text = "Lettori:" & e.Clicks

Label3.Text = "posizione X:" & eX

Label4.Text = "posizione Y:" & EY

Label5.Text = "Location:" & e.Location.ToString

Label6.Text = "Delta:" & e.Delta

Quando l'utente fa clic sul form, ogni proprietà MouseEventArgs viene visualizzato in uno dei sei etichette. Questo mostra quale pulsante l'utente ha cliccato, quante volte ha cliccato, la coordinata x, la coordinata x, xy coordina insieme e il valore delta, che conta quante volte la ruota gira mouse. La conversione delle proprietà del pulsante e la posizione in stringhe consente all'utente di vedere chiaramente i valori.


Articoli Correlati