会写vb6.0的帮忙写下、、谢谢啦~~输入并完成下列程序设计、、

显示全部楼层 · 2011-10-30 14:58:23

Dim Fonts,'----Form1_LoadFonts = Split("黑体宋体隶书幼圆")For I = LCase(Fonts) To Ucase(Fonts)Combo1.Additem Fonts(I)End If'----Combo1_ChangeText1.FontName = Combo1.Text或Text1.FontName = Fonts(Combo1.ListCount)'----Hscroll1_ChangeLaber1.Caption = "字体大小:" & Hscroll1.ValueText1.FontSize = Hscroll1.value...

千问 · 2011-10-30 14:58:23

private sub from1_load()combo1.additem"黑体"combo1.additem"宋书"combo1.additem"隶书"combo1.additem"幼圆"end subprivate sub text1_change()text1.fontname=comand1.texttext1.fo...