Ce cours a été fait pour les personnes qui connaissent déjà l'interface graphique de VB (sinon, allez au cours Précédent).
Ajouter un bouton à votre programme.
Pour cela, procéder ainsi :
Cliquer sur  [dans 2] puis dessiner le bouton sur la fenêtre [dans 3] en faisant glisser la souris puis en relachant.
Vous devez obtenir ceci [dans 3] :
Double cliquer à présent sur le bouton que vous venez de créer [dans 3]
Vous voilà donc dans la partie code de vb !
Private Sub
Command1_Click()
End Sub
|
Tout ce que vous entrerez entre ces deux lignes sera executé lorsque l'utilisateur cliquera sur le bouton "Command1" !
C'est ce que signifie "Command1_Click()"
"Private Sub" indique que c'est le début de la procédure et "End Sub" indique que c'est la fin de la procédure !
Vous pouvez très bien changer le type de procédure de l'objet (ici le bouton) en choisissant autre chose dans ce menu déroulant.
Voici quelques types de procédures :
Click : La procédure se chargera après un click
GotFocus : La procédure se chargera après avoir optenu le Focus
KeyDown : La procédure se chargera lorsque l'objet aura le focus et qu'une touche sera enfoncé
KeyUp : La procédure se chargera lorsque qu'une touche précédement enfoncé sera relaché
LostFocus : La procédure se chargera après la perte du focus
MouseDown : La procédure se chargera lorsque le bouton de la souris sera enfoncé sur l'objet
MouseMove : La procédure se chargera lorsque le curseur de la souris passera au dessus de l'objet
MouseUp : La procédure se chargera lorsque le bouton de la souris précédement enfoncé sera relaché
On va choisir ici MouseMove
Une deuxième procédure apparait alors :
Private Sub Command1_Click()
End Sub
_____________________________________________________________________________
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
|
Ca signifie que maintenant, tout le code que vous allez entrer dans cette procédure sera executé lorsque l'utilisateur déplacera la souris sur le bouton "Command1"
Essayer d'entrer ceci :
Private Sub Command1_Click()
End Sub
_____________________________________________________________________________
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
msgbox "Bonjour !"
End Sub
|
Cliquer à présent sur  pour essayer votre programme.
Une fenêtre apparait, c'est le programme que vous venez de faire !
Lorsque vous déplacer la souris sur le bouton, le message apparait !
Cette action est le résultat du code "msgbox "Bonjour !" "
|
NewsLetter