[VB6]列舉電腦已經安裝的字型

2010-05-27

[VB6]列舉電腦已經安裝的字型

一、問題描述

如何在 VB6 中讓 Combo 顯示目前電腦中所有可使用的字型 ?

二、方法

在 Visual Basic 6.0 中，可以使用 Screen.Fonts 集合以及 Screen.FontCount 屬性，列舉可用的螢幕字型。

三、程式撰寫

在表單上加入 Combo 控制項

撰寫程式碼

    Dim i As Integer
    For i = 1 To Screen.FontCount - 1
        Combo1.AddItem Screen.Fonts(i)
    Next i

四、執行結果

五、參考

小歐ou | 菜鳥自救會