|
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 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é .
|
