DÉVELOPPEMENT RAPIDE D'APPLICATIONS




Notes de cours 4

Le langage VB ... suite




Références: Program Structure.

Quelques fonctions VB utiles

MsgBox()
La fonction permet d'afficher une fenêtre de message à l'écran et de saisir la réponse de l'utilisateur.

Le format général est :
strReponse = MsgBox(prompt[, buttons] [, title] [, helpfile, context])

Le seul paramètre obligatoire est prompt

Les constantes qui sont utilisées pour buttons:
vbOkOnly
vbOkCancel
vbAbortRetryIgnore
vbYesNoCancel
vbYesNo
vbRetryCancel

et les valeurs retournées dans strReponse:

1 vbOk Ok
2 vbCancel Cancel
3 vbAbort Abort
4 vbRetry Retry
5 vbIgnore Ignore
6 vbYes Yes
7 vbNo No


Pour plus d'information au sujet de la fonction et de la valeur des constantes, voyez: MsgBox function dans le Help.


Par exemple, pour afficher:

     
                

on écrit:

DIM strReponse As String
strReponse = MsgBox("Erreur dans le système!")




InputBox()
La fonction permet d'entrer et de stocker une valeur dans une variable.

Le format général est :
strReponse = InputBox(prompt [, title] [, default] [, xPos] [, yPos])

Le seul paramètre obligatoire est prompt
La valeur entrée par l'utilisateur sera stockée dans strReponse.
Par exemple, pour saisir le nom et la note:

DIM strNom As String
DIM intNote As Integer
strNom = InputBox("Entrez le nom de l'étudiant")
intNote = InputBox("Entrez la note")









Les fonctions Is ...

Les fonctions IsNumeric, IsDate retourne True si un paramètre est de type voulu. Normalement utilisées dans une condition, comme:

' Si la valeur entrée est de type numérique, le code après le Then est exécuté.
If IsNumeric(ValeurEntree) Then
     MsgBox("All OK")
End If

' Si la valeur entrée n'est pas une date, un message est affiché et on sort du module.
If NOT IsDate(dateNaiss) Then
     MsgBox("La date n'est pas bonne!")
     Exit Sub
End If




Exemple d'un Project utilisant plusieurs Forms