Problem in CommonDialog Control

hi expert
when i user commondialog control to select font

Private Sub SelectFont_Click()
    CommonDialog1.ShowFont
End Sub

it gives this error

There are no font installed
open the fonts folder from the control panel to install fonts

any one has idea what to do in this situation
LVL 3
vsvbAsked:
Who is Participating?
 
gbzhhuCommented:
Put this line before CommonDialog1.ShowFont

CommonDialog1.Flags = cdlCFBoth
0
 
gbzhhuCommented:
You have to set flags before calling showfont


cdlCFScreenFonts, cdlCFPrinterFonts, cdlCFBoth
0
 
gbzhhuCommented:
Can I ask why I got grade B?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.