Quelques fonctions VB utiles

MsgBox()
Le format général est :

strReponse = MsgBox(prompt[, buttons] [, title] [, helpfile, context])

Le seul paramètre obligatoire est prompt
Par exemple, pour afficher:

     
                Fig. 3-3

on écrit:

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

InputBox()
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 comme type Variant dans strReponse.
Puisque la valeur retournée est de type Variant, on pourrait aussi saisir des valeurs numériques.

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:

If IsNumeric(ValeurEntree) Then ...

Si la valeur entrée est de type numérique, le code après le Then est exécuté.



Conversion de type

Pour convertir d'un type de donnée à un autre on utilise CInt, CLong, etc.:
Voir: functions --> Conversion functions dans le Help

Pour convertir un numérique à string:

Str(number)
Par exemple:

Dim UneChaine As String
UneChaine = Str(3456) ' retourne " 3456" (un espace au début pour le signe)
UneChaine = Str(-3456.123) ' retourne "-3456.123"

La structure de décision

La structure de décision est comme dans tous les autres langages:

If (condition est vraie) Then
     (commandes)
ElseIf (autre condition est vraie)
     (commandes)
Else
     (commandes)
End If

La structure de cas

Aussi comme dans les autres langages:

Select Case Pourcent
Case Is >= 90
    Lettre = "A"
Case 60 to 89
    Lettre = "B"
Case Else
    Lettre = "F"
End Select

Notez qu'il y a plusieurs façons d'exprimer la condition du Case:
          avec les signes < et > il faut utiliser le IS
          on peut spécifier un range: 60 TO 89
          on peut spécifier des valeurs: 44, 46, 55, 62

Le DO ... LOOP

Do While condition
     instructions
Loop

et aussi

Do Until condition
     instructions
Loop

Le FOR ... NEXT

For compteur = debut To fin
     instructions
Next

Les Tableaux - "Arrays"

En VB on déclare un tableau comme une variable ordinaire, avec DIM. par exemple:

Dim Mois(1 to 12) As String

déclare un tableau Mois qui contiendra 12 valeurs avec index de 1 à 12. Mois(1) = "Janvier", etc. Le tableau:

Dim Departement(6 ) As String

déclare un tableau de 6 éléments avec le premier index = 0. On peut aussi déclarer un tableau de grandeur indéterminée (unbound) en utilisant la fonction Array() dans le code:

Dim Semaine, Jour
Semaine = Array("lundi", "mardi", "mercredi")
Jour = Semaine(1)       'retourne mardi

Le Control Array

Un tableau de contrôles et non un tableau qui contrôle

Si j'ai un form qui doit contenir 10 TextBox, je crée le premier et je le copie et le colle 9 fois. Je spécifie "Yes" à la question de control array. J'obtiens ceci:



Maintenant, je peux utiliser un For ... Next pour faire des opérations sur les TextBox:

Utiliser plusieurs Forms dans un Projet

Un projet peut contenir plusieurs feuilles (Forms). Il s'agit d'abord de créer une nouvelle feuille en faisant Add form. Ensuite, pour l'ouvrir il y a deux façons:
1) on peut changer le Startup object dans les propriétés du Projet pour que notre nouvelle feuille s'ouvre en démarrant le Projet:


Fig. 3-1

2) on peut créer un nouveau bouton sur une feuille existante et utiliser ce bouton pour ouvrir une autre feuille:


Fig. 3-2


Fig. 3-3

---