说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请教更精练的代码

编辑:说三道四文库 发布时间:2018-07-18 05:13
HTML文档下载 WORD文档下载 PDF文档下载
我做了个小程序,里面用到了十个combobox控件,要在控件里填充60个数,我只会
For a = 1 To 60
Form2.Combo1.AddItem a
Next a
这样一个控件一个控件的填充,还有九个可不可以简单点,用for循环解决,可是我不会,谢谢
不然的话,我就只能
For a = 1 To 60
Form2.Combo1.AddItem a
Next a

For a = 1 To 60
Form2.Combo2.AddItem a
Next a

For a = 1 To 60
Form2.Combo3.AddItem a
Next a
........

For a = 1 To 60
Form2.Combo10.AddItem a
Next a
用控件数组,不要单个添加控件,添加一个Combo1后,再复制9个形成控件数组
for i=0 to 9
    For a = 1 To 60
        Form2.Combo(i).AddItem a
    Next a
next
dim a,b as integer
for a=1 to 60
 for b=1 to 10
  me.controls("combo" & b).additem a
 next b
next a
Private Sub Form_Load()

    Dim ctlEach As Control
    Dim I As Integer
    
    For Each ctlEach In Me.Controls
        If TypeOf ctlEach Is ComboBox Then
            For I = 1 To 60
                ctlEach.AddItem I
            Next
        End If
    Next
    
End Sub
sxs69() 的方法我试过,提示"未找到数据或数据成员"
 rappercn(rapper) 的me.comtrols 是什么意思,不懂!望详细告之,不胜感激
up
lihonggen0(李洪根,用.NET,标准答案来了) ,我用的是vb6.0,呵呵
使用combobox控件数组
我用控件数组试过啊,提示出错了,我也不知道什么原因
me.controls 
me代表当前form
me.controls代表当前form中的所有control(控件)集合
用数组怎么写代码啊,贴上来让我试试
用控件数组,先加载一个Combobox,复制,然后再粘贴选择“是”
sxs69() 的方法应该可以,你是不是没有创建控件数组?在窗体上先复制控件,建立控件数组就应该可以了。
to : tyjk(天涯) 

不知你试过我和 rappercn(rapper) 的代码没有?

你拷贝到你的程序中,看一下结果再说!


还有,我们几个人给你的回答都应该是可行的!
你们给我的签议我当然试了啊,不过老是提示出错,不知道为什么
等等,我再试试看
好了,行了,谢谢各位啊,散分,唉,后悔分贴少了点
dim a as interge
dim ba as interge
for a=1 to 60
for b=1 to 10
me.controls("combo" & b).additem a
next b
next
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘