När det gäller musklickningshändelser i Visual Basic , mycket av arbetet för att hantera dem är redan gjort för dig . De flesta kontroller i Visual Basic har " Klick ", " mouseDown " och " mouseUp " händelser som du kan använda för att styra programmet när användaren klickar med musen . Du kan också använda " MouseEventArgs " klass egenskaper för att ge ytterligare uppgifter om dessa händelser , t.ex. vilka musknapp användaren tryckt på eller koordinaterna för musen på blanketten . När du skapar ett nytt Visual Basic-projekt , kan du göra musklickningshändelser på flera sätt . Instruktioner Klick Händelse
1
Dubbelklicka på " Button " kontroll i verktygslådan för att lägga till " Button1 " till formuläret .
2
Dubbelklicka på " Button1 " för att öppna " Button1_Click " . kodfönster
3
Skriv följande :
MsgBox ( " Du har klickat på knappen " , MsgBoxStyle.Information , " Button Click " ) katalog
När användaren klickar Button1 , ett informativt visas med meddelandet visas. Ersätt detta med mer praktiska kod , till exempel ett samtal till en annan funktion , ändra värden i etiketter och textrutor , eller uppmanar användaren för mer information .
Mouse Down och Up
4
Dubbelklicka på " Label " kontrollen i verktygslådan för att lägga till " Label1 " till formuläret . Ändra dess text-egenskap till " Du har inte klickat på etiketten . " Öppna koden fönstret
5
Öppna " Label1_MouseDown " funktionen och skriver följande : .
Label1.Text = " . Just nu klickar på etiketten "
etiketten här meddelandet visas när användaren klickar på etiketten
6
Öppna " Label1_MouseUp " funktionen och skriver följande : .
Label1.Text = " Du har slutat . klicka på etiketten "
etiketten här meddelandet visas när användaren släpper musknappen
7
Öppna . " Label1_MouseLeave " funktionen och skriver följande :
Om Label1.Text = " Du har slutat att klicka på etiketten . " Sedan
Label1.Text = " Du har klickat på etiketten . "
End If
Etiketten visar detta meddelande om användaren redan har klickat på etiketten och sedan släppte musknappen och flyttar muspekaren utanför själva etiketten . Addera MouseEventArgs klass
8
Dubbelklicka på " Label " kontrollen i verktygslådan sex gånger till lägga sex etiketter till formen , som heter " Label1 " till " Label6 . "
9
Ordna etiketterna vertikalt på formen så att Label1 är upptill och Label6 är längst ned .
10
Öppna " Form1_MouseClick " funktionen och skriver följande :
Label1.Text = " Button : " & e.Button.ToString
Label2.Text = " Klick : " & e.Clicks
Label3.Text = " X-position : " & eX
Label4.Text = " Y-position : " & Ey
Label5.Text = " Plats : " & e.Location.ToString
Label6.Text = " Delta : " & e.Delta
När användaren klickar på formen , är varje MouseEventArgs fastigheten visas i ett av de sex etiketter. Detta visar vilken knapp användaren klickade , hur många gånger han klickade på den , den x - koordinat , x- koordinat , xy - koordinaterna tillsammans och deltavärdet , som räknar hur många gånger mushjulet roterar . Konvertera knappen och plats egenskaper strängar låter användaren tydligt se värdena .
