以下這段程式，如何只載入TRUETYPE字型呢？
With Combo1 '載入字型
For intcount = 0 To Screen.FontCount - 1
.AddItem Screen.Fonts(intcount)
Next
End With
With Combo1 '載入字型
For intcount = 0 To Screen.FontCount - 1
.AddItem Screen.Fonts(intcount)
Next
End With
請先 登入 以發表留言。