<<< 返回 access911.net 编程静态资料库索引页

如何列举出系统中所有字体?

 

作者:MS  摘自:www.mvps.org  录入:cg1  时间:2004-9-8  浏览人次:802


专题地址:http://access911.net/fixhtm/72FAB21E17DCE7F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何列举出系统中所有字体?

 


问题:

如何列举出系统中所有字体?

 


回答:

请参考帮助中有关 “AddressOf 运算符” 的示例

Private Sub Command2_Click()
    '在窗体上建立一个列表控件,并且命名为 LIST0 ,更改行来源类型为值列表
    '再加一个命令控件在控件的单击事件里面写下列代码

    FillListWithFonts LIST0
End Sub

Private Sub Command2_Click()
    '在窗体上建立一个命令按钮控件,
    '在控件的单击事件里面写下列代码

    strAllFont = ""
    FillListWithFontsCG ActiveControl
    Debug.Print strAllFont
    'strAllFont 中就列举出系统安装的所有字体
End Sub

'新建一个模块,将下列代码 COPY 进去
Public strAllFont As String
Private Cons.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB21E17DCE7F3.htm

 


上一篇:新手来看:如何更改文件名?

下一篇:如何调用系统中的选择字体公共对话框

2017年2月22日生成静态资料