Als het gaat om muisklik gebeurtenissen in Visual Basic , veel van het werk van de behandeling van hen is al voor u gedaan . De meeste besturingselementen in Visual Basic hebben de "Klik ", " MouseDown " en " MouseUp " gebeurtenissen die u kunt gebruiken om het programma te controleren wanneer de gebruiker met de muis klikt. Ook kunt u de " MouseEventArgs " klasse-eigenschappen gebruiken om aanvullende gegevens voor deze gebeurtenissen , zoals welke muisknop de gebruiker ingedrukt of de coördinaten van de muis op het formulier . Bieden Nadat u een nieuwe Visual Basic project te maken , kunt u muisklikgebeurtenissen maken op verschillende manieren . Instructies
Klik Event
1 Dubbelklik op de " knop " controle in de toolbox op " Button1 " toe te voegen aan het formulier . Kopen van 2 Dubbelklik op " Button1 Button1_Click "om het te openen " " . venster code
Type 3 het volgende : MsgBox
( " U hebt op de knop geklikt " , MsgBoxStyle.Information , " knop Klik op " ) op Twitter Wanneer de gebruiker klikt Button1 , een informatieve doos met het bericht wordt weergegeven . Vervangen deze met meer praktische code , zoals een gesprek naar een andere functie , veranderende waarden in labels of tekstvakken , of dat de gebruiker voor meer informatie .
Muis omlaag en omhoog
4 Dubbelklik op het "Label" controle in de toolbox op " Label1 " om het formulier toe te voegen . Verander de eigenschap text naar " Je hebt niet geklikt op het etiket . " Open het venster code
5 Open de functie " Label1_MouseDown " en typ het volgende : .
Label1.Text = " . Je bent momenteel op het label "
het label geeft dit bericht weer wanneer de gebruiker klikt op het etiket
6 Open de functie " Label1_MouseUp " en typ het volgende : .
Label1.Text = " Je hebt gestopt . klikken op het etiket "
het label geeft dit bericht weer wanneer de gebruiker de muisknop loslaat
7 Open het . " functie Label1_MouseLeave " en typ het volgende :
Als Label1.Text = " Je hebt gestopt op het label . " Dan
Label1.Text = " Je hebt geklikt op het etiket . " End
Als
Het label geeft deze boodschap als de gebruiker al heeft geklikt op het etiket en vervolgens uitgebracht op de muisknop , dan beweegt de muisaanwijzer buiten het label zelf .
MouseEventArgs Class
8 Dubbelklik op het "Label" controle in de toolbox zes keer te add zes labels aan de vorm , genaamd " Label1 " naar " Label6 . "
9 Schik de etiketten verticaal op het formulier zodat Label1 is aan de bovenkant en Label6 is aan de onderkant .
10 Open de functie " Form1_MouseClick " en typ het volgende : Label1.Text =
" Button : " & e.Button.ToString Label2.Text = " klikken
: " & e.Clicks Label3.Text
= " X-positie : " & eX Label4.Text =
" Y-positie : " & eY Label5.Text
= " Locatie : " & e.Location.ToString Label6.Text = " Delta : "
& e.Delta
Wanneer de gebruiker klikt op het formulier , wordt iedere MouseEventArgs woning weergegeven in een van de zes labels . Dit toont aan welke knop de gebruiker heeft geklikt , hoe vaak hij klikte het, de x - coördinaat , de x - coördinaat , de xy - coördinaten bij elkaar en de delta waarde, die telt hoeveel keer het muiswiel draait . Het omzetten van de knop en de locatie eigenschappen om strings kan de gebruiker de waarden duidelijk te zien .
|
