Tutoriel sur le développement d'applications avec Visual Basic

---

‘Une image vaut mille mots’ 
Bien débuter avec Visual Basic  
1.  Introduction 
2.  Comment démarrer avec Visual Basic ?  
3.  Les étapes de la réalisation d’une application 
4.  Sauvegarder une application 
5.  Notions de base (Le contrôle Form) 
6.  Notions de base (Le Label) 
7.  Notions de base (Le CommandButton) 
8.  Apprentissage par l’exemple 
2/74 

---

Introduction  
Visual Basic 6.0 est un logiciel de programmation crée par la société Microsoft pour permettre le 
developpement des applications qui peuvent fonctionner de manière autonome sous 
Windows. 
Le modèle de programmation utilisé par Visual Basic est de type événementiel c'est-à-dire que 
seulement une partie du code est exécuté suite à une action précise de l’utilisateur (appelée 
événement). 
Visual Basic est considéré egalement comme un langage de programmation orientée objet : chaque 
partie du code est liée à un objet, et c’est une action sur cet objet qui déclenche son exécution. 
Il existe sur le marché trois éditions  de Visual Basic:  
      - L’édition Initiation est la moins fournie des trois mais permet de créer de puissantes   
applications. 
      - L’édition Professionnelle dispose de toutes les fonctionnalités de l’édition initiation et se voit 
enrichie de nombreux contrôles et outils de développement. 
      - L’édition Entrepriseest la plus complète.       
3/74 

---

2. Les étapes de la réalisation d’une application  
La création d'une application dans Visual Basic implique trois étapes principales : 
ü  Créer l'interface. 
ü  Définir les propriétés. 
ü  Écrire le code. 
3. Sauvegarder une application  
Lorsqu’on sauvegarde une application, Visual Basic va créer : 
1.Un ou plusieurs fichiers feuilles (.frm) : Un fichier mémorise tous les éléments attachés à 
une feuille : la description de la fenêtre, la description des contrôles inclus dans la fenêtre, 
les procédures et fonctions liées à la feuille. 
2.Un fichier dit projet (.vbp) : Il mémorise la liste de tous les  fichiers nécessaires au projet. 
Quand le projet est terminé il peut être transformé (compilé) en un seul fichier 
exécutable « .EXE » qui s’exécutera sans lancer Visual Basic, mais il necessitera 
toutefois d’avoir le logiciel installé. 

2. Notions de base (le contrôle Form) 
Par défaut Visual basic affiche une feuille vierge appélée Form1 
Pour commencer, nous allons examiner deux propriétés : 
- La propriété Name : il s’agit du nom de l’objet tel qu’il est géré par l’application. Par défaut, 
Visual Basic donne à tous les objets que vous créez de noms génériques, comme Form1, Form2, 
Form3…
- La propriété Caption : il s’agit du texte associé à l’objet sur l’écran. 
Notes 
CConcernant  la  propriété  name,  il  est  important  de  changer  les  noms  donnés  par  défaut 
  aux contrôles utilisés et de choisir des noms plus évocateurs. 
Par  convention,  on  utilise  un  préfixe  de  3  lettres  spécifique  à  la  famille  de  l'objet 
concerné, suivi d'un nom significatif du rôle rempli par le contrôle dans le projet. 
Exemple : Au lieu de concerver form1 comme name, on choisira frmclients pour une 
feuille qui servira à réunir les détails sur les clients. 
4/74 

---

Les préfixes souvent utilisés pour chaque objet : 
Objet 
Préfixe 
Bouton de commande 
cmd 
(CommandButton) 
Bouton d'option (OptionButton) 
opt 
Cadre (Frame) 
fra 
Case à cocher (CheckBox) 
chk 
Etiquette (Label) 
lbl 
Formulaire ou Feuille (Form) 
frm 
Image (Image) 
img 
Liste modifiable (ComboBox) 
cbo 
Menu (Menu) 
mnu 
Minuterie (Timer) 
tmr 
Photo (Picture) 
pic 
Zone de liste (ListBox) 
lst 
Zone de texte (TextBox) 
txt 
La boite à outils 

Zone image (PictureBox) 
Label 
Zone de texte (TextBox) 
Encadré avec un titre (Frame) 
Bouton de commande (CommandButton) 
Case à cocher (CheckBox) 
Bouton d’option (OptionButton) 
Liste modifiable (ComboBox) 
Liste non modifiable (ListBox) 
Barre de défilement horizontale (HScrollBar) 
Barre de défilement verticale (VScrollBar) 
Minuterie (Timer) 
Liste de lecteurs (DriveListBox) 
Liste de répertoires (DrilistBox) 
Liste de fichiers (FilelistBox) 
(Shape) 
Trait (Line) 
Image 
Data 
5/74 

---

Notes 
C
Les principales propriétés d’un contrôle Label sont : 
Ÿ Alignment : qui règle l’alignement du texte (gauche, centré, droite)  
Ÿ BorderStyle : qui désigne le type de bordure du label 
Ÿ Autosize     : permet d’ajuster la taille du Label à son contenu.
Dans une zone de texte, il y a 3 possibilités : 
·  Afficher une valeur 
·  Inscrire une valeur 
·  Modifier une valeur ; 
Dans un label, il y’a UNE possibilité : 
·  Afficher une valeur 
6/74 

---

4. Notions de base (Le CommandButton) 
Il s’agit du bouton de commande du type Ok, Annuler, et permet a l’utilisateur de déclencher un 
événement avec la souris ou le clavier.  
Quelques propriétés de la classe CommandButton : 
Ÿ Enabled  :  cette  propriété  permet  au  bouton  d’être  actif  (valeur  True),  c’est-à-dire  de  pouvoir 
recevoir  des  événements,  et  donc  de  déclencher  des  procédures.  Inversement,  elle  interdit 
(valeur  False)  à  un  contrôle  de  recevoir  quelque  événement  que  ce  soit  de  la  part  de 
l’utilisateur. Dans ce cas, le contrôle apparaît grisé à l’écran.   
Ÿ STYLE : si cette propriete possede comme valeur graphical, il devient alors possible d’ajouter 
une image sur le bouton, ou d'en modifier la couleur. dans le cas contraire (valeur standard, 
par defaut), le bouton conserve l’aspect par defaut des boutons de windows (le gris).  
7/74 

---

5. Apprentissage par l’exemple 
Réalisez votre premier programme qui permet de contrôler l’affichage de la date et l’heure à partir 
de deux boutons. 
1. Créer l’interface suivante : 
Form1 
Label 1 
Command1 
Command2 
2. Définir les objets et leurs propriétés : 
L'étape suivante consiste à définir pour chaque objet des propriétés. 
1.Appuyez sur la touche F4 pour ouvrir la Fenêtre Propriétés ; 
(Si cette fenêtre est déjà ouverte passez à l’étape suivante) 
2.Choisissez  un objet de la liste : 
3.Affectez les propriétés suivantes : 
8/74 

---

Objets 
Propriétés 
Valeurs 
Form1 
Caption 
Essai 
Command1 
Caption 
Date 
Command2 
Caption 
Heure 
Caption 
Label1 
Alignment 
Center 
Border Style 
Fixed Single 
3. Ecrire le code  
Pour ouvrir la fenêtre du Code, Double-cliquez sur la feuille ou sur le contrôle pour lequel vous 
souhaitez écrire le code (Dans notre exemple on a choisit le bouton de commande Command1. 

· 
Command1 est le name du bouton de commande choisi ; 
·  Command1_Click veut dire que le code qui sera écrit entre Private Sub et End Sub sera 
executé quand l'utilisateur va cliquer sur ce bouton ; 
·  Private veut dire que ce code sera utilisable UNIQUEMENT que dans cette feuille. 
· 
Label1=Date : signifie que l’objet Label1va afficher la date systéme (quand 
l’utilisateur aura cliqué sur le bouton Command1). 
9/74 

---

Pour exécuter l'application, cliquez sur Exécuter dans le menu Exécution, ou sur le bouton 
  de la barre 
d'outils, ou encore appuyez sur la touche de fonction F5. 
D’autres codes à tester: 
·  Le premier exemple montre qu’au 
contraire des fonctions Time et 
Date, pour afficher un texte dans 
un Label, il doit être placé entre "; 
·  Le deuxiéme exemple montre 
l’utilité du caractére & : 
concaténer une fonction et un 
texte ; 
·  Space(5) permet d’insérer 5 
espaces ; 
D’autres propriétés valables pour de nombreux éléments : 
Propriétés 
Signification 
BackColor 
couleur de l'arrière-plan de l'objet (ex. : couleur de la fenêtre) 
ForeColor 
couleur du premier plan de l'objet (ex. : couleur du texte) 
Font 
style d'écriture 
Autosize 
Permet pour un Label d’adapter le texte à son bordure  
Quelques règles à respecter : 
· 
Un name doit toujours commencer par une lettre, ne doit pas dépasser 255 caractères et ne 
doit pas comporter d’espaces. 
10/74 

---

· 
Les mots réservés par Visual Basic (if, then, time, date…) ne peuvent pas être utilisés pour 
la propriété name. 
Ajout du bouton ‘Quitter’ : 
Objectif : ajouter un bouton de command qui permet de terminer l’application : 
·  Ce code  permet d'arrêter la procédure du programme. 
Ajout des touches de raccourcis : 
Pour chaque bouton, ajouter un "&" pour que la première lettre devienne un raccourci ; 
Exemple : pour le bouton ‘Quitter’ 
Ce qui donne  
Ainsi en mode execution, il suffit d’utiliser la combinaison detouches ‘ALT+Q’ pour teminer 
l’application.
11/74 

---

6. Notions de base (La Zone de Texte (TextBox)) 

Contrairement à un Label, les "TextBox" servent généralement à saisir une information.     

La propriété essentielle d'une Zone de Texte est Text. C’est la propriété qui désigne son contenu. 
Il  faut  savoir  que toute  information  contenue  dans  une  zone  de  texte  est 
obligatoirement  de  type  texte !  Donc,  l’emploi  de  fonctions  de  conversion  s’avèrera 
indispensable pour travailler avec des nombres. 
12/74 

---

Apprentissage par l’exemple : 
1.Créez l’interface suivante :   
Label 
Frame 
3 OptionButton 
CommandButton 
Le but de cette application est de contrôler l’affichage dans Le Label en fonction du choix effectué : 
–L’option Word pour afficher «  Traitement de texte » 
–L’option Excel pour obtenir « Tableur » 
–L’option Access pour obtenir « Système Gestion bases de donnée » 
Définir les propriétés :   
V a l e u r  
O b j e t s  
P r o p r i é t é s  
d e   c h a q u e   p r o p r i é t é  
F o r m 1  
Caption 
Boutons d'options: 
Caption 
Logiciels 
F r a m e  
Font 
Gras 
Caption 
Word 
O p t i o n 1  
Name 
optword 
Caption 
Excel 
O p t i o n 2  
Name 
Optexcel 
Caption 
Access 
O p t i o n 3  
Name 
Optaccess 
Caption 
&Quitter 
C o m m a n d 1  
Name 
Cmdfin 
Caption 
Name 
lblaffichage 
L a b e l 1  
Alignment 
Center 
Border Style 
Fixed Single 
Font 
Gras, Taille 12 


13/74 

---

Ecrire le code pour  optword : 
Ecrire le code pour  optexcel : 
Ecrire le code pour  optaccess : 


14/74 

---

2éme exemple 
On désire offrir à l’utilisateur de faire un choix entre trois possibilités : 
– 
L’option Word pour afficher «  Traitement de texte » 
– 
L’option Excel pour obtenir « Tableur » 
– 
L’option Access pour obtenir « Système Gestion bases de donnée » 
Également, vous devez ajouter à votre application un bouton Fin pour quitter. 


Label1 
Frame 
Option1 
Option2 
Option3 
Command1 
2.  Définir les objets : 
V a l e u r s  
O b j e t s  
P r o p r i é t é s  
d e   c h a q u e p r o p r i é t é  
Form1 
Caption 
Logiciels 
Caption 
Logiciels 
Frame 
Font 
Gras 
Caption 
Word 
Option1 
Name 
optword 
Caption 
Excel 
Option2 
Name 
Optexcel 
Caption 
Access 
Option3 
Name 
Optaccess 
Caption 
Fin 
Command1 
Name 
Cmdfin 
Caption 
Name 
lblaffichage 
Label1 
Alignment 
Center 
Border Style 
Fixed Single 
Font 
Gras, Taille 12 
3.  Définir les évènements  
Private Sub optword_Click() 
          lblaffichage.Caption = "Traitement de texte" 
End Sub 
Private Sub optexcel_Click() 
          lblaffichage.Caption = "Tableur" 
End Sub 
Private Sub optaccess_Click() 
           lblaffichage.Caption = "Système Gestion bases de données" 
End Sub 
Private Sub cmdfin_Click() 
           End 
End Sub 
15/74 

---

3éme exemple 
Créer un projet qui permet de calculer la conversion d’une devise vers le dirham à partir d’un taux choisis par l’utilisateur. 
1.  Définir les objets : 
V a l e u r s   d e   c h a q u e  
O b j e t s  
P r o p r i é t é s  
p r o p r i é t é  
Form1 
Caption 
Changement de devises 
Label1 
Caption 
Bureau de change 
Caption 
Montant Devises 
Label2 
Autosize 
True 
Caption 
Taux 
Label3 
Autosize 
True 
Caption 
Montant en DH 
Label4 
Autosize 
True 
Caption 
Name 
Lblaffichage 
Label5 
Borderstyle 
Fixedsingle 
Font 
Gras, Taille : 12 
Text 
Text1 
Name 
Txtmontant 
Text 
Text2 
Name 
Txtaux 
Caption 
&Changer 
Command1 
Name 
cmdchanger 
Caption 
&Autre 
Command2 
Name 
cmdautres 
Caption 
&Fin 
Command3 
Name 
Cmdfin 
NB : 
La propriété Autosize permet d’ajuster le contrôle à son contenu ; 
Les propriétés Font et Forecolor permettent de changer l’attribut de l’objet (la taille, la couleur…) 
Le caractère & permet d’affecter une touche de raccourcis à un Bouton de commande. 
La propriété setfocus permet d’insérer automatiquement le curseur dans une zone de texte (voir la procédure cmdAutre). 
L’instruction val permet de convertir une chaîne de caractère en nombre (voir la procédure cmdchanger) 
2.   Définir les évènements  
16/74 

---

Private Sub cmdchanger_Click() 
        lblaffichage.Caption = Val() * Val() 
End Sub 
Private Sub cmdautre_Click() 
         lblaffichage.Caption = "" 
          = "" 
          = "" 
         txtmontant.SetFocus 
End Sub 
Private Sub cmdfin_Click() 
         End 
End Sub 
17/74 

---

4éme exemple 
Chaque option donne un 
taux : 
1 Euro   =  
1 $Can  =  
1 $Usa  =  
              1 £        =  
1ère méthode 
Private Sub cmdchanger_Click() 
        lblmontant.Caption = lbltaux.Caption * Val() 
End Sub 
Private Sub optcan_Click() 
        lbltaux.Caption = 7.18 
End Sub 
Private Sub optfb_Click() 
        lbltaux.Caption = 0.268 
End Sub 
Private Sub optfr_Click() 
       lbltaux.Caption = 1.56 
End Sub 
Private Sub optusa_Click() 
       lbltaux.Caption = 10.89 
End Sub 
NB : Utiliser le point comme séparateur décimal dans le code. 
2éme  méthode 
Dim taux as integer 
Private Sub cmdchanger_Click() 
       lblmontant.Caption = Val() * taux 
End Sub 
Private Sub optcan_Click() 
      lbltaux.Caption = 7.18 
      taux = 7.18 
End Sub 
Private Sub optfb_Click() 
      lbltaux.Caption = 0.268 
      taux = 0.268 
End Sub 
Private Sub optfr_Click() 
     lbltaux.Caption = 1.56 
      taux = 1.56 
End Sub 
Private Sub optusa_Click() 
     lbltaux.Caption = 10.89 
     taux = 10.89 
End Sub 
Cette méthode vous oblige à déclarer la variable taux comme variable général (Voir Page N°…..)  
18/74 

---

Test entre 2 valeurs 

Private Sub cmdivis_Click() 
    If Val() = 0 Then 
    MsgBox "Division impossible par Zéro" 
    Text4.SelStart = 0 
    Text4.SelLength = Len() 
    Else 
    lblresultat.Caption = Val() / Val() 
    lblresultat.Caption = Format(lblresultat.Caption, "00.00") 
    End If 
End Sub 
Private Sub cmdmoins_Click() 
    lblresultat.Caption = Val() - Val() 
End Sub 
Private Sub cmdmult_Click() 
    lblresultat.Caption = Val() * Val() 
End Sub 
Private Sub CMDPLUS_Click() 
lblresultat.Caption = Val() + Val() 
End Sub 
Private Sub Command1_Click() 
    If Val() > Val() Then 
        lblres.Caption = "A>B" 
    ElseIf Val() = Val() Then 
        lblres.Caption = "A=B" 
    Else 
        lblres.Caption = "A<B" 
    End If 
End Sub 
19/74 

---

Application N°4 

Private Sub chkgras_Click() 
    If (chkgras.Value = vbChecked) Then 
         = True 
    Else 
         = False 
    End If 
End Sub 
Private Sub chkitalique_Click() 
    If (chkitalique.Value = vbChecked) Then 
        .Italic = True 
    Else 
        .Italic = False 
    End If 
End Sub 
Private Sub chksou_Click() 
    If (chksou.Value = vbChecked) Then 
        .Underline = True 
    Else 
        .Underline = False 
    End If 
End Sub 
Private Sub opt12_Click() 
Text1.FontSize = 12 
End Sub 
Private Sub opt20_Click() 
Text1.FontSize = 20 
End Sub 
Private Sub opt40_Click() 
Text1.FontSize = 40 
End Sub 
20/74 

---

Private Sub optblue_Click() 
    Text1.ForeColor = vbBlue 
End Sub 
Private Sub optnoir_Click() 
    Text1.ForeColor = vbBlack 
End Sub 
Private Sub optrouge_Click() 
    Text1.ForeColor = vbRed 
End Sub 
21/74 

---

Gestion de mot de passe 
CommnadButton 
TextBox 
B Modifiez l’icône de l’application : 
Des icônes supplémentaires sont installés avec Visual Basic 
dans le dossier :  C:\Program Files\Microsoft Visual 
Studio\COMMON\Graphics\Icons. 

C Désactivez l’affichage des boutons 
  : 
D  Ajoutez une deuxième feuille à votre projet : 
22/74 

---

Normalement, dans, l’Explorateur de Projets (Ctrl + r) vous devez avoir un seul projet contenant deux 
feuilles : 

E Ajoutez les propriétés suivantes : 
Objets 
Propriété 
Valeur 
Name 
cmdvalid 
Command1 
Caption 
Valider 
Name 
txtpassword 
Text 
Cette propriété doit rester vide 
Text1 
PasswordChar 
* 
Maxlenght 
10 
 NB :  
§ 
La propriété PasswordChar permet de masquer les caractères tapés par l’utilisateur par celui défini  
(Dans notre cas la zone de texte n’affichera que des étoiles).  
§ 
La propriété Maxlenght impose une langueur maximale pour les caractères saisis. 

F: Construisez le code de votre application 

23/74 

---

Private Sub cmdValid_Click() 
        If  = "" Then 
            MsgBox "Veuillez saisir un mot de passe", vbOKOnly, "Reéssayer" 
        ElseIf UCase() = "BEST" Then 
            Unload Form1 
        ElseIf MsgBox("Mot de passe Incorrect", vbRetryCancel + vbCritical, "Accés refusé") = vbRetry Then 
            txtpassword.SetFocus 
            txtpassword.SelStart = 0 
            txtpassword.SelLength = Len() 
        Else 
            End 
        End If 
End Sub 
La propriété UCase permet de convertir toutes les lettres minuscules en majuscules. 

---

Application N°8 : Les variables 
Réalisez le code de la facture suivante :  
Règles commerciales :  
Le montant Hors taxe = quantité * Prix 
Le montant de la remise = Le montant Hors taxe * Taux de remise 
Le net commercial = Le montant Hors taxe - Le montant de la remise 
Le montant TVA = Le net commercial * taux TVA 
Le montant TTC = Le net commercial + Le montant TVA 
----------------------- 
Dim remise, tva 
Private Sub tauxR5_Click() 
Private Sub calculer_Click() 
    remise = 0.05 
    labmtht = txtQ * txtprixuni 
End Sub 
    labmtremise = labmtht * remise 
    labnetcom = labmtht - labmtremise 
Private Sub tauxtva14_Click() 
    labmttva = labnetcom * tva 
    tva = 0.14 
    labmtttc = labnetcom + labmttva 
End Sub 
End Sub 
Private Sub tauxtva20_Click() 
Private Sub tauxR0_Click() 
    tva = 0.2 
    remise = 0 
End Sub 
End Sub 
Private Sub tauxR10_Click() 
Private Sub tauxtva7_Click() 
    remise = 0.1 
    tva = 0.07 
End Sub 
End Sub 
25 

---

5éme exemple (Les ListBox) 

Etablir un programme qui permet de contrôler l'ajout vers une zone de Liste 
(Zone de texte) txtprd 
cmdajouter 
cmdrechercher 
(listBox)lstprd 
cmdsupprimer 
Timer1 
cmdeffacer 
cmdquitter 
(Label)lbltotal 
Private Sub cmdajout_Click() 
Dim i, nbv As Integer 
nbv = lstprd.ListCount 
If nbv > 0 Then 
    For i = 0 To nbv - 1 
        lstprd.Selected(i) = True 
        If UCase() = UCase() Then 
            MsgBox "Produits existe déja !!!", 48, "attention" 
            = "" 
            txtprd.SetFocus 
            Exit Sub 
        End If 
    Next 
End If 
    lstprd.AddItem Trim() 
    = "" 
    txtprd.SetFocus 
End Sub 
Private Sub cmdeffacer_Click() 
    If MsgBox("Etes vous sur de vouloir tout Effacer ", vbYesNo,"Confirmer")= _   
vbYes Then 
    lstprd.Clear 
    End If 
    txtprd.SetFocus 
End Sub 
Private Sub cmdsupprimer_Click() 
    If lstprd.ListCount = 0 Then 
       MsgBox "la list est vide", vbOKOnly, "Supprimer" 
    ElseIf lstprd.ListIndex = -1 Then 
       MsgBox "vous devez selectionner un element de la liste" 
    Else 
       lstprd.RemoveItem lstprd.ListIndex 
    End If 
End Sub 
Page 26 / 74 

---

Private Sub cmdfin_Click() 
    If MsgBox("Etes vous sur de vouloir fermer", vbYesNo, "Quitter")= vbYes Then 
       End 
    End If 
End Sub 
Private Sub Timer1_Timer() 
    lbltotal.Caption = lstprd.ListCount 
End Sub 
Private Sub txtprd_Change() 
    If Len(Trim()) = 0 Then 
        cmdajout.Enabled = False 
    Else 
        cmdajout.Enabled = True 
    End If 
End Sub 
Private Sub cmdrechercher_Click() 
    Dim produit As String 
    Dim i, nbprd As Integer 
    produit = InputBox("Entrez le nom du produit", "Rechercher") 
    nbprd = lstprd.ListCount 
    For i = 0 To nbprd - 1 
        lstprd.Selected(i) = True 
        If UCase() = UCase(produit) Then 
        MsgBox "Le produit a été trouvé", 64, "Fin de la recherche" 
        Exit Sub 
        End If 
    Next 
    MsgBox "Produit non trouvé", 64, "Fin de la recherche" 
End Sub 
Page 27 / 74 

---

 6éme exemple (Application mot de passe) 

Private Sub cmdValid_Click() 
        If = "" Then 
            MsgBox "Veuillez saisir un mot de passe", vbOKOnly, "Reéssayer" 
        ElseIf UCase() = "BEST" Then 
            Unload Form1 
        ElseIf MsgBox("Mot de passe Incorrect", vbRetryCancel + vbCritical, "Accés 
refusé") = vbRetry Then 
            txtpassword.SelStart = 0 
            txtpassword.SelLength = Len() 
        Else 
            End 
        End If 
End Sub 
Private Sub Form_Activate() 
        txtpassword.SetFocus 
End Sub 
2éme méthode (Limiter le nombre d'essai a 3) 

Dim i 
Private Sub Command1_Click() 
Do While i < 3 
    If <> "123" Then 
        i = i + 1 
        txtpassword.SetFocus 
        = "" 
        MsgBox "essai N° " & i 
        Exit Sub 
    Else 
       Exit Sub 
    End If 
Loop 
MsgBox "Dernier essai ..!!!," 
MsgBox "Au revoir" 
End 
End Sub 
Page 28 / 74 

---

Les fonctions  
Private Sub cmdresultat_Click() 
If optoperation(0).Value Then 
    lblresultat.Caption = Val(txtop1) + Val(txtop2) 
ElseIf optoperation(1).Value Then 
        lblresultat.Caption = Val(txtop1) - Val(txtop2) 
ElseIf optoperation(2).Value Then 
            lblresultat.Caption = txtop1 * txtop2 
ElseIf  = 0 Then 
                MsgBox "Division par 0 impossible", 16, "Erreur" 
                lblresultat.Caption = "" 
Else 
            lblresultat.Caption =  /  
 End If 
End Sub 
Private Function Controle_saisie(KeyAscii As Integer) As Integer 
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then 
    Controle_saisie = 0 
Else 
    Controle_saisie = KeyAscii 
End If 
End Function 
Private Sub txtop1_KeyPress(KeyAscii As Integer) 
KeyAscii = Controle_saisie(KeyAscii) 
End Sub 
Private Sub txtop2_KeyPress(KeyAscii As Integer) 
KeyAscii = Controle_saisie(KeyAscii) 
End Sub 
Page 29 / 74 

---

7éme exemple (Gestion des polices) 

txtaille 
txtstyle 
txtpolice 
lstpolice 

ox
lststyle 
i
s
t
b
lstaille 
L
chksou 
txtph 
chkbarr 
optgauche 
Private Sub chkbarr_Click() 
    If .Strikethrough = True Then 
        .Strikethrough = False 
    Else 
        .Strikethrough = True 
    End If 
End Sub 
Private Sub chksou_Click() 
    If .Underline = True Then 
        .Underline = False 
    Else 
        .Underline = True 
    End If 
End Sub 
Private Sub cmdclose_Click() 
Unload Me 
End 
End Sub 
Private Sub Form_Load() 
Dim i, j 
    For i = 0 To Screen.FontCount - 1 
        lstpolice.AddItem Screen.Fonts(i) 
    Next 
    For j = 8 To 100 
    lstaille.AddItem j 
    Next 
End Sub 
Private Sub lstaille_Click() 
    = Val() 
    =  
End Sub 
Private Sub lstpolice_Click() 
    =  
    =  
End Sub 
Private Sub lststyle_Click() 
    Dim style 
    style = lststyle.ListIndex 
    Select Case style 
    Case 0 
        = False 
Page 30 / 74 

---

        .Italic = False 
    Case 1 
        = True 
        .Italic = False 
    Case 2 
        = False 
        .Italic = True 
    Case Else 
        = True 
        .Italic = True 
    End Select 
    =  
End Sub 
Private Sub optcenter_Click() 
txtph.Alignment = vbCenter 
End Sub 
Private Sub optdroite_Click() 
txtph.Alignment = vbRightJustify 
End Sub 
Private Sub optgauche_Click() 
txtph.Alignment = vbLeftJustify 
End Sub 
NB: 
Affectez à la zone de texte txtph les propriétes suivantes : 
Multuline =True 
Scrollbars = 2-Verticall 
Page 31 / 74 

---

Facture pour comptabiliser 

TextBox(HT) 
ListBox(TTC) 
CommandButton(ajouter) 
Private Sub ajouter_Click() 
If  = "" Then 
MsgBox ("Attention, vous devrez insérer un prix") 
Else 
initialiser.Enabled = True 'activer le bouton Initialiser 
If tva0.Value = True Then 
        detail.Enabled = True 
        TTC.AddItem (Str(Val())) 
ElseIf tva7.Value = True Then 
        detail.Enabled = True 
        TTC.AddItem (Str(Val() * 1.07)) 
ElseIf tva20.Value = True Then 
        detail.Enabled = True 
        TTC.AddItem (Str(Val() * 1.2)) 
ElseIf tva14.Value = True Then 
        detail.Enabled = True 
        TTC.AddItem (Str(Val() * 1.14)) 
Else 'si aucun bouton n'est activé 
        MsgBox ("Attention, vous devez choisir le taux de TVA") 
End If 
 = "" 
ht.SetFocus 
End If 
End Sub 
Private Sub detail_Click() 
Dim i As Integer 
Dim sum As Single 
Dim moyenne 
sum = 0 
For i = 0 To TTC.ListCount - 1 'parcourir les éléments de la liste 
Page 32 / 74 

---

sum = sum + Val((i)) 
Next i 
moyenne = sum / TTC.ListCount 
MsgBox ("Le nombre d'articles est " & TTC.ListCount & "; la montant total à payer est " & sum) 
sauvegarder.Enabled = True 
End Sub 
Private Sub ht_Change() 
ajouter.Enabled = True 
End Sub 
Private Sub initialiser_Click() 
TTC.Clear 
detail.Enabled = False 
sauvegarder.Enabled = False 
End Sub 
Private Sub quitter_Click() 
End 
End Sub 
Private Sub sauvegarder_Click() 
Dim i As Integer 
Open "c:\facture" For Output As #1 
For i = 0 To TTC.ListCount - 1 
Print #1, (i) 
Next i 
Close 
End Sub 
Page 33 / 74 

---

Contrôler la saisie dans une zone de texte 

1. 
Private Sub Text1_LostFocus() 
    If IsNumeric() = False Then 
    MsgBox "Erreur de saisie" & vbLf & "Seulement numérique" 
    Text1.SetFocus 
    = "" 
    End If 
End Sub 
NB : 
VbLf Ou Chr (10) : Caractère de saut de ligne 
2. 

Private Sub Text1_LostFocus() 
    If IsDate() = False Then 
    MsgBox "Erreur de saisie" & vbLf & "Seulement Date" 
    Text1.SetFocus 
    = "" 
    End If 
End Sub 
NB : 
La fonction IsDate renvoie la valeur True si l'expression est une date ou peut être reconnue en tant que date ; sinon elle 
renvoie la valeur False. 
3. 
Private Sub Text1_KeyPress(KeyAscii As Integer) 
    If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) Then 
    KeyAscii = 0 
    End If 
End Sub 
NB : 
Chaque caractère est associé à un code compris entre 0 et 255 (on appelle code ascii) 
Exercice : 
Ecrire un programme qui permet de limiter la saisie dans une zone de texte aux touches alphabétiques. 

Exécuter une application Windows a partir du VB 
Utiliser la fonction Shell… 
Exemple : 
Shell "c:\Program files\Microsoft office\office\", vbNormalFocus 
Exercice : 
Ecrire un programme qui permet d’ouvrir les programmes suivants : 
– 
Paint 
– 
Calculatrice 
– 
Le Bloc note 
– 
Les jeux de Windows 
Page 34 / 74 

---

Se déplacer avec les touches de direction 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyDown Then 
    Text2.SetFocus 
    End If 
End Sub 
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyUp Then 
    Text1.SetFocus 
    ElseIf KeyCode = vbKeyDown Then 
    Text3.SetFocus 
    End If 
End Sub 
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyUp Then 
    Text2.SetFocus 
    End If 
End Sub 

Page 35 / 74 

---

Utilisation de la fonction Format 
Private Sub Command1_Click() 
    Dim Today As Variant 
    Today = Now 
    lblDay.Caption = Format(Today, "dddd") 
    lblMonth.Caption = Format(Today, "mmmm") 
    lblYear.Caption = Format(Today, "yyyy") 
    lblnumber.Caption = Format(Today, "d") 
    lblTime.Caption = Format(Today, "h:mm:ss ampm") 
End Sub 

Page 36 / 74 

---

Bon, on va 
commencer 
Calcul Salaire hebdomadaire
un exercice 
Une entreprise qui emploi des salariés à l’heure, les paie chaque semaine suivant un taux horaire 
auquel on applique un coefficient K donnée par : 

39 premières heures   
K= 1 
de la 40éme à la 44 heure  
K= 1,2 
De la 45éme à la 49 heure 
K= 1,5 
Après la 49éme heure 
K= 1,8 
Travail à faire : 
Déterminer à partir d’un volume horaire, le salaire de la semaine. 

Page 37 / 74 

---

Utilisation de l’événement MouseDown 

Exemple 1 : 
Ce programme illustre la façon de concevoir des programmes 
permettant à l’utilisateur de déplacer des objets dans la fenêtre du 
programme à l’aide de la souris. 
Page 38 / 74 

---

Exemple 2 : 
Ce programme utilise l’événement MouseDown  . 


La procédure Form_MouseDown est exécutée dés 
que pressez le bouton de la souris, avant même que 
vous ne le relâchiez. 
Page 39 / 74 

---

CUMUL de Chiffres   1 + 2 + 3 +  n 

Etape 1 
Page 40 / 74 

---

Scrol Bar : 
Partie influencée par VSBxyz_CHANGE
Partie influencée par VSBxyz_SCROLL


Page 41 / 74 

---

Gestion Hôtel 
Dim prix As Integer 
Private Sub cmdcalculer_Click() 
Dim nbj, divers, a, de, mtdu 
a = CDate() 
de = CDate() 
nbj = a - de 
divers = Val() 
mtdu = (nbj * prix) + divers 
lblnbj.Caption = nbj 
lblmtdu.Caption = mtdu 
End Sub 
Private Sub Form_Load() 
lbldate.Caption = "Facture du: " & Date 
End Sub 
Private Sub optdouble_Click() 
prix = 220 
End Sub 
Private Sub optdup_Click() 
prix = 350 
End Sub 
Private Sub optsimple_Click() 
Page 42 / 74 

---

prix = 180 
End Sub 
Private Sub txta_LostFocus() 
    If Not IsDate() Then 
       = "" 
      txta.SetFocus 
    Else 
        If CDate() < CDate() Then 
        MsgBox "La date saisie est inferieur à la date d'entrée", vbExclamation, "Date incorrect" 
         = "" 
        txta.SetFocus 
        End If 
    End If 
End Sub 
Private Sub txtde_GotFocus() 
Dim debut 
debut = InputBox("Entrez la date debut", "Saisie des données") 
 = debut 
End Sub 
Private Sub txtde_LostFocus() 
    If Not IsDate() Then 
       = "" 
      txtde.SetFocus 
    End If 
End Sub 
Private Sub txtdivers_KeyPress(KeyAscii As Integer) 
If Not IsNumeric(KeyPress) Then 
 = "" 
txtdivers.SetFocus 
End If 
End Sub 
Page 43 / 74 

---

Utiliser le contrôle MaskedEdit 
On va changer la 
zone de texte par 
un nouveau 
composant 
MaskedEdit 
Pour l’insérer  
Page 44 / 74 

---

Le contrôle d'édition Masked (MaskedEdit) permet d'inviter les utilisateurs à entrer des 
données à l'aide d'un modèle de masque. 
 Vous pouvez également l'utiliser pour dema nder l'entrée de dates, de devises et d'heure, 
ou pour convertir des données entrées en ma juscules ou minuscules.  
Page 45 / 74 

---

9éme exemple en VB(Le visionneur d’image) 
lblimage 
Shape1 
dirimage 
imgimage 
Line1 
filimage 
drvimage 
cmdend 
cmdshow 
Private Sub drvImage_Change() 
    On Error GoTo testerr 
    = drvimage.Drive 
    Exit Sub 
testerr: 
    MsgBox "Le lecteur n'est pas prêt" 
    drvimage.Drive = "c:" 
    Resume Next 
End Sub 
Private Sub dirImage_Change() 
    =  
End Sub 
Private Sub cmdShow_Click() 
    Dim ImageName As String 
    If Right(, 1) = "\" Then 
        ImageName = + filImage.FileName 
    Else 
        ImageName = + "\" + filImage.FileName 
    End If 
    lblimage.Caption = ImageName 
    imgimage.Picture = LoadPicture(ImageName) 
End Sub 
Private Sub filImage_DblClick() 
Call cmdShow_Click 
End Sub 
Shape1: 
BackColor  
:Cyan 
BackStyle  
:1-Opaque 
FillColor  
:Blue 
FillStyle  
:4-Upward Diagonal 
Shape  
:4-Rounded Rectangle 
File1: 
Name  
:filImage 
Pattern  
:*.bmp;*.ico;*.wmf;*gif;*jpg (Sans espaces) 
Line1: 
BorderWidth   3 
Page 46 / 74 

---

Exemple N°12 (CommonDialog; ScrollBar) 
VScrollBar 
Option Explicit 
Dim Mois(12) As String 
Dim filiere As String 
Private Sub cmdinfo_Click() 
    Dim Msg As String, Age As Integer, prenom As String 
    Dim M As Integer, D As Integer, Y As Integer 
    M = Val(Format(Now, "mm")) 
    D = Val(Format(Now, "dd")) 
    Y = Val(Format(Now, "yyyy")) 
    Age = Y - vsbyear 
    If vsbmois.Value > M Or (vsbmois.Value = M And vsbjour > D) Then Age = Age - 1 
    'tester si la date est valide 
    If Age < 0 Then 
        MsgBox "La Date de naissance doit être avant la date actuelle .", vbOKOnly + 
vbCritical, "Invalide Date" 
        Exit Sub 
    End If 
    'tester si le nom a été rempli 
    If = "" Then 
        MsgBox "Vous devez saisir un nom.", vbOKOnly + vbCritical, "Entrez un nom" 
        Exit Sub 
    End If 
    Msg = + " poursuit ses études dans la filiére " + filiere + vbLf 
    If optsex(0).Value = True Then prenom = "Il " Else prenom = "Elle " 
    Msg = Msg + prenom + " a" + Str(Age) + " ans." + vbLf 
    MsgBox Msg, vbOKOnly, "Profile Etudiant" 
End Sub 
Private Sub Form_Load() 
Mois(1) = "Janvier" 
Mois(2) = "Février" 
Mois(3) = "Mars" 
Mois(4) = "Avril" 
Mois(5) = "Mai" 
Mois(6) = "Juin" 
Page 47 / 74 

---

Mois(7) = "Juillet" 
Mois(8) = "Août" 
Mois(9) = "Septembre" 
Mois(10) = "Octobre" 
Mois(11) = "Novembre" 
Mois(12) = "Decembre" 
lbljour.Caption = Str(vsbjour.Value) 
lblmois.Caption = Mois(vsbmois.Value) 
lblyear.Caption = Str(vsbyear.Value) 
End Sub 
Private Sub optfil_Click(Index As Integer) 
    Select Case Index 
    Case 0 
    filiere = "Technicien Specialisé" 
    Case 1 
    filiere = "Secretaire de Direction" 
    Case 2 
    filiere = "Devellopement" 
    Case 3 
    filiere = "Réseaux" 
    End Select 
End Sub 
Définissez les propriétés suivantes pour les différentes barres de défilement: 
VScrollBar vsbYear: 
VScrollBar vsbjour: 
VScrollBar vsbMois: 
Max = 1900 
Max = 1 
Max = 1 
Min = 2100 
Min = 31 
Min = 12 
Value = 1960 
Value = 1 
Value = 1 
Private Sub vsbjour_Change() 
lbljour.Caption = Str(vsbjour.Value) 
End Sub 
Private Sub vsbmois_Change() 
lblmois.Caption = Mois(vsbmois.Value) 
End Sub 
Private Sub vsbYear_Change() 
lblyear.Caption = Str(vsbyear.Value) 
End Sub 
Private Sub cmdnouveau_Click() 
    = "" 
    imgeleve.Picture = LoadPicture("") 
End Sub 
Il faut ajouter le contrôle CommonDialog dans votre boîte à outils. Pour ce faire, placer votre souris sur la boîte à outils et 
cliquez sur le bouton droit. Ensuite, choisissez la commande "Composants". Une liste de tous les contrôles apparaît alors. 
Celui qui nous intéresse ici, c'est le contrôle CommonDialog. Cochez la case du contrôle Microsoft Common Dialog Control 
6.0  et appuyez sur le bouton Appliquer. Le contrôle CommonDialog va alors apparaître sur votre boîte à outils. A présent, 
vous pouvez l'utilisez dans vos applications.  
CommonDialog cdlBox: 
Filter = Bitmap(*.bmp)|*.bmp|Images Gif(*.gif)|*.gif|Images Jpeg(*.jpg)|*.jpg 
Private Sub cmdcharger_Click() 
cdlbox.ShowOpen 
imgeleve.Picture = LoadPicture(cdlbox.FileName) 
End Sub 
Private Sub cmdend_Click() 
    End 
End Sub 
Page 48 / 74 

---

Cours 9 : Accès aux fichiers 
Il existe trois modes d'accès aux fichiers dans Visual Basic 6 : 
1.  Les fichiers à accès séquentiel ne peuvent ouvrir que des fichiers avec un contenu textuel.  
2.  Les fichiers à accès direct sont formés en général de plusieurs enregistrements de longueur 
fixe.  
3.  Les fichiers binaires sont tous les fichiers avec un contenu graphique.  
1. Les fichiers à accès séquentiel 
Il existe trois manières d'ouvrir un fichier texte :  
1.  La 1ère manière est l'ouverture d'un fichier uniquement en lecture à l'aide de l'instruction Input.  
2.  La 2ème manière est l'ouverture d'un fichier uniquement en écriture à l'aide de l'instruction 
Output.  
3.  La dernière manière est l'ouverture d'un ficher en écriture aussi mais à la seule différence de la 
précédente manière, les nouvelles données sont entrées à la suite de l'enregistrement 
précédent. Pour cela, on utilise l'instruction Append.  
Multiline  True 
Private Sub ouvrir_Click() 
On Error Resume Next 
Open "C:\" For Input As #1 
retour = Chr$(13) + Chr$(10) 
Line Input #1, texte 
tout = texte 
If Len(tout) <> 0 Then 
While Not EOF(1) 
Line Input #1, texte 
tout = tout + retour + texte 
Wend 
End If 
=tout 
Close #1 
End Sub  

Explication : 
Page 49 / 74 

---

·  L'instruction On error Resume Next permet d'ignorer toute erreur que peut entraîner cette 
procédure.  
·  L'instruction Open "C:\" For Input As #1 permet d'ouvrir le fichier "note" situé sur le 
bureau. Lorsque l'application est exécutée pour la première fois, une erreur 53 devrait 
apparaître car le fichier "note" n'existe pas encore. Mais grâce à l'instruction On Error Resume 
Next, cette erreur sera tout simplement ignorée.  
·  L'instruction retour = Chr(13)$ + Chr(10)$ permet à la ligne suivante. Le code ASCII 13 
correspond au "retour chariot", c'est-à-dire de revenir à gauche du texte et 10 au "passage à la 
ligne", c'est-à-dire d'aller à la ligne suivante.  
·  L'instruction Line Input permet de placer dans la variable "texte" le contenu de la première ligne 
du fichier "".  
·  Ensuite, le contenu de la variable "texte" est à son tour, affecté à la variable "tout".  
·  Le test avec l'instruction If permet de vérifier que le fichier "" n'est pas vide à l'aide de 
la fonction Len qui compte le nombre de lettres ou tout autre symbole contenu dans la variable 
"tout". Si le nombre de lettres est différent de zéro alors, les instructions à l'intérieur du test 
sont exécutés.  
·  La boucle avec While permet de parcourir tout le fichier à la recherche d'éventuelles autres 
lignes que la première. La fonction EOF permet de savoir si l'on arrive à la fin du fichier ouvert. 
Cette boucle est donc exécutée jusqu'à ce que tout le contenu du fichier soit placé dans la 
variable tout. Les chaînes de caractères affectées à la variable "tout" sont concaténées 
(concaténées = ajoutées) aux précédentes contenues dans la variable. La variable "retour" 
provoque un retour à la ligne à chaque fois que cela est nécessaire.  
·  Lorsque tout le contenu du fichier sera affecté à la variable "tout", cette dernière sera à son tour 
affectée à la propriété Text du contrôle TextBox. Ce qui provoquera l'affichage du contenu du 
fichier dans le contrôle TextBox.  
·  L'instruction Close ferme le fichier ouvert en lecture.  
Écrivons maintenant la portion de code correspondant au bouton "Sauvegarder" : 
Private Sub Sauvegarder_Click() 
Open "C:\Windows\Bureau\" For Output As #1 
Print #1,  
Close #1 
End Sub  

Explication : 
·  L'instruction Open "C:\Windows\Bureau\" For Output As #1 ouvre le fichier "" 
en écriture.  
·  Le contenu de la zone de texte "Text1" est ensuite copié dans le fichier à l'aide de l'instruction 
Print.  
·  Enfin, le fichier est fermé à l'aide de l'instruction Close.  
Passons à l'écriture de la procédure concernant le bouton "Effacer" :  
Private Sub Effacer_Click() 
 = "" 
Text1.SetFocus 
End Sub  
Page 50 / 74 

---

24 .Utiliser le contrôle DATA 

Le programme DATA permet à votre programme d’avoir accès à des bases de données externes, de 
type Microsoft Access, bBase, FoxPro… 
Etape 1 

Dans Access, créer la base de données suivante :  qui contient la table Clients : 

Etape 2 
Convertir cette  BDD vers le format Access 97 : cette étape est nécessaire    

Choisissez Le menu  
·  Outils 
·  Utilitaire de base de données 
·  Convertir une base de données  
·  Vers le format de fichiers Access 97 
·  Sauvegarder la BDD sous le nom : essai97
Etape 3 

Dans Visual Basic, Insérez le contrôle DATA : 

Page 51 / 74 

---

Construisez l’interface suivante : 

Etape 4 

Spécifiez la propriété Connect vers 
Access
Choisissez ensuite pour la propriété 
DatabaseName la BDD créer en haut : 
essai97
Pour la propriété RecordSource, 
Choisissez la table Clients
Etape 5 
On va maintenant afficher les données de la table Clients dans les zones de texte déjà crée : 

Page 52 / 74 

---

Pour chaque zone de texte vous devez spécifier ces deux propriétés   : 

DataField permet de choisir quel champ de la table clients sera affiché dans chaque zone de texte. 
Etape 6 

Exécutez votre application : 

Aller vers le dernier 
Aller vers le premier 
Aller vers le précèdent 
Aller vers le suivant 
Etape 7 

Le contrôle Microsoft FlexGrid (MSFlexGrid) affiche et opère sur des données placées dans des 
tableaux. 
Lorsque ce contrôle est lié à un contrôle Data, il affiche les données en lecture seule. 
Si le texte placé dans une cellule est trop long pour y être affiché entièrement et que la propriété 
WordWrap est définie sur True, le texte passe à la ligne suivante dans la même cellule. 
Page 53 / 74 

---

Dans la boite à outils vous verrez le composant suivant :  

Insérez le contrôle MSFlexGrid 
dans la feuille et ajustez sa 
propriété : 

A l’exécution vous obtiendrez ceci : 

Page 54 / 74 

---

Page 55 / 74 

---

Création de contrôles ActiveX 
La première chose qui nous faut réaliser c'est donc de créer le projet qui va contenir notre (ou nos) 
contrôle(s). Par défaut, quand vous lancez Visual Basic, une boîte de dialogue apparaît et vous propose 
plusieurs modèles de projets. Si ce n'est pas le cas, cliquez dans le menu "Fichier" sur "Nouveau 
Projet". La capture d'écran suivante montre cette boîte de dialogue.  
Le modèle de projet qui nous intéresse est donc le projet de contrôle ActiveX. Cliquez sur ouvrir après 
l'avoir choisit. Dans une certaine mesure, ce type de projet ressemble à un projet de type "Exe 
Standard". En effet, vous allez pouvoir éditer votre contrôle via deux outils : le concepteur visuel et 
l'éditeur de code. Mais une différence apparaît malgré tout : dans le concepteur graphique, votre 
contrôle n'a pas de détourage autour de sa zone visuel comme l'aurait une feuille. Cela est normal : 
l'objectif du contrôle c'est d'être utilisé sur une feuille.  
Vous pouvez ensuite remplir l'espace de votre contrôle avec des sous-contrôles. La partie visuelle de 
notre contrôle va contenir : un contrôle de type Frame , et Label (placé dans le Frame) pour afficher 
l'heure et un contrôle Timer pour actualiser régulièrement l'heure dans le Label. Nommez 
respectivement vos contrôles fraClock, lblClock et tmrClock. Affectez aussi à la propriété Interval du 
Timer la valeur 1000 (l'unité étant la milli-seconde, nous avons donc 1 seconde d'intervalle). Au final, 
votre contrôle (en mode conception) devrait ressembler à la capture d'écran suivante.  
Page 56 / 74 

---

Une chose importante est à ne pas oublier : il faut renommer le projet et le contrôle 
Le nom du projet est "Infini" et l'unique contrôle de ce projet est nommé "Clock". 
Changer la propriété ToolboxBitmap : elle permettra d'afficher l'icône souhaitée lorsque votre 
contrôle devra être insérer dans la boîte à outils. 
Option Explicit 
'-Mise à jour du label d'affichage de l'heure----------------------- 
Private Sub tmrSeconds_Timer() 
    lblClock.Caption = Time 
End Sub 
'-Code de retaillage de l'horloge----------------------------------- 
Private Sub UserControl_Resize() 
    fraClock.Width = UserControl.Width 
    fraClock.Height = UserControl.Height 
    lblClock.Width = UserControl.Width 
    = (UserControl.Height - lblClock.Height) / 2 + 100 
End Sub 
'-Initialisation de la valeur du label au premier affichage--------- 
Private Sub UserControl_Show() 
    tmrSeconds_Timer 
End Sub 
Ajout du projet de test 
Nous allons maintenant ajouter un projet secondaire. En effet, Visual Basic gère la notion de groupe de 
projet. Pour ce faire, allez dans le menu "Fichier" et cliquez sur "Ajouter un projet". Le type de projet à 
ajouter est "Exe standard". La capture d'écran suivante montre l'explorateur de projets après l'ajout. 
Notez aussi que, comme les deux projets font parties du même groupe de projet, l'icône du contrôle 
ActiveX apparaît lorsque que vous éditez la feuille du projet de test.  
A partir de maintenant, vous pouvez poser vos contrôles sur la feuille de test 
Page 57 / 74 

---

Pour l'heure, votre contrôle ActiveX n'existe pas réellement. Certes, il apparaît dans la boîte à 
outils, mais cela est fait par ce les deux projets sont intégrés dans le même groupe de projets. 
Pour pouvoir utiliser votre contrôle dans un autre projet, sans forcément disposer du code source, 
il vous faut compiler votre code pour générer le fichier ".ocx". Ensuite, il vous faut enregistrer 
votre (ou vos) composant(s) dans la base de registre Windows. 
Tant que vous êtes sur le poste de développement les choses sont plus simples qu'il n'y parait : en effet, 
le fait de compiler le projet via l'environnement Visual Basic, enregistrement automatiquement le 
contrôle dans la base. Si par contre, vous êtes sur une autre machine et que vous n'avez que le fichier 
".ocx" à votre disposition il va falloir réaliser l'enregistrement à la main, via l'outil "". Pour 
ce faire, prenez une console, placez-vous dans le répertoire contenant votre fichier ".ocx" et tapez la 
command "regsvr32 " (ou  représente le nom de votre fichier).  
L'outil d'empaquetage et de déploiement fournit avec Visual Basic permet de gérer un programme 
d'installation, qui saura installer les contrôles automatiquement sur le poste client. Il ne sera donc plus 
utile de lancer la commande "" manuellement.  
Page 58 / 74 

---

Utliser le contrôle Data 
Private Sub cmdAdd_Click() 
    Data1.Recordset.AddNew 
End Sub 

Private Sub cmdUpdate_Click() 
    Data1.UpdateRecord 
    Data1.Recordset.Bookmark = Data1.Recordset.LastModified 
End Sub 
Private Sub cmdClose_Click() 
    Unload Me 
    End 
End Sub 

Private Sub cmdDelete_Click() 
    Dim rep 
    rep = MsgBox("Suppresion", vbYesNo, "Attention") 
    If rep = vbYes Then 
    Data1.Recordset.Delete 
    precedent 
    End If 
End Sub 
Private Sub cmdfind_Click() 
    Dim rep 
    rep = InputBox("Entrer le Code Client recherché") 
    If rep = "" Then Exit Sub 
    Data1.Recordset.MoveFirst 
    Data1.Recordset.FindFirst "[code client]=" & "'" & rep & "'" 
    If Data1.Recordset.NoMatch = True Then 
    MsgBox "Le code client " & rep & "n'a pas été trouvé" 
    End If 
End Sub 

Private Sub cmdfirst_Click() 
Page 59 / 74 

---

    Data1.Recordset.MoveFirst 
End Sub 
Private Sub cmdlast_Click() 
    Data1.Recordset.MoveLast 
End Sub 
Private Sub cmdnext_Click() 
    Data1.Recordset.MoveNext 
    If = True Then 
    Data1.Recordset.MoveLast 
    End If 
End Sub 
Private Sub cmdprevious_Click() 
    precedent 
End Sub 
Private Sub Data1_Reposition() 
    Data1.Caption = "Enregistrement N° " & Data1.Recordset.AbsolutePosition + 1 & " sur " & 
Data1.Recordset.RecordCount 
End Sub 
Public Sub precedent() 
    Data1.Recordset.MovePrevious 
    If = True Then 
    Data1.Recordset.MoveFirst 
    End If 
End Sub 
Private Sub Form_Activate() 
    Data1.Recordset.MoveLast 
    Data1.Recordset.MoveFirst 
End Sub 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
    Dim rep 
    rep = MsgBox("Etês vous sur de bien vouloir quitter !!!", vbYesNo, "Quitter") 
    If rep = vbYes Then 
    Cancel = False 
    Else 
    Cancel = True 
    End If 
End Sub 
Page 60 / 74 

---

Accéder à une BDD Access en utilisant DataEnvironnement

Etape 1 : Créer la table CDs dans  la BDD  : 
Cette BDD ainsi que le projet Visual Basic doivent être 
sauvegardé dans le même répertoire.  
Etapes 2 : Passer à Visual Basic et réalisez l’interface suivante : 
Le contrôle 
DataGrid 
Le contrôle DataGrid n’apparaît pas par défaut dans la boite à Outils et il faudra l’insérer 
manuellement : 
Page 61 / 74 

---

1.  Affichez la boite à outils Composant : 
B 
2.  Cochez l’option ci-dessous: 
C 
Etape 3 : Paramétrez les différentes propriétés des contrôles que contient votre feuille. 
Page 62 / 74 

---

Contrôles 
Names 
DataGrid 
DataGrid1 
cmdAjouter 
cmdsupprimer 
txtArtist 
txtAlbum 
txtTrack 
Etape 4 : Ajouter DataEnvironnement : 
D 
Le paramétrage de DataEnvironnement s’effectue en suivant les étapes suivantes :  
Paramétrer la connexion à la BDD  :
Page 63 / 74 

---

E 
Page 64 / 74 

---

F 
G 
Page 65 / 74 

---

H 
Page 66 / 74 

---

I 
Sélectionnez  DataGrid1 (Dans Form1) et Attribuez le les propriétés suivantes : 
Page 67 / 74 

---

Remarquez le tri 
………. 
Page 68 / 74 

---

Page 69 / 74 

---

Créer un Data Report 
Insérer le contrôle Data Report 
L’état suivant apparaîtra :  

Définir les propriétés de cet état : 

Page 70 / 74 

---

DataSource : Correspond à l’outils choisi pour 
se connecter à votre BDD. 
DataMember : Correspond à la table définit 
dans dataenvironnement. 

Glissez les champs que vous voulez afficher vers la section détails : 
Page 71 / 74 

---

Ensuite vous devez :  
Page 72 / 74 

---

Ce contrôle ressemble au contrôle Label. 
Insérez le et modifiez ses propriétés 
Caption  & fonts. 
Idem que pour le précèdent 
Insérez  ce contrôle et modifiez sa propriété : 
Picture
Caption : Page %p sur %P 
DataMember : Produits 
DataField : Prix unitaire 

---

Il ne vous reste plus que créer un bouton de commande sur une feuille(Form) et d’y ajouter le code 
suivant : 
Le résultat final : 
En bas de chaque page : 
En bas de l’Etat : 
Page 74 / 74 

---