Question

vb窗体代码

点击combo1的内容，text1的字体能够变成相应的字体，应该如何写代码





Answer 1

先确认字体都是有的，那么：
Private Sub Combo1_Change() 'combo1字体改变时
Text1.FontName = Combo1.Text ‘text1的字体变成combo1显示的字体
End Sub