Modifiez la procédure lblBonjour_MouseUp en y ajoutant les lignes en caractères gras.
Private Sub lblBonjour_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'bouton gauche
lblBonjour.BorderStyle = 0
Select Case Shift
Case 1
MsgBox "Vous avez appuyé sur la touche MAJ."
Case 2
MsgBox "Vous avez appuyé sur la touche CTRL."
Case 4
MsgBox "Vous avez appuyé sur la touche ALT."
Case 3
MsgBox "Vous avez appuyé sur les touches MAJ + CTRL."
Case 5
MsgBox "Vous avez appuyé sur les touches MAJ + ALT."
Case 6
MsgBox "Vous avez appuyé sur les touches CTRL + ALT."
Case 7
MsgBox "Vous avez appuyé sur les touches MAJ + CTRL + ALT."
End Select
End If
End Sub
Enregistrez le projet et démarrez l'application. Qu'observez-vous?
 |
Avez-vous vu comme c'est curieux? Bon! Évidemment, si nous avions demandé à VB de toujours afficher notre application en plein centre de l'écran (propriété StartUpPosition, valeur 2 - CenterScreen), l'anomalie (si on peut dire) serait peut-être passée tout à fait inaperçu. Quand vous appuyez sur une des touches et cliquez sur l'étiquette, la boîte de message apparaît, elle, au centre de l'écran. Vous devez donc déplacer la souris pour cliquer sur le bouton OK. Et l'étiquette reste bleue! |