Når det kommer til museklik begivenheder i Visual Basic , meget af arbejdet for at håndtere dem er allerede gjort for dig. De fleste kontroller i Visual Basic har "Klik ", " mouseDown " og " mouseUp " begivenheder , som du kan bruge til at styre programmet, når brugeren klikker på musen. Du kan også bruge " MouseEventArgs " klasseegenskaber at tilvejebringe yderligere data for disse begivenheder, såsom hvilken museknap brugeren presset eller koordinaterne for musen på formularen. Når du opretter et nyt Visual Basic-projekt , kan du gøre museklik begivenheder på flere måder. Instruktioner
Klik på Begivenhed
1

Dobbeltklik på " Button " kontrol i værktøjskassen for at tilføje " Button1 " til formularen.
2

Dobbeltklik på " Button1 "for at åbne" Button1_Click " . kodevinduet
3

Skriv følgende : Hej

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

Når brugeren klikker Button1 , en oplysende æske med meddelelsen vises. Stedfortræder dette med mere praktisk kode , såsom en opfordring til en anden funktion , skiftende værdier etiketter eller tekstbokse , eller spørge brugeren for mere information.
Mus ned og op
4

Dobbeltklik på "Label " kontrol i værktøjskassen for at tilføje " Label1 " til formularen. Ændre sin tekst ejendom til " Du har ikke klikket på etiketten. " Åbn kodevinduet
5

Åbn " Label1_MouseDown "-funktionen og skriv følgende : .

Label1.Text = " . Du er i øjeblikket at klikke på etiketten "
< p> etiketten viser denne meddelelse, når brugeren klikker på etiketten
6

Åbn " Label1_MouseUp "-funktionen og skriv følgende :.

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

etiketten viser denne meddelelse , når brugeren slipper museknappen
7

Åbn ". Label1_MouseLeave "-funktionen og skriv følgende : Hej < p> Hvis Label1.Text = "Du har stoppet klikke på etiketten. " Så

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

End If

Etiketten viser denne meddelelse , hvis brugeren allerede har klikket på etiketten og derefter udgivet museknappen, derefter flytter musemarkøren væk selve etiketten .
MouseEventArgs Class
8

Dobbeltklik på "Label " kontrol i værktøjskassen seks gange for at føje seks etiketter til formularen , hedder " Label1 " til " Label6 ".
9

Arranger etiketterne lodret på formularen, så Label1 er øverst og Label6 er i bunden .

10

Åbn " Form1_MouseClick "-funktionen og skriv følgende : Hej

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

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

Label3.Text =" X-position : "& eX

Label4.Text =" Y-position : "& eY

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

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

Når brugeren klikker på formularen, er hver MouseEventArgs ejendom vises i et af de seks etiketter. Dette viser , hvilken knap brugeren klikkede , hvor mange gange han klikkede det , x-koordinaten , x- koordinat , xy - koordinater sammen, og delta værdien , der tæller , hvor mange gange musehjulet roterer. Konvertering knappen og placering egenskaber strenge lader brugeren tydeligt se værdierne.