谢谢各位朋友，又是一个更简单的问题？

Question

Private Sub Combo1_click()
Text1.FontName = Combo1.List(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
With Combo1
    .AddItem ("宋体")
    .AddItem ("楷体")
    .AddItem ("隶书")
    .AddItem ("华文中宋")
    .ListIndex = 0
End With
    Text1.FontSize = 30
    Text1.FontName = Combo1.List(0)
End Sub运行！text1中始终只显示字号，不显示字体，错误在哪里！

Answer 1

你要问什么？？
Text1.FontSize = 30
    Text1.FontName = Combo1.List(0)这里改面了你的字体  和  字号
Private Sub Combo1_click()
Text1.FontName = Combo1.List(Combo1.ListIndex)
End Sub
这里改面了你textbox内容的字体啊 

Answer 2

"楷体" "隶书"不是有效的FontName

Answer 3

先看看你的电脑里面有没有安装这几种字体
例如，我的机子里的楷体就叫“楷体_gb2312”，所以应该修改为：Private Sub Combo1_click()
Text1.FontName = Combo1.List(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
With Combo1
    .AddItem ("宋体")
    .AddItem ("楷体_gb2312")
    .AddItem ("隶书")
    .AddItem ("华文中宋")
   .ListIndex = 0
End With
    Text1.FontSize = 30
    Text1.FontName = Combo1.List(0)
End Sub测试通过。再进一步，应该读取系统已经安装了的所有字体填充进combo，这样就不会出错了

Answer 4

楼主是不是想把字体的效果在 Text1 中显示出来?那么应该最后加一句
Text1 = Combo1.List(0)

Answer 5

同意lsftest()你的程序别的没什么问题，就是FontName的值必须和系统提供的字体的名称相同才行，
建议你打开属性窗口的Font属性看看那里提供选择的字体名称是什么，然后和那些一样就Ok了。