* SÉRIE 2 *

.
UTILISATION D'UN CONTRÔLE DIALOGUE COMMUN
(Tiré des fiches de Mme Claudette Bélanger)

Reprenez EX9xx.VBP. Commencez par activer le composant dont vous aurez besoin. Pour ce faire, allez dans le menu PROJET et sélectionnez COMPOSANTS. La fenętre ci-dessous s'ouvre. Assurez-vous que l'onglet Contrôles est bien celui actif et repérez l'option Microsoft Common Dialog Control 6.0 (SP3). Cochez cette option. Un nouveau contrôle apparaît dans la section qui leur est réservée.

Ajoutez sur le feuille un contrôle «Common dialog». Donnez les propriétés suivantes.

COMMON DIALOG: DL_Coul1

NAME	DL_Coul1
FLAGS	&H1&

Allez dans la fenętre de création de menu: le menu apparaît. Placez la surbrillance sur &Crayon et choisissez INSÉRER. Donnez au nouveau choix le Caption &Boîte de couleurs et le nom MN_Bte. Fermez la fenętre de création de menu.
Allez dans le code de MN_Bte et écrivez le code suivant.

Sub mn_bte_click()
      DL_coul1.cancelError=true
      On error GoTo ErrHandler
      DL_coul1.Flags=&H1&
      DL_coul1.Action=3
      v_couleur=DL_coul1.Color
ErrHandler :
      Exit Sub
End Sub

Testez votre application.
Ajoutez dans le code de MN_Bte deux commentaires pertinents.
Sauvegardez le fichier sous E9BF1xx.FRM et le projet sous EX9Bxx.VBP.

Design by
LOGOSLAND CREATIONS