Come fare un evento clic del mouse utilizzando Visual Basic

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

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

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

Digitare quanto segue :

MsgBox ( " Tu hai cliccato su " , MsgBoxStyle.Information " Fare clic sul pulsante " ) per

Quando l'utente fa clic Button1 un box informativo con i display dei messaggi. Sostituire questo con il codice più pratico , come ad esempio una chiamata a un'altra funzione , modificando i valori in etichette o caselle di testo , oppure richiedere all'utente ulteriori informazioni .
Mouse e Up
4

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

Aprire la funzione " Label1_MouseDown " e digitare quanto segue : .

Label1.Text = " . Stai clicca sulla label "

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 = " hai smesso . cliccando sull'etichetta "

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

Aprire il . " funzione Label1_MouseLeave "e digitare il seguente :

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

Label1.Text = "Hai fatto clic 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 , si sposta il puntatore del mouse fuori l'etichetta stessa.
MouseEventArgs Classe
8

Fare doppio clic sul controllo " Label " nel quadro sei volte per aggiungere sei etichette per il modulo, denominato " Label1 " a " Label6 . "
9

Disporre le etichette verticalmente sul modulo in modo che Label1 è al top e Label6 è in basso .

10

Aprire la funzione " Form1_MouseClick " e digitare il seguente :

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

Label2.Text = " Clic : "& 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 sulla forma , ogni proprietà MouseEventArgs vengono visualizzati in una delle le sei etichette . Questo mostra quale pulsante l' utente ha fatto clic , quante volte ha cliccato su, coordinata x , la coordinata x l' , xy coordina insieme e il valore delta , che conta quante volte la rotellina del mouse ruota . Conversione delle proprietà del pulsante e la posizione di stringhe permette all'utente di vedere con chiarezza i valori .

• Come aggiungere due valori in Visual Basic 
• Come stampare una matrice di uscita in ordine inverso in Visual Basic 6.0