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

请教更精练的代码

编辑:说三道四文库 发布时间:2018-01-19 02:02
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
云适配CEO陈本峰:8年磨一剑 Splashtop企业应用:SplashApp让办公移动起来 时空旅行+内付费“植物大战僵尸2”下月18日全球同步发行! 中移动推网络电话Jego 后来者能否居上? 防止数据泄露:BYOD下的管理员5大妙招 运行时出错 vb中有没有将数组A复制给数组B的方法?在线等待! 不知道错误在哪呀急呀 请问考试中心的区别 为什么 win98 看不到 win2000的部份内容? 请高手帮忙:DataGrid的嵌套问题 c#中的数据库问题。谢谢 再见理想 帮忙看看下面的错误! solidworks装配体中创建了两个坐标系,坐标 soildworks 中 坐标系功能于什么不想关联 时间就是空间,空间就是时间?为什么爱因斯坦这么说? 爱因斯坦几点睡觉? 冷却镁蒸气 ,可用:空气,CO2,N2,氩气中的哪 (1+3+5+……+2009+2011)-(2+4 1+2+3+4+5+6.+2010+2011+20 solidworks2008中添加几何关系有什么作 几何问题如何添加辅助线有没有文稿啊? 土耳其买中国导弹为何一波三折“美丽中国”图片展走进科特迪瓦京津冀浙多条高速路段因大雾通行受阻今起浙江93、97号汽油每升便宜6分美售P3C首架飞机抵台 马英九称与日既懂医学又懂法学的调解员稀缺“重量级”聚首难得一遇“救人爷叔”成外滩名人76人找到新“答案”清爽相逐艳人生特级警察金刚法神踏上极巅密室脱逃西冲情人岛旅游花鸟灯塔旅游南湾海滨浴场旅游花鸟岛旅游方特欢乐世界蓝水星旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘