Question

vb做一个组合框，能使得text1里的字，变成宋体，隶书，拜托拜托急用

Private Sub optfontname_Change()
Dim index As Integr
optfontname.AddItem "宋体"
optfontname.AddItem "隶书"
optfontname.AddItem "幼圆"
Text1.FontName = optfontname(index).Caption
我把combo1改名成 optfontname
拜托告诉我哪里错了，急用
如果错到不能改，拜托帮我重做，在线等

Answer 1

Text1.FontName = optfontname(index).Caption
这行代码改成Text1.FontName = optfontname.text

 还有，你的思路有问题。

optfontname.AddItem "宋体"
optfontname.AddItem "隶书"
optfontname.AddItem "幼圆"

这三行代码应该放到窗体加载事件或者初始化事件中，或者optfontname_click()事件中

追问

拜托，拜托，写详细点，帮我重写好不好，

追答

Option Explicit

Private Sub Form_Load()
    optfontname.Clear
    optfontname.AddItem "宋体"
    optfontname.AddItem "隶书"
    optfontname.AddItem "幼圆"
End Sub

Private Sub optfontname_Click()
    Text1.FontName = optfontname.Text
End Sub

追问

用不了，

大哥你不要抛弃我呀

追答

Private Sub optfontname_Click()
    Text1.FontName = optfontname.Text
End Sub

看清楚事件名称

追问

好感动，终于好了，谢谢