选择电脑已安装的字体

Question

我想实现选择电脑已安装字体选择的功能,比如,单击下拉列表框选择任何一个电脑已有的字体,这样在文本框打入的文字的字体就是下拉列表框所选的字体,应该如何实现?谢谢

Answer 1

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

Answer 2

呵,没看后面你在点击Combo1后,然后再设置TextBox的FontName为Combo1.Text就可以了

Answer 3

还有一种方法   Dim i As Integer
   For i = 0 To Screen.FontCount - 1
      Combo1.AddItem Screen.Fonts(i)
   Next i

Answer 4

贴错了，是这样的   Dim i As Integer
   For i = 0 To Printer.FontCount - 1
      Combo1.AddItem Printer.Fonts(i)
   Next i

Answer 5

我是在Combo1的单击事件输入代码了,但是运行后单击  Combo1还是没有弹出字体列表,第一次使用,不知道如何实现

Answer 6

1楼的代码加在 Form_Load() 事件中。