Discussion :

[Philippe085]

Bonjour,
Je débute en programmation avec VB 6. Mon système d'exploitation est XP Pro (SP 3).
J'ai un souci avec le contrôle Common Dialog, avec toutes les méthodes ( ShowColor, -Font, -Help, -Open, -Printer et -Save.
Lorsque je fais F5 ou Exécuter, seule la fenêtre Form1 apparait, sans boite de dialogue (ni message d'erreur).
J'ai affecté "cdbColor" à la propriété (Name), "Couleur d'arrière-plan" à la propriété DialogTitle et "2" à la propriété
Flags, dans la fenêtre Propriété.
J'ai tapé le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Private Sub mnuViewColor_Click()
   cdbColor.CancelError = True   'Un click sur Annuler éqivaut
                                 ' à une erreur.
   On Error GoTo dbErrHandler    ' Bascule vers l'étiquette en cas d'erreur.
   ' Définit la propriété Flags.
   cdbColor.Flags = cdlCCFullOpen + cdlCCHelpButton   ' Affichage complet.
Color DB
   ' Affiche la boite de dialogue Couleur.
   cdbColor.ShowColor
 
   ' Définit la couleur d'arrière-plan de la feuille
   ' selon le choix de l'utilisateur.
   frmTitle.ForeColor = cdbColor.Color
   Exit Sub   'Fin de la procédure normale.
dbErrHandler:
   ' L'utilisateur ayant cliqué sur Annuler,
   ' la procédure doit être ignorée.
   Exit Sub
End Sub

Merci de m'indiquer comment afficher la boite de dialogue appropriée.
Philippe085

[l_autodidacte]

Bonjour et BIENVENU sur DVP

Pour tester, place un CommandButton(appelé Command1) sur frmTitle et essaie avec ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
   cdbColor.CancelError = True   'Un click sur Annuler éqivaut
                                 ' à une erreur.
   On Error GoTo dbErrHandler    ' Bascule vers l'étiquette en cas d'erreur.
   ' Définit la propriété Flags.
   cdbColor.Flags = cdlCCFullOpen + cdlCCHelpButton   ' Affichage complet.
'Color DB
   ' Affiche la boite de dialogue Couleur.
   cdbColor.ShowColor
  Me.FontSize = 16
   ' Définit la couleur d'arrière-plan de la feuille
   ' selon le choix de l'utilisateur.
   frmTitle.ForeColor = cdbColor.Color
   Print "Texte à mettre en couleur"
   Exit Sub   'Fin de la procédure normale.
dbErrHandler:
   ' L'utilisateur ayant cliqué sur Annuler,
   ' la procédure doit être ignorée.
   Exit Sub
End Sub

Par contre je ne vois pas à quoi correspond Color DB

[Philippe085]

Bonjour,
J'ai essayé le code et placé le bouton de commande. La boite de dialogue "Couleur" apparaît, mais lorsque je choisi une couleur et clique sur "Ok", la boite de dialogue disparait mais la couleur choisie n'apparaît pas, ni aucun texte. Le bouton "Annuler" fonctionne normalement.
Comment se fait-il que la boite de dialogue "Couleur" apparaît avec [ Private Sub Command1_Click() ] et pas avec
[Private Sub mnuViewColor_Click() ] ?
Merci de me consacrer de votre temps,
Cordialement,

Philippe085

[ProgElecT]

Salut

Comment se fait-il que la boite de dialogue "Couleur" apparaît avec [ Private Sub Command1_Click() ] et pas avec
[Private Sub mnuViewColor_Click() ] ?

mnuViewColor doit être un objet menu ayant pour nom mnuViewColor a ajouter avec le bouton Créateur de menu dans l’éditeur VB.
Pour preuve, sur un Formulaire nommé frmTitle, 1 CommonDialog (Contrôle Microsoft CommonDialog 6.0 comdlg32.ocx ) nommé cdbColor, 1 CommandButton nommé CmdViewColor et 1 Menu nommé mnuViewColor et ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
Private Sub Form_Load()
frmTitle.Height = 3900: frmTitle.Width = 9765
CmdViewColor.Move 0, 0, 3375, 255
Me.FontSize = 16
Print 'pour laisser la place au bouton CmdViewColor
End Sub
 
Private Sub MnuViewColor_Click()
'declanchement avec le menu
ModifierCouleur "MnuViewColor"
End Sub
Private Sub CmdViewColor_Click()
'declanchement avec le CommandButton
ModifierCouleur "CmdViewColor"
End Sub
Private Sub ModifierCouleur(Declancheur As String)
    cdbColor.CancelError = True   'Un click sur Annuler éqivaut
                                 ' à une erreur.
    On Error GoTo dbErrHandler    ' Bascule vers l'étiquette en cas d'erreur.
    ' Définit la propriété Flags.
    cdbColor.Flags = cdlCCFullOpen + cdlCCRGBInit '+ cdlCCHelpButton    ' Affichage complet.
    cdbColor.Color = frmTitle.ForeColor 'preselection  de la couleur en cour
    ' Affiche la boite de dialogue Couleur.
    cdbColor.ShowColor
    ' Définit la couleur d'arrière-plan de la feuille selon le choix de l'utilisateur.
    frmTitle.ForeColor = cdbColor.Color
    If Declancheur = "MnuViewColor" Then
        Print "Texte à mettre en couleur ICI AVEC LA PROCEDURE MnuViewColor_Click"
    End If
    If Declancheur = "CmdViewColor" Then
        Print "Texte à mettre en couleur ICI AVEC LA PROCEDURE CmdViewColor_Click"
    End If
    Exit Sub   'Fin de la procédure normale.
dbErrHandler:
   ' L'utilisateur ayant cliqué sur Annuler,
   ' la procédure doit être ignorée.
   Exit Sub
End Sub