Fonts Common Dialog Box Help needed
Quote:
>I get the error that there are no installed fonts, when there are
>fonts installed. I have VB Enterprise Edition 4.0 32bit., here is my
>code:
>Let CMDialog1.Flags = 4
>Let CMDialog1.Action = 4
>Let ListRemind.FontName = CMDialog1.FontName
>Let ListRemind.FontBold = CMDialog1.FontBold
>Let ListRemind.FontItalic = CMDialog1.FontItalic
>Let ListRemind.FontSize = CMDialog1.FontSize
In case anyone else has had this problem, the solution is to use
values for the Flags that you get from the help file topic: fonts,
available, Flags Property (Fonts Dialog). Rather than use the value 4
as done above, you would choose from a nuber of values the one that
best suits your needs, ie: ascii fonts, TT fonts, etc.
My revised code:
Let CMDialog1.Flags = &H3&
Let CMDialog1.Action = 4
Let ListRemind.FontName = CMDialog1.FontName
Let ListRemind.FontBold = CMDialog1.FontBold
Let ListRemind.FontItalic = CMDialog1.FontItalic
Let ListRemind.FontSize = CMDialog1.FontSize
_____________________________
Shawn Smith
UNT
For free software:
Official:
http://people.unt.edu/~shawns
Mirror:
http://www.cs.unt.edu/home/ssmith
