Quand il s'agit de clic de souris événements dans Visual Basic , une grande partie du travail de leur manipulation est déjà fait pour vous . La plupart des contrôles dans Visual Basic ont le "Click ", " MouseDown " et " événements MouseUp " que vous pouvez utiliser pour contrôler le programme lorsque l'utilisateur clique sur la souris. En outre, vous pouvez utiliser les " MouseEventArgs " propriétés de la classe de fournir des données supplémentaires pour ces événements , comme celle qui touche l'utilisateur a appuyé la souris ou les coordonnées de la souris sur la forme . Une fois que vous créez un nouveau projet Visual Basic, vous pouvez faire des événements de clic de souris à plusieurs égards. Instructions
événement Click
1

Double- cliquez sur le contrôle "Button" dans la boîte à outils pour ajouter " Button1" pour la forme .
2

Double -cliquez sur " Button1 "pour ouvrir le " Button1_Click " . fenêtre de code
3 type de

ce qui suit:

MsgBox ( " Vous avez cliqué sur le bouton ", MsgBoxStyle.Information " Cliquez sur le bouton " )

Lorsque l'utilisateur clique sur Button1 , une boîte d'information avec l'affichage du message . Remplacez ceci avec un code plus pratique, comme un appel à une autre fonction , l'évolution des valeurs des étiquettes ou des zones de texte , ou demander à l'utilisateur pour plus d'informations .
Souris Down et Up
4

Double- cliquez sur le contrôle "Label" dans la boîte à outils pour ajouter " Label1 " pour la forme . Changer sa propriété text " Vous n'avez pas cliqué sur l'étiquette. " Ouvrez la fenêtre de code
5

Ouvrez la fonction " Label1_MouseDown " et tapez la commande suivante : .

Label1.Text = " . Vous êtes actuellement cliquant sur l'étiquette "
< p> l'étiquette affiche ce message lorsque l'utilisateur clique sur l'étiquette
6

Ouvrir la fonction " Label1_MouseUp " et tapez la commande suivante : .

Label1.Text = "Vous avez arrêté . cliquant sur ​​l'étiquette "

l'étiquette affiche ce message lorsque l'utilisateur relâche le bouton de la souris
7

Ouvrez le fichier. " fonction Label1_MouseLeave " et tapez la commande suivante :
< p> Si Label1.Text = "Vous avez arrêté cliquant sur ​​l'étiquette. " Puis

Label1.Text = "Vous avez cliqué sur l'étiquette. "

End If

L'étiquette affiche ce message si l'utilisateur a déjà cliqué sur l'étiquette, puis a relâché le bouton de la souris , puis déplace le pointeur de la souris de l'étiquette elle-même .
MouseEventArgs Classe
8

Double- cliquez sur le contrôle "Label" dans la boîte à six reprises pour ajouter six étiquettes à la forme, nommée " Label1 " à " Label6 . "
9

Disposez les étiquettes verticalement sur ​​le formulaire afin que Label1 est au sommet et Label6 est au fond .

10

ouvrir la fonction " Form1_MouseClick " et tapez la commande suivante :
Label1.Text

= " Button: " & e.Button.ToString

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

Label3.Text =" Position X : "& eX

Label4.Text =" Position Y : "& eY

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

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

Lorsque l'utilisateur clique sur la forme, chaque propriété MouseEventArgs est affiché dans l'une des les six étiquettes . Cela montre quel bouton l'utilisateur a cliqué , combien de fois il a cliqué elle , la coordonnée x , la coordonnée x , les coordonnées xy ensemble et la valeur delta, qui compte combien de fois la molette de la souris tourne. Convertir les propriétés du bouton et l'emplacement de chaînes permet à l' utilisateur de voir clairement les valeurs.