vb 程序设计程序中 screen.font 用法
发布网友
发布时间：2023-05-17 12:17
共1个回答
热心网友
时间：2023-09-14 07:37
以下引自MSDN的说明:
Fonts 属性
返回当前显示器或活动打印机可用的所有字体名。
语法
object.Fonts(index)
Fonts 属性语法包含下面部分：
部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Index 介于 0 和 FontCount –1 之间的一个整型值。
说明
Fonts 属性和 FontCount 协同工作， FontCount 属性返回对象可用的字体名的数量。 Visual Basic 可用字体随系统配置、显示设备和打印设备的不同而不同。利用 Fonts 和 FontCount 属性可以获得有关屏幕或打印机可用字体的信息。
Fonts 属性示例
这个例子在 ListBox 控件中显示打印机字体的列表。要试用此例，先把代码粘贴到有名叫 List1 的 ListBox 控件的窗体的声明部分。然后按 F5 键运行该程序，再单击窗体。
Private Sub Form_Click ()
Dim I ' Declare variable.
For I = 0 To Printer.FontCount -1 ' 确定字体数.
List1.AddItem Printer.Fonts (I) ' 把每一种字体放进列表框.
Next I
End Sub
