Common Dialog .ShowFont - "There Are No Font's Installed" Error?

[wpearsall]

---------------------------
Fonts
---------------------------
There are no fonts installed.
Open the Fonts folder from the Control Panel to install fonts.
---------------------------
OK
---------------------------

I get this error when i try to use the common dialog's show font function.

is it something i need to add to the flag's or something for it to make the common dialog's show font to work?

anyone wanna give a little helpin hand w./ ?

TNX

[Rocketdawg]

You just need to set the flags. I wrestled with this one for hours
not to long ago!

Private Sub Command1_Click()

With CommonDialog1
.Flags = cdlCFScreenFonts Or cdlCFForceFontExist Or cdlCFPrinterFonts
End With
CommonDialog1.ShowFont
End Sub

BTW There are only about 15(!) Flags you can set for showfont.
The other you might want is : cdlCFTTOnly. Shows only True
Type fonts.

[wpearsall]

where did u find the flags for the common dialog?

[i searched the msdn library, but it didnt return ne value's for the common dialog etc]

i no theres a post somewhere in this forum for the flag's, but i cant find that 1 either [god knows why :shrug:]

[Rocketdawg]

They're all listed in PROGRAMMING VISUAL BASIC 6.0 by
Francesco Balena. It's the only VB book I've got that doesn't
have dust on it.

If you're looking for other flags, let me know and I'll post them
for you.
RD

[wpearsall]

sure thing, post away

[dogsby]

They are in msdn too, search for flags property and it should come up

Dogsby