Une application est constituée essentiellement de l'interface utilisateur, formée elle-même de plusieurs contrôles, et de procédures qui génère des actions.
A présent, analysons la structure d'une procédure.
La syntaxe d'écriture d'une procédure est la suivante :
[Public / Private] [Static] Sub Nom_proc (arguments)
[Déclarations]
[Instructions]
[exit Sub]
[Instructions]
End Sub
Le mot Sub peut ou non être précédé des options suivantes :
- Les mots Public ou private définissent les limites de la procédure.
- Avec Public, la procédure peut être appelée depuis n'importe quelle instruction de l'application.
- Avec private, la procédure ne peut être appelée qu'à l'intérieur de la même feuille ou du même module.
- Vous devez déclarer en début de procédures vos variables
et constantes si vous ne l'avez pas fait dans la
partie Général de la liste déroulante Objet qui se
trouve en haut, à gauche de l'éditeur de code. Remarquez que si vous
déclarez vos variables à l'intérieur de la procédure, sa portée sera
limitée qu'à cette procédure;
- Static signifie que toutes les variables locales déclarées dans la procédure doivent conserver leur valeur entre 2 appels.
- Exit Sub permet de quitter la procédure avant la fin normale de celle-ci;
- End Sub ferme la procédure.
Pour cela, prenons un simple exemple :
Private Sub Form_Load()
Dim DateNaissance
Dim Message, Titre As String
Message = "Date de naissance ?"
Titre = "Entrez votre date de naissance : "
DateNaissance = InputBox(Message, Titre)
If DateNaissance <> "" Then
DateNaissance = Format(DateNaissance, "Long Date")
MsgBox DateNaissance, vbOKOnly + vbInformation, "Vous êtes né(e) le"
End
Else
While DateNaissance = ""
MsgBox "Entrez une date", vbOKOnly + vbExclamation, "Attention!"
DateNaissance = InputBox(Message, Titre)
Wend
DateNaissance = Format(DateNaissance, "Long Date")
MsgBox DateNaissance, vbOKOnly + vbInformation, "Vous êtes né(e) le"
End
End If
End Sub
Le but de ce programme est certes inutile, vous direz-vous, puisqu'il consiste
juste à demander la date de naissance à quelqu'un et de l'afficher par la suite. Mais
les instructions de cette procédures renferment une partie des bases de la programmation en VB6.
Ce n'est pas important si vous n'avez pas compris toutes les instructions de cette procédure.
Contentez-vous pour l'instant de lire cette procédure et observez simplement de quoi peut être composée une
procédure.
A présent, passons à une analyse simplifiée de cette procédure :
- La 1ère ligne contient des infos sur le nom de la feuille principale (Form1) du projet,
du type d'événement qui permet de lancer cette procédure. Ici L'événement en question est Load, ce qui veut
dire que cette procédure sera sera exécutée au chargement de la feuille "Form1".
- dans les 2èmes et 3èmes lignes, sont définis des variables limitées à cette procédure uniquement.
- Les lignes suivantes sont formées d'instructions servant à définir le comportement de la feuille dès son chargement. (Nous verrons de plus près ces instructions dans les cours suivants.)
- La dernière ligne End Sub clôt la procédure.