编写组件类的 sub new的问题

无名de旅人 2007-11-19 01:48:24

Public Class ColorPickComboBox
Inherits System.Windows.Forms.ComboBox


Public Sub New()
MyBase.New()
Call FormatComboBoxColorList()
Me.Refresh()
End Sub

Private Sub FormatComboBoxColorList()
Dim i As Integer
Dim iColor As System.Drawing.Color

Me.Items.Clear()

For i = 1 To 100
Me.Items.Add(Str(i))
Next
End Sub

End Class
也就是继承类来编写组件,我就是想在subnew 过程中,自动向ComboBox增加100个item
但是在FormatComboBoxColorList过程中Me.Items.Clear()语句的作用就是清空项目在加入
但是有个问题,如果在该过程中添加debug.print me.items.count 在运行的时候会弹出100,并且
是两次,但运行后item确有200个,也就是FormatComboBoxColorList过程运行两次,每次运行都提示
加入100个项目,但最后确有200个
...全文
55 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
knowledge_Is_Life 2008-05-01
  • 打赏
  • 举报
回复
不会,帮顶
meiZiNick 2008-05-01
  • 打赏
  • 举报
回复
我也想知道,正在找這方面的資料~~~~~
kxw102 2008-03-05
  • 打赏
  • 举报
回复
哈哈,我也帮你顶顶吧,好东东。。
无名de旅人 2007-11-30
  • 打赏
  • 举报
回复
自己顶一下,达人帮忙

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧