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

请教更精练的代码

编辑:说三道四文库 发布时间:2017-11-21 03:09
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
20个优秀的前端框架 以AWS和vCloud为标杆看四大开源平台的定位 桌面集成开发环境五年内必将“死亡”? 助影人圆梦奥斯卡 8mm相机应用其实很平庸 苹果应用审查团队叫停Cookie追踪技术 时势造英雄:中国早期O2O创业故事 iOS开发与Android开发的四大不同 “消极抵抗”AWS OpsWork?RightScale首次宣布转售并支持GCE 2012年VC都把钱投给了哪些大数据初创公司? 耐用性将成苹果iWatch最大挑战 Sphinx:首款全硬件加速HTML5游戏引擎发布 PayPal创始人Levchin又创办了一家移动支付公司Affirm Zuck、Bill Gates、Jack Dorsey上银幕激励孩子编程 十款最新开源的开发者工具/应用(组图) Django 1.5发布,Python 3开始进入主流? [爆料]英特尔:将Hadoop“固化”到Xeon中 姗姗来迟:微软终于发布Windows 7 IE10正式版 谷歌推Google+登录系统 与Facebook争夺用户信息 微软在CodePlex上开源C++ REST SDK 代号Casablanca 论OpenAPI的起源与历史 LinkedIn开源低延时变化数据捕获系统Databus 微软发布全新WP应用 随时查看App崩溃信息 做iOS开发,我为什么弃用Objective-C而选择RubyMotion? Stinger Initiative:让Hive提速100倍 2013年云计算的九大威胁 W3C小组发起新“汽车与Web平台业务组”项目 苹果CEO:请忘掉股价 未来依然有伟大产品 两周营收100万,GO桌面在Google Play做对了什么 “吸金王”Puzzle &amp;amp; Dragons是如何炼成的 初创公司Kickboard:让父母了解孩子的在校表现 Rackspace收购开源数据库公司ObjectRocket 请教各位大侠广告系统应怎么运作和推广?100分。附系统说明 IE不能运行JavaScript\vbScript,怎么解决这个问题? sql server ce 数据库压缩问题 我要从光盘拷贝文件出来,还有怎么获得光盘的大小等参数,谢谢。 vi中编写c程序,如何让关键字显示不同颜色 这个错误是为什么? 关于日期(Date)的问题! linux下weblogic7.0连接oracle的问题:pool和Data Resource如何配置???好难呀!!!!!! 下面一段写入数据库的代码 为什么 老出错误 急!高分求救!如何加密? 请问一个关于OpenDialog1程序运行的问题? 庆祝!经过公平选拔公司聘我配置管理经理! 在客户端打开服务器上的Word,PDF等文件时能否限制客户端COPY,另存等功能 分 多了该怎么办呢?:-) DataGrid及水晶报表问题!请高手指点!! 成功安装了oracle8.17,接下来我该怎么配置呢? .net frameword 1.1 C#语言有什么变化? 如何运行一句动态组装的sql语句?? 怪问题!高分求助!!! "面试试题"急求解答。急!!!!!!急!!!! 个人所得税计税基数由原来的800元,修改现计税基数1200元,请修改? 关于权限 javascript中怎样去掉字符串中的空格 求购基于Html的全文检索(用于光盘发布的)相关技术(控件和接口资料) 大家碰到这种问题是怎么解决的??? 如何令窗体只加载一次!Dim aa As New Form2 aa.Show() 关于下载的问题!!!!!!!!非常急!!!!!!!!!!! DB2不能一次插入多条记录么?? 能将数字记钱方式转换为大写的方式? 我没有分了,可是我还有个问题 请问也SQL2000数据库Windows身份验证,SQL Server身份验证的问题?? 关于层的问题! delphi 高难度!有没有人搞得出! 讨论:CSDN该不该分两个区?(入门级与专业级) 各大版主请进 简单问题,在线等待,解决就结稿. 用DES算法算出的注册码怎么是乱字符? <<LINUX与UNIX_SHELL编程指南>>中不懂的问题 分 多了该怎么办呢?:-) 请问怎么读取.txt文件的第n行? 如何将一个象素点设置成某一种颜色(即绘制一个象素点). 如何使一中文网站系统,转成English版的系统呢? 将dbf文件中的一部分字段数据导入到db的一张表中[斑主帮忙] 在线游戏刷新问题,高手接招 关于关闭窗口的超级难题 请各位推荐一下用.net开发的OA产品或者公司 VB.NET问题 框架里如何得到地址栏上的地址?? KEIL C51的中断服务程序如何通过串口返回应答信息? OA中关于流程动态设定的设计问题,谢谢 那里有DB2下载啊? 菜鸟提问:为什么toolbar控件加到窗体上时,大小不能改变?我怎么设置宽和高都是原来样子的 对与错之间的定义到底是什么? 12月是什么季节 为什么秋天总是代表离别的季节?(要详细点介绍)秋天总是代表一个人很忧伤和离别的季节为什么呢?我听过有很多歌曲的离别主题都是写述秋天的,而且中国文人的悲秋情结 “自古逢秋悲寂寥 楼梯踏步上面三步与梁底之间有100*150的洞口如何处理?就是说楼梯踏步上面第三阶口出,剪力墙端,后面是梁.而梁不够高,导致有一阶留有100高*150宽的小洞口,如何处理?就是说楼梯踏步上面第三 月球——浪漫与困惑阅读题答案传说嫦娥奔月,住在广寒宫,人们看见月亮上忽明忽暗的阴影,就想象出一片鸟语花香的神仙世界.有常青不老的月桂树,有蹦蹦跳跳的玉兔.在西方也认为月中有美 学而时不思则罔的而是什么意思 11月份是什么季节 “学而不思则忙,思而不学则殆”出自? 人类有未来世界吗,如果人类有未来世界的话,那么难道现在的我们是过去的人,正在演绎过去发生过的事情.大家都有过这样一种感受,就是在某个时间段,看到了一个熟悉的片段,或者经历了了一 你决定彻底翻过这一页,但你是否需要弄明白过去究竟发生了什么事么? 提问者提一个问题到最后有很多不同答案的时候 会选择一个自己满意的答案那么也就是说 并不是完美的答案 也不是客观的答案 那一个人对自己的认知 也会如此吧 就是说 一个人只要认为自 美国北卡州狂欢活动发生意外事故 致5欧盟主席谈隐私 被称暗示美国搞监视是挪威拒绝美国请求 将不接收销毁叙利亚克里叹美政府关门损形象 他国外交官欲德一男子拒绝受审持枪劫持12名亲友终第二届全国茶艺职业技能竞赛在浙江武义吉尔吉斯斯坦:秋至伊塞克湖【高清组图粉丝自制任天堂智能手机惊现网络澳大利亚最老双胞胎长寿秘诀:不与坏男吉尔吉斯斯坦:探访美丽而濒危的猫科动日本茨城县一金属加工厂爆炸 两员工严实时监管服刑人员“催眠大师”能挣多少钱?去年邀请陪审员参审案件1206件遇红色预警,中小学停课抢地铁物业,你准备好了吗定向降准不属于货币政策全面放松,全面奉献也是享受 荣誉也是警示谁能将《百年孤独》拍成电影不读古诗词难入眠助市民“秒”过高速和性感统统拿下
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘