Tutoriel : Événements Souris

page 13 : Bon! Mais, nous la voulons noire, l'étiquette!

Vous allez ajouter dans la procédure lblBonjour_MouseUp, juste entre les lignes lblBonjour.BorderStyle et Select Case, le code suivant (caractères gras) :

        lblBonjour.BorderStyle = 0
        lblBonjour.ForeColor = vbBlack
        Select Case Shift

Vous pensez fort et je vous entends! ;-)
« Oui. Mais si la boîte de message apparaissait juste au dessus de l'application et qu'après avoir cliqué sur OK, le pointeur se trouve juste au dessus de l'étiquette Bonjour. De quelle couleur sera-t-elle, l'étiquette? »

Bonne question! Essayons ça!

1. Enfoncez la touche CTRL (pas trop fort, quand même) et cliquez sur l'étiquette Bonjour. Puis cliquez sur OK pour fermer la boîte de message. Normalement l'étiquette devrait être noire.
2. Recommençons. Enfoncez la touche CTRL et cliquez sur Bonjour.

 

 
3. Déplacez, à l'aide de la souris, la boîte de message pour que le bouton OK arrive à peu près au dessus du mot Bonjour (le plus possible, en fait) et cliquez sur OK. L'étiquette est-elle noire?

Hé! Non! Le processeur a tout calculé ça tellement vite que vous n'avez même pas eu le temps de voir si l'étiquette était ou non devenue noire. Sauf, bien sur, si votre processeur se meut à la vitesse escargot. Et si c'était le cas, vous ne seriez pas en train de programmer en VB6. ;-)

Blague à part, au moment où la boîte de message disparaît, c'est l'endroit où se est détecté la souris qui détermine si il y ou non action à prendre. Et si par hasard elle se trouve sur le mot Bonjour, ce dernier s'affichera en rouge ou en vert selon que le pointeur est sur la moitié gauche ou droite de l'étiquette. Tel que vous l'avez programmé dans la procédure lblBonjour_MouseMove.

Page précédente - Page suivante