Quando si tratta di eventi in Visual Basic di clic del mouse, gran parte del lavoro di gestirli è già fatto per voi. Maggior parte dei controlli in Visual Basic hanno il "Click", "MouseDown" e "MouseUp" eventi che è possibile utilizzare per controllare il programma quando l'utente fa clic sul mouse. Inoltre, è possibile utilizzare le proprietà della classe "MouseEventArgs" per fornire ulteriori dati per questi eventi, come il pulsante del mouse che l'utente preme o le coordinate del mouse sul form. Dopo aver creato un nuovo progetto di Visual Basic, è possibile effettuare gli eventi di clic del mouse in diversi modi.

Istruzioni

Evento click

1

Fare doppio clic sul "Pulsante" nella casella degli strumenti per aggiungere "Button1" al form.

2

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

3

Digitare quanto segue:

MsgBox ("Aver cliccato il pulsante!", MsgBoxStyle. Information, "Pulsante")

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

Il mouse su e giù

4

Fare doppio clic sul controllo nella casella degli strumenti per aggiungere "Label1" a forma "Etichetta". Modificare la proprietà text per "Non avete cliccato sull'etichetta." Aprire la finestra di codice.

5

Aprire la funzione "Label1_MouseDown" e digitare quanto segue:

Label1. Text = "Si sta attualmente facendo clic sull'etichetta."

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

6

Aprire la funzione "Label1_MouseUp" e digitare quanto segue:

Label1. Text = "È stata interrotta cliccando sull'etichetta".

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

7

Aprire la funzione "Label1_MouseLeave" e digitare quanto segue:

Se Label1. Text = "È stata interrotta cliccando sull'etichetta". Quindi

Label1. Text = "Hai cliccato sull'etichetta".

End If

L'etichetta viene visualizzato questo messaggio se l'utente ha già fatto clic sull'etichetta e poi rilasciato il pulsante del mouse, quindi sposta il puntatore del mouse fuori il marchio stesso.

Classe MouseEventArgs

8

Doppio clic sul controllo di "Etichetta" nella casella degli strumenti sei volte per aggiungere sei etichette al form, denominato "Label1" per "Label6."

9

Disporre le etichette verticalmente il modulo in modo che Label1 è al top e Label6 è nella parte inferiore.

10

Aprire la funzione "Form1_MouseClick" e digitare quanto segue:

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

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

Label3. Text = "posizione X:" & e. x

Label4. Text = "posizione Y:" & e. y

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

Label6. Text = "Delta:" & e

Quando l'utente fa clic sul form, ogni proprietà di MouseEventArgs è visualizzata in uno dei sei etichette. Questo dimostra quale pulsante l'utente ha fatto clic, quante volte ha cliccato e la coordinata x, coordinata x, le coordinate xy insieme e il valore di delta, che conta quante volte la rotellina del mouse ruota. Convertire le proprietà pulsante e location in stringhe consente all'utente di vedere chiaramente i valori.