Détection quel bouton a été pressé sur une souris par l'utilisateur peut vous donner plus d'informations sur les mesures à prendre dans votre programme Visual Basic. En VB presque chaque contrôle est l'événement « MouseClick " qui s'exécute lorsque le contrôle est cliqué par la souris. Il est utile de connaître le bouton enfoncé pour afficher plus d'informations comme les menus ou les boîtes de message à l'utilisateur . Vous pouvez ajouter n'importe quel code VB vous voulez exécuter lorsque le bouton de la souris enfoncé sous l'événement " MouseClick " . Choses que vous devez
Microsoft Visual Basic Express
Voir Plus Instructions
1

Démarrez Microsoft Visual Basic Express, cliquez sur "Nouveau projet ... " Dans le volet gauche de votre écran , puis sélectionnez « Application Windows Forms . " Cliquez sur " OK " pour créer un projet Windows Forms .
2

Ajoutez un contrôle de zone de texte en double -cliquant sur " TextBox " dans le volet Boîte à outils.
3 < p > cliquez-droit sur le formulaire et cliquez sur «Propriétés». Cliquez sur l'icône "Evénements" qui ressemble à un coup de foudre . Faites défiler la liste et double-cliquez à côté de " MouseClick " pour créer un événement de clic de la souris pour le formulaire . Répétez l'étape précédente pour ajouter un événement d'action de cliquer pour le contrôle de zone de texte
4

Copiez et collez le code suivant dans la procédure " Form1_MouseClick ": .

Select e.Button de cas Photos

Case Is = MouseButtons.Left

MessageBox.Show (" bouton gauche de la souris pressée sur le formulaire . " )

Case Is = MouseButtons.Right

MessageBox.Show (" bouton droit de la souris sur le formulaire pressée . " )

Case Is = MouseButtons.Middle

MessageBox.Show (" bouton central de la souris sur le formulaire pressée . " )
< p> End Select
5

Copiez et collez le code suivant dans la procédure " TextBox1_MouseClick ":

Select Case e.Button

cas est = MouseButtons.Left Photos

MessageBox.Show (" bouton gauche de la souris pressée sur la boîte de texte. " )

case Is = MouseButtons.Right "bouton droit de la souris sur le texte pressée

MessageBox.Show ( boîte. " )

Coques Is = MouseButtons.Middle

MessageBox.Show (" bouton central de la souris sur la boîte de texte pressée . " )

End Select
< br > 6

Appuyez sur " F5 " pour exécuter votre programme et l'utiliser sur n'importe quel bouton de la souris tout en cliquant sur la forme ou la zone de texte . Un message sera généré indiquant le bouton de la souris enfoncé .