以下這段程式,如何只載入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
全站熱搜
留言列表