Boîte de dialogue pour choix de la police ?Résolu

Question

J'utilise Visual Basic 6.
J'étais sûr qu'un composant (une boîte de dialogue) permettant à l'utilisateur de choisir la police, mettre en gras, italique, etc existait déjà mais je ne le trouve nulle part. Ca serait pour l'intégrer à une rich textbox.
Quelqu'un pourrait-il m'aider à retrouver cette boîte de dialogue si elle existe réellement ?
Merci d'avance.

Gobillot · Accepted Answer

Microsoft Common Dialog Control 6.0  (SP3)

Private Sub cmdFont_Click()
  ' Set Cancel to True
  CommonDialog1.CancelError = True
  On Error GoTo Erreur
  ' Set the Flags property
  CommonDialog1.flags = cdlCFEffects Or cdlCFBoth
  ' Display the Font dialog box
  CommonDialog1.ShowFont
  Text1.Font.Name = CommonDialog1.FontName
  Text1.Font.Size = CommonDialog1.FontSize
  Text1.Font.Bold = CommonDialog1.FontBold
  Text1.Font.Italic = CommonDialog1.FontItalic
  Text1.Font.Underline = CommonDialog1.FontUnderline
  Text1.FontStrikethru = CommonDialog1.FontStrikethru
  Exit Sub
Erreur:
   If Err.Number = 32755 Then Exit Sub 'user pressed cancel
   MsgBox "Error # " & Err.Number & " - " & Err.Description
Exit Sub
End Sub

Daniel

addamsmercredi · Answer

Doublement merci Daniel : 
- le premier pour m'avoir permis de trouver le composant à ajouter Microsoft Common Dialog Control 6.0 (SP3) : c'est l'inconvénient lorsque l'on part de sources téléchargées avec des choses déjà cochées et qu'ensuite on part d'un nouveau projet 
- et le deuxième pour m'avoir évité de galérer avec l'erreur classique sur le fait que ça ne trouve aucune police d'installée.

MERCI

cs_DARKSIDIOUS · Answer

Atttention, sous Windows XP, cette boite de dialogue a un problème : elle ne reconnait pas les polices installées !

Je te conseille alors d'utiliser ma source nommée form police 1.0
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

addamsmercredi · Answer

Exact mais pour que ça reconnaisse les polices installées, il suffit d'ajouter la ligne 
CommonDialog1.flags = cdlCFEffects Or cdlCFBoth
comme indiqué dans le code de Daniel

cs_DARKSIDIOUS · Answer

Ah yes, excellent, je ne connaissait pas ces flags, merci beaucoup !
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Boîte de dialogue pour choix de la police ?

5 réponses

Discussions similaires