Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

U Un ni iv ve er rs si it té é d de e M ME ET TZ Z O Ol li iv vi ie er r H HA A

U Un ni iv ve er rs si it té é d de e M ME ET TZ Z O Ol li iv vi ie er r H HA AB BE ER RT T S Se ep pt te em mb br re e 2 20 00 00 0 T TD D- -T TP P M Mi ic cr ro o I In nf fo or rm ma at ti iq qu ue e E Et tu ud de e d de e V Vi is su ua al l B Ba as si ic c Notions à Assimiler Notions à Assimiler • Projet, fenêtre principale, • Contrôles bouton, edit, label, picture • Menus • Création de boîte de dialogue • Contrôles ouverture/enregistrement de fichier • Barre de menu, barre de status, liste d’image, gestion d’onglets, contrôles spéciaux (Toolbar, slider, barre de progression, …) • Instructions de Visual Basic (if then, while, do, for, …) • Type de variable (integer, string, float, single…) • Chaînes de caractère, Concaténation, Recherche d’Occurrence, (mid, left, right,…) • Timers, • Tableaux, Tableaux Dynamiques, Redimensionnement des Tableaux Dynamiques • Base de données, lecture écriture de données dans une table, Création Dynamique de tables, de champs,… • Contrôles spéciaux (DBGRID, Calendriers, …) 1 Exercice 1 : : Exercice 1 On se propose de créer une visionneuse de fichiers images. Pour cela on va utiliser des contrôles comme le contrôle DriveListBox, DirListBox, FileListBox, pour la recherche des images sur le disque et le contrôle PictureBox pour visualiser l’image sélectionnée. 1) Créer un nouveau projet que vous nommerez Image 2) Placer les différents contrôles sur la frame principale 3) Configurer les différents contrôles (mettre un filtre d’image dans le FileListBox,…) 4) Ecrire le code adéquat réagissant au changement des différents contrôles (DriveListBox met à jour DirListBox, DirListBox met à jour FileListBox et un Click sur le FileListBox Charge l’image sélectionnée) 5) Tester le programme. Exercice 2: : Exercice 2 Gestion de Boîtes d’onglets Gestion de Boîtes d’onglets Une boîte d’onglets permet d’afficher un choix multiple de boîtes de dialogue dans une fenêtre en sélectionnant une étiquette (onglet). Le contrôle tabstrip permet de gérer les boîtes d’onglets 2 1 1) ) Démarrer un nouveau projet. - - Nommer le projet " "b bo o t t i i e eo on ng gl le et t " " - Nommer la fenêtre principale " "f fe en ne e r r t t e ep pr ri in nc c " " - - Modifier le titre de cette fenêtre en " "G Ge es st ti io on n d d’ ’u un ne e b bo oî ît te e d d’ ’o on ng gl le et ts s " " 2 2) ) Installer le contrôle tabstrip dans la boîte à outils de Visual Basic (Bouton de droite sur la boîte à outil et menu composant). Le composant à installer est : Microsoft Windows Common Controls 3 3) ) Parmi les nouveaux composants se trouve le contrôle tabstrip. Placer un de ces contrôles dans la zone client de la fenêtre principale. 3 4 4) ) Afficher la fenêtre de propriétés personnalisée du contrôle (Bouton de droite et propriétés) 5 5) ) Cocher le choix MultiRow du menu général et dans le menu Onglets insérer 10 onglets en cliquant 9 fois sur "insérer un onglet ". (voir ce que vous devriez obtenir sur la deuxième figure ci-dessus) 6 6) ) Exécuter le programme et cliquer sur les onglets du tabstrip. Rien de spectaculaire ne se passe ! C’est normal car c’est bien sur à vous de remplir les zones clients de chaque onglet en faisant apparaître les différents contrôles. Pour cela pour chaque onglet, il faut afficher dans la zone client du tabstrip les différents contrôles qui l’habillent. Pour des raisons de simplicité dans la gestion de ces contrôles, il est commode d’afficher un contrôle picturebox pour chaque onglet qui contiendra les objets sur lesquelles l’utilisateur agira (case à cocher, bouton, boîte d’édition, curseurs, …). Voici la démarche à suivre : – Placer un contrôle picturebox dans la fenêtre principale – Nommer ce contrôle PictTabStrip – Donner une valeur 0 à la propriété index. Ceci permettra de disposer d’un ensemble de contrôles de même nom (PictTabStrip ) que l’on différenciera par leur index. (PictTabStrip(0) , PictTabStrip(1), … PictTabStrip(9) ) 4 – Copier-coller (Ctrl Inser/Maj Inser) le contrôle PictureBox originel 9 fois pour obtenir au total 10 PictureBox à l’écran. !!! : Avant de faire un coller, s’assurer que la fenêtre principale est sélectionnée. Ainsi les PictureBox seront des objets de la fenêtre principale. Si un autre objet est sélectionné (un autre PictureBox par exemple), l’objet collé appartiendra à l’objet sélectionné et son affichage sera donc limité à la zone client de celui-ci. 7 7) ) Donner une couleur de fond différente a chaque contrôle PictureBox. – Normalement la propriété index de chaque PictureBox a été automatiquement incrémenté et la première figure de la page suivante représente ce que vous devriez obtenir à l’écran. 5 8 8) ) Nous allons maintenant configurer en dynamique dans le programme la position et la taille de ces contrôles PictureBox - Pour cela utilisons l’événement Form_Load de la fenêtre principale que l’on peut programmer en double cliquant sur celle-ci et écrivons les lignes de codes suivantes : Private Sub Form_Load() Dim i As Integer ' Positionnement des différentes fenetres du tableau d'onglet For i = 0 To PictTabStrip.Count – 1 TabStrip1.Tabs(i + 1).Caption = "&Onglet " & i With PictTabStrip(i) .visible = False .Move TabStrip1.ClientLeft, TabStrip1.ClientTop, TabStrip1.ClientWidth, TabStrip1.ClientHeight End With Next i PicttabStrip(0).ZOrder 0 PictTabStrip(0).visible = True End Sub - Lancer le programme ! Normalement, la zone client du premier Onglet est recouverte par le contrôle PictureBox d’indice 0 (Verifiez au moyen de la couleur) - Essayer de comprendre le programme en utilisant l’aide (F1) ou l’enseignant (He… M’sieur j’comprend pas ! ! !) 9 9) ) Réagissons maintenant au clique d’un onglet en programmant la procédure d’événement TabStrip1_Click(). - Déclarer une variable globale dans le module de la fenêtre principale (en haut de la page de code de la fenêtre principale) 6 dim CurFrame as integer - Taper le code suivant dans la procédure d’événement click du contrôle TabStrip. (Double Cliquer sur le contrôle TabStrip) Private Sub TabStrip1_Click() Dim i As Integer ' Inutile de changer le cadre . , ' Sinon masque l'ancien cadre et affiche le nouveau. If TabStrip1.SelectedItem.Index = CurFrame Then Exit Sub For i = 1 To TabStrip1.Tabs.Count Picttabstrip(i - 1).Visible = False Next Picttabstrip(TabStrip1.SelectedItem.Index - 1).Visible = True ' Affecte la nouvelle valeur à CurFrame. CurFrame = TabStrip1.SelectedItem.Index End Sub - Lancer le programme et vérifier que chaque onglet fait apparaître un contrôle PictureBox différent dans la zone client du contrôle TabStrip (Les couleurs doivent changer pour chaque onglet). - Comprendre le programme 1 10 0) ) Nous allons maintenant insérer des contrôles dans les différents PictureBox et vérifier qu’ils apparaissent bien avec le PictureBox conteneur quand l’onglet correspondant est sélectionné. - Retrouver le PictureBox d’indice 3 et insérer à l’intérieur un contrôle TextEdit (Pour cela sélectionner le PictureBox d’indice 3 et cliquer sur le TextBox de la boîte à outil, Dessiner le TextBox dans le PictureBox, celui-ci étant sélectionné). Le Contrôle TextBox doit appartenir au contrôle PictureBox d’indice 3. Pour vérifier cette appartenance, déplacer le contrôle TextBox et vous devez remarquer que son déplacement est limité à la zone client du contrôle PictureBox n°3. - Mettre la propriété Text du TextBox à Chaîne vide - Insérer au début de la procédure Form_Load() la ligne suivante : - Text1.Text = Me.Caption - Insérer à la fin de la procédure Form_Load les lignes suivantes : - Text1.Left = 10 * Screen.TwipsPerPixelX - Text1.Width = Picttabstrip(3).Width - 20 * Screen.TwipsPerPixelX - Lancer le Programme et vérifier que le contrôle TextBox apparaît avec l’onglet correspondant avec une longueur légèrement inférieure à celle du TabStrip. - Ecrire la procédure d’événement du TextBox suivante Private Sub Text1_Change() Me.Caption = Text1.Text End Sub - Lancer le programme et modifier le contenu de la boîte d’édition de l’onglet 3. - Insérer maintenant un bouton au niveau du PictureBox de l’onglet 0. Réagir à ce bouton en affichant la boîte de dialogue de la sélection des couleurs. Affecter la couleur choisie au fond de la fenêtre principale. - Laisser votre imagination travailler pour mettre d’autres contrôles dans les autres PictureBox. 7 Exercice n°3 : : Exercice n°3 1) Le but de cet exercice est de créer un chronomètre en seconde/dixième/centième. Pour cela on utilise 3 contrôles ‘label’ label3, label2, label1 affectant respectivement les secondes, les dixièmes de seconde et les centièmes de seconde. La base de temps s’effectue au moyen d’un contrôle timer réglé à 10ms. Ecrire un programme permettant d’afficher l’évolution de ce chronomètre à l’écran. Conseils : Faire évoluer en testant en cascade les différents compteurs en partant bien entendu des centièmes de seconde. Ne pas s’inquiéter de la base de temps qui n’est pas respectée, c’est normal car Windows 98 uploads/Management/ t-dtp-visual-basic.pdf