*－* 我的一段代码怎么调试不对啊，谁帮忙看看啊 。。在Form_Load 过程中怎么向组合列表框中添加列表项，可以供用户选择啊？？ 急死了！

Question

在Form_Load 过程中怎么向组合列表框中添加列表项，可以供用户选择啊？？ 急死了！！我下面一段代码怎么调试不正确
                        Private Sub Form_Load()
                        Combo1.AddItem = "宋体"
                        Combo1.AddItem = "黑体"
                        Combo1.AddItem = "仿宋"
                        Combo1.AddItem = "楷书"
                        Combo1.AddItem = "行书"
                         End Sub
------------------------------------------------------------------------
                       Private Sub Combo1_Click()
                       Select Case Combo1.ListIndex
                      Case 0
                         Text1.FontName = "宋体"
                      Case 1
                         Text1.FontName = "黑体"
                      Case 2
                         Text1.FontName = "仿宋"
                      Case 3
                         Text1.FontName = "楷书"
                      Case 4
                         Text1.FontName = "行书"                      End Select                      End Sub

Answer 1

Private Sub Combo1_Click()
                         Text1.FontName = combo1.list(Combo1.ListIndex)
                       End Sub

Answer 2

Private Sub Form_Load()
                        Combo1.AddItem "宋体"
                        Combo1.AddItem "黑体"
                        Combo1.AddItem "仿宋_GB2312"
                        Combo1.AddItem "隶书"
                        Combo1.AddItem "新宋体"
End Sub                       Private Sub Combo1_Click()
                        Select Case Combo1.ListIndex
                      Case 0
                         Text1.FontName = "宋体"
                      Case 1
                         Text1.FontName = "黑体"
                      Case 2
                         Text1.FontName = "仿宋_GB2312"
                      Case 3
                         Text1.FontName = "隶书"
                      Case 4
                         Text1.FontName = "新宋体"                      End Select
                      End Sub

Answer 3

原因就是你的系统中没有一些字体
如仿宋，行书可以这样写简化代码
Private Sub Combo1_Click()
      Text1.FontName = combo1.list(Combo1.ListIndex)
End Sub

Answer 4

subzero:
       先谢谢了！ 我调试的时候问题是出自
                        Private Sub Form_Load()
                        Combo1.AddItem = "宋体"
                        Combo1.AddItem = "黑体"
                        Combo1.AddItem = "仿宋"
                        Combo1.AddItem = "楷书"
                        Combo1.AddItem = "行书"
                         End Sub
        说是参数不可选，我不知道那个地方错了 ，能看看代码错误在哪吗？

Answer 5

把等号去掉
combo1.additem "宋体"

Answer 6

Private Sub Form_Load()
                        Combo1.AddItem  "宋体"
                        Combo1.AddItem  "黑体"
                        Combo1.AddItem "仿宋"
                        Combo1.AddItem "楷书"
                        Combo1.AddItem  "行书"
                         End Sub