Question

VB 怎么让Text里文字的字型根据Combo1拉下来的选项而改变？

Answer 1

Private Sub Combo1_Change()
text1.FontName = Combo1.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "黑体"
End Sub

追问

还是不行..

追答

Private Sub Combo1_click()
Text1.FontName = Combo1.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "隶书"
End Sub