Bonjour,
J'ai un pb avec cet ocx car je n'arrive pas à modifier la couleur du texte sélectionné par cet ActiveX.
J'arrive à modifier la police, la taille, mettre en barré, souligné, italique mais de changement de couleur.
Le flag que j'ai positionné est &H100 mais le retour de
RetourObj = objDialog.Color
msgbox RetourObj est vide pourquoi ?
NB : je suis en Windows NT
Bonjour,
J'ai un pb avec cet ocx car je n'arrive pas à modifier la couleur du texte sélectionné par cet ActiveX.
J'arrive à modifier la police, la taille, mettre en barré, souligné, italique mais de changement de couleur.
Le flag que j'ai positionné est &H100 mais le retour de
RetourObj = objDialog.Color
msgbox RetourObj est vide pourquoi ?
NB : je suis en Windows NT
pour afficher la boite de dialogue des couleur c'est "showcolor", autrement dit "commondialog1.showcolor".
Ensuite tu affecte la couleur que tu veux au texte en questions...
exemple de l'aide MSDN :
Code :
Private Sub Form_Paint ()
Static FlagFormPainted As Integer
' Première définition de la feuille
If FlagFormPainted <> True Then
For i = 1 To 5
Load Option1(i) ' Ajoute cinq boutons d'option au tableau.
Option1(i).Top = Option1(i - 1).Top + 350
Option1(i).Visible = True
Next i
Option1(0).Caption = "Ouvrir" ' Place une légende sur
Option1(1).Caption = "Enregistrer" ' chaque bouton d'option.
Option1(2).Caption = "Couleur"
Option1(3).Caption = "Police"
Option1(4).Caption = "Imprimer"
Option1(5).Caption = "Aide"
' Place une légende sur le bouton de commande
Command1.Caption = "Affiche dialogue"
FlagFormPainted = True ' Fin de la définition de la feuille.
End If
End Sub
Private Sub Command1_Click ()
If Option1(0).Value Then ' Si le bouton d'option Ouvrir
CommonDialog1.ShowOpen ' est sélectionné, affiche la
' boîte de dialogue commune Ouvrir.
ElseIf Option1(1).Value Then ' Ou affiche la boîte de dialogue
CommonDialog1.ShowSave ' commune Enregistrer.
ElseIf Option1(2).Value Then ' Ou affiche la boîte de dialogue
CommonDialog1.ShowColor ' commune Couleur.
ElseIf Option1(3).Value Then ' Ou la propriété Flags
CommonDialog1.Flags = cdlCFBoth ' doit prendre les valeurs
' cdlCFBoth, ' cdlCFPrinterFonts,
' ou cdlCFScreenFonts 'avant d'utiliser la méthode ShowFont.
CommonDialog1.ShowFont ' Affiche la boîte de
'dialogue commune Police.
ElseIf Option1(4).Value Then ' Ou affiche la boîte de dialogue
CommonDialog1.ShowPrinter ' commune Impression.
ElseIf Option1(5).Value Then ' Ou affiche la
CommonDialog1.HelpFile = "VB5.hlp"
CommonDialog1.HelpCommand = cdlHelpContents
CommonDialog1.ShowHelp ' rubrique Sommaire de l'aide Visual Basic.
End If
End Sub
Message édité par cvb le 29-04-2003 à 22:23:31
jenner
Posté le 30-04-2003 à 10:01:59
L'activeX comdlg32.ocx permet d'afficher une boite de dialogue de changement du style de la police en faisant un showfont et en positionnant le flag à &H100 (ou 256 en décimal).
Ce flag permet de faire apparaître dans cette boite de Dlg, les attributs souligné, barré et changement de couleur...
La modification souligné ou barré fonctionne mais pas le changement de couleur. En effet, le retour de RetourObj = objDialog.Color est vide.
