common dialog says i have no fonts installed 1

[MattNeeley]

I'm trying to use the Microsoft Common Dialog controls to change the fonts in a program from inside the program. But, whenever I call CD.ShowFont it tells me that there are no fonts installed on the system and errors out to my error trap. Systems are MS WinXP Pro. Any ideas?

 

[Swi]

You must set one if its flags prior to showing the dialog:

CommonDialog1.Flags = cdlCFScreenFonts
CommonDialog1.ShowFont

Here is a link:

http://www.officecomputertraining.com/vbtutorial/tutpages/page34.asp

Swi

 

[MattNeeley]

Thanks, Much appreciated.

 

[Swi]

No problem, glad to help.

Swi