LANGAGE VISUEL BASIC (4)

LES BOUCLES :

Permet de répéter une séquence un nombre de
fois déterminé.
    Déclaration:
          For compteur = Debut To Fin [Step Pas]
           [instructions]
Next compteur
          Par défaut le Pas = 1
EXEMPLE :
Dim i As Integer
For i = 8 To 125
        'Exécute la boucle pour i variant de 8 à 125
Next i
Dim i As Integer
For i = 1 To 18 Step 2
      MsgBox(i.ToString)
Next i
BOUCLE : DO ->WHILE ; 


Il ya deux façons différentes pour la
déclaration la boucle Do While:
Do While Condition
[Instructions]
Loop
La condition est testée au début
Do
[Instructions]
Loop While Condition
La condition est testée à la fin de la boucle
EXEMPLE : 


Dim i As Integer=8
Do While i < 18
MsgBox(i.ToString)
Loop

Dim i As Integer
i=1
Do
MsgBox(i.ToString)
Loop While i<18

BOUCLE : DO UNITILE :
Il ya deux façons différentes pour la
déclaration la boucle Do until:
Do until Condition
Instructions
Loop
La condition est testée au début
Do
Instructions
Loop until Condition
La condition est testée à la fin de la boucle
LES TABLEAUX :
Déclaration d’un tableau/matrice
     Dim NomTab(borneInf to BorneSup) As Type
     Dim NomMatrice(lignes, colonnes) As Type
   Exemple:
    Dim tableau(1 to 10) As String
    Dim matrice (1 , 5) As Integer

LES CÔNTROLES :
DriveListBox, DirListBox et FileListBox :
DriveListBox: permet de parcourir les lecteurs
valides de votre système. La propriété Drive
retourne le disque choisi. 
DirListBox: permet de naviguer parmi les
dossiers d' un lecteur particulier. La propriété
Path contient la liste des dossiers dans le disque
choisi.
FileListBox permet de sélectionner un fichier
spécifique dans un dossier. La propriété Path
contient la liste des fichiers, et FileName
contient le nom de fichier choisi.


EXEMPLE : AFFICHEUR D'IMAGE : 

MsgBox

Les MsgBox sont très utilisée dans Visual Basic,elles permettent
de poser une question à l' utilisateur au travers d' une boîte de
dialogue.


La syntaxe de l' instruction MsgBox est la suivante :
     Variable = MsgBox("Message", Type, "Titre de la fenêtre")
La fonction MsgBox comporte donc trois arguments essentiels,
qui sont respectivement :
    Variable : Variable de type Entier(Integer) recevant la valeur du
bouton.
     Message : Message dans la boîte de dialogue.
     Type : Le style des boutons et de l’icône éventuelle à faire figurer sur
le Message
     Titre : Le texte de la barre de titre.
Les constantes pour les boutons :

Les constantes pour les icônes :

Les constantes renvoyées par MsgBox :

EXEMPLE DE MSGBOX :

Dim Sup
Sup =
           MsgBox("Veuillez confirmer la suppression du fichier",
           vbCritical + vbYesNo + 256, "Attention")
If Sup = vbYes Then
Sup = MsgBox("Suppression confirmée", vbOKOnly,
                         "Suppression ...")
End If