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

hearth 2003-10-27 05:42:37

在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

...全文

33 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

lijinqiang 2003-10-27

打赏
举报

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

hearth 2003-10-27

打赏
举报

多谢！！多谢！！问题解决了！！
还有一点是如果我的系统中没有一些字体怎么能加上呢？

shaidanR 2003-10-27

打赏
举报

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

yoki 2003-10-27

打赏
举报

additem是方法，而不是属性

yoki 2003-10-27

打赏
举报

将 = 去掉

hearth 2003-10-27

打赏
举报

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

online 2003-10-27

打赏
举报

原因就是你的系统中没有一些字体
如仿宋，行书

可以这样写简化代码
Private Sub Combo1_Click()
Text1.FontName = combo1.list(Combo1.ListIndex)
End Sub

online 2003-10-27

打赏
举报

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