以下這段程式,如何只載入TRUETYPE字型呢?
With Combo1 '載入字型
For intcount = 0 To Screen.FontCount - 1
  .AddItem Screen.Fonts(intcount)
  Next
End With
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()