VB怎么调，WINDOWS系统里的字体例表

[本拉灯]

我也没分了，只能给这么多了，

比如我要用一下拉菜单调Windows里装的所有字体，到下拉菜单
要怎么做

用API，还是基他的，请各位帮忙

[干巴猴儿]

For i = 1 To Screen.FontCount
For j = 1 To cboSetFont.Count
cboSetFont(j - 1).AddItem Screen.Fonts(i - 1)
Next
Next
'Screen.Fonts是所有可显示的字体
Printer.Fonts是所有当前打印机支持的字体

[cindytsai]

http://search.csdn.net/Expert/topic/1044/1044645.xml?temp=.1712458

[本拉灯]

设置，一个Label控件的，字型是什么
比如Lable.Font.Name=“宋体”
Lable.Font.xxx=“加粗”??倾斜 <--这里的xxx是哪个charSet??

[tmd007]

FontBold = True 加粗

[tmd007]

FontItalic = True 倾斜

[tmd007]

FontUnderline = True 下划线
FontStrikethru = True 删除线

For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next

[kmzs]

可以把以@开头的过滤掉。