Når det gjelder museklikk hendelser i Visual Basic , mye av arbeidet med håndtering av dem er allerede gjort for deg . De fleste kontrollene i Visual Basic har "Click ", " mousedown " og " mouseup " hendelser som du kan bruke til å kontrollere programmet når brukeren klikker på musen. Du kan også bruke " MouseEventArgs " klasseegenskaper å gi ytterligere data for disse hendelsene , for eksempel hvilke museknapp brukeren presset eller koordinatene til musen på skjemaet . Når du har opprettet et nytt Visual Basic-prosjekt , kan du gjøre museklikk hendelser på flere måter. Instruksjoner
Klikk begivenhet
en

Dobbeltklikk på " Button" kontroll i verktøykassen for å legge til " Button1 " til skjemaet .
2

Dobbeltklikk på " Button1 "for å åpne" button1_click " . kodevinduet
3

Skriv inn følgende : en

MsgBox ( " Du har klikket på knappen " , MsgBoxStyle.Information , " knappen Click " )

Når brukeren klikker Button1 , en informativ boks med meldingen vises. Erstatte dette med mer praktisk kode, for eksempel ringe til en annen funksjon, endre verdier i etiketter eller tekstbokser , eller spørre brukeren for mer informasjon.
Mus ned og opp
4

Dobbeltklikk på "Label " kontroll i verktøykassen for å legge til " Label1 " til skjemaet . Endre teksten eiendommen til " Du har ikke klikket på etiketten . " Åpne koden vinduet
5

Åpne " Label1_MouseDown "-funksjonen og skriv inn følgende : .

Label1.Text = " . You are currently klikke på etiketten "
< p> etiketten viser denne meldingen når brukeren klikker på etiketten
6

åpne " Label1_MouseUp "-funksjonen og skriv inn følgende : .

Label1.Text = " Du har stoppet . klikke på etiketten "

etiketten viser denne meldingen når brukeren slipper museknappen
7

Åpne . " Label1_MouseLeave "-funksjonen og skriv inn følgende :
< p> Hvis Label1.Text = " Du har sluttet å klikke på etiketten . " Deretter

Label1.Text = " Du har klikket på etiketten . "

End If

Etiketten viser denne meldingen hvis brukeren allerede har klikket på etiketten og deretter sluppet museknappen , deretter flytter musepekeren utenfor selve etiketten .
MouseEventArgs Class
8

Dobbeltklikk på "Label " kontroll i verktøykassen seks ganger for å legge seks etiketter til skjemaet , kalt " Label1 " til " Label6 . "
9

Ordne etikettene loddrett i skjemaet slik at Label1 er på toppen og Label6 er på bunnen .

10

Åpne " Form1_MouseClick "-funksjonen og skriv inn følgende : en

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

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

Label3.Text = " X posisjon : "& eX

Label4.Text =" Y-posisjon : "& Ey

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

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

Når brukeren klikker på skjemaet , er hver MouseEventArgs eiendom vises i et av de seks etiketter. Dette viser hvilken knapp brukeren klikket , hvor mange ganger han klikket det , x- koordinat , x- koordinat , xy- koordinater sammen og deltaet verdi , som teller hvor mange ganger musen hjulet roterer . Konvertering knappen og plassering egenskapene til strenger lar brukeren tydelig se verdiene .