Question

vb练习题：设置一组合框，其中有四种字体类型，选择其中一种，文本框中的字体就随之改变

谢谢啊

Answer 1

//主要是这个
Private Sub Combo1_Click()
Text1.Font = Combo1.List(Combo1.ListIndex)
End Sub

//这段可做芹散以不用
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "宋体纯氏"
Combo1.AddItem "黑首虚体"
Combo1.AddItem "隶书"

End Sub