通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1),代码如下。请填入适当的内容,将程序补充完整。 Private Sub Combo1_Cliek() TextFontName=ComboList(ComboListlndex) End Sub Private Sub Form_Load() With Combol Addltem'宋体' Addltem'隶书' Addltem'黑体' &8226;Addltem'楷体_GB2312'' &8226;Listlndex=0 End With Text1.【 】30 Textl. 【 】=Combol.List(0) End Sub