Fonts Problem

[RAKESHTATI]

hai,

i am using commondialog controls in vb 6.0 when i am using showfont i am not getting that dialog box instead it was displaying that "fonts are not installed in ur system go and install from control panel", what to do
urgent reply needed

[DigiRev]

Before you use the ShowFont method, you must set the Flags property of the CommonDialog control to one of three constants or values: cdlCFBoth or &H3, cdlCFPrinterFonts or &H2, or cdlCFScreenFonts or &H1. If you don't set Flags, a message box is displayed advising you that "There are no fonts installed," and a run-time error occurs.

http://www.personal.kent.edu/~gthoma...f/cdl/cdl.html

[RobDog888]

You need to set the flag for what type of fonts to display.

Option Explicit
 
Private Sub Command1_Click()
    CommonDialog1.Flags = cdlCFBoth
    CommonDialog1.ShowFont
End Sub