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

动态加入控件到VB控件数组中

HTML文档下载 WORD文档下载 PDF文档下载
动态加入控件到VB控件数组中
湖北省襄樊市劳动保险处
闫东
---- VB为我们提供了一种特殊的控件,就是控件数组。控件数组是共享控件名称、类型和事件的控件组,与可实现相同功能的多个控件相比,它们使用了更少的资源。有的时候,你或许会想在程序运行时动态的在控件数组中加入一个控件,如一个按钮。这时,你可以使用Load语句,语法如下: Load Object(Index)

---- 这里的Object 是指控件数组名称,Index是你想增加的控件的索引号。为了要在运行时刻动态加入一个控件到控件数组中,你必须保证控件数组中至少有一个控件(可以将控件的Index属性设为0)。需要注意的是VB仅仅允许一个控件数组中包含32767个控件。

---- 例如,假设在一个表单中有一个按钮控件数组名为cmdBtn。在它们的Click事件中,你将要加入新的按钮到表单中。打开一个新的工程并加入一个按钮到默认的表单中,设置按钮的Index属性为0。当你这样做了之后,VB就会将这个按钮转变成按钮数组。然后,加入下面的代码到程序中:

Private Sub cmdBtn_Click(Index As Integer)
Dim btn As CommandButton
Dim iIndex As Integer
iIndex = cmdBtn.Count
If iIndex <= 32767 Then
Load cmdBtn(iIndex)
Set btn = cmdBtn(iIndex)
With btn
.Top = cmdBtn(iIndex - 1).Top + 620
.Caption = "Command" & iIndex + 1
.Visible = True
End With
Set btn = Nothing
End If
End Sub
---- 运行程序并点击按钮,程序就会在表单中增加新的按钮。
X-Canvas:UC将发布高性能HTML5游戏引擎 淘宝:OceanBase分布式系统负载均衡案例分享 Cloud Foundry面临代码分支 策略为王股票软件VC源代码简介 StarCraft开发:用肮脏的技巧解决难题 忠于用户:美团1000亿的卫星与Groupon的窘境 360周鸿祎开放日回应质疑:都是做搜索惹的祸 轻量级的高性能Web框架:Play 为什么会失败?社交鼻祖Friendster的“验尸”报告 那些年Google公开的大数据领域论文 遍地撒网,重点培养,King.com颠覆性游戏商业模式 Adobe正式发布Photoshop Touch图像处理应用 2013年全球重要黑客大会一览 Gartner:2013年公有云将增长18.5%,达1310亿美元 开源炫彩界面库简介 一周消息树:我的十年编程自学之路 移动搜索状态:谷歌称雄 仍有较大发展空间 移动周报:我为什么弃用Objective-C而选择RubyMotion? 2月浏览器排行:IE高歌猛进 Chrome创17个月新低 Twitter创始人:最好的程序员大多是自学成才的 Evernote遭到攻击,5000万用户密码重置 VC++开源项目:P2P播放器AVPlayer NetIQ亚太区经理Ian Yip:移动社交工具崛起带来新机遇 快播CEO王欣:我不做内容,只钻技术! EMC中国凭什么说营收5年再增5倍? HTML5:或助三星Tizen 2.0逆袭主流移动OS 互联网巨头公司为何联合开发WebKit? 继Windows Blue:WP8升级或今年圣诞前到来 中国黑客部队攻击美国23家天然气公司 [CTO俱乐部第93期] 移动应用研发及位置在线平台架构分享 TeamToy——开源的团队高效协作工具 页面跳转求教!!! 用MFC做的一个ActiveX,怎么样打包成CAB? [求助]如何进行智能系统开发? 求教SQL语法问题 一个问题,快速给分,先到先给,在线等待 征友 关于状态对象与无状态对象 如何修改DW->Grid网格线的颜色 求助!在PB中用过WINSOCK的看过来。 如何让DBGrid只显示时间而不显示日期? xp操作系统安装SqlServer2000???? 哎,搞了快一天了,这个删除的东东还是搞不出来,各位HELP ME? apache2.0.47和tomacat4.1整合的一个问题,用mod_jk-2.0.42.dll 急需<<短消息网关设备规范1.2>>,接分 动态设定数据窗口的返回参数(仅有15分) 主题:各位老兄,dtmf码怎么识别? Help Me!(求救!) vmware4.0.2build5589下安装redhat9的问题,非常奇怪 [求助]如何进系智能系统开发? 公司内用代理可以web,我可以用这个代理上MSN吗? 弄个了BBS玩,希望大家能捧捧场 关于LINUX内核模块的按需卸载及安装 DataGrid又一模板问题? 如何把很多.java程序打包到一个.cab文件里? 我在sql里面见了一个DTS 我不知道在c#里面怎么写程序执行它 我写的一个粒子系统屏保,大家看看不?其中有些技术问题,希望和大家讨论讨论。 菜鸟初学问题,别人给我的SQL Scripts File如何执行 菜鸟提问:如何进入xp的安全模式????? 我们企业要上ERP,交通施工行业,请推荐一些企业上ERP方面好一点的文章,不同行业也行,一篇给50分,在线等,多多益善! 初级问题:使用CDO时的cdoSendUserReplyEmailAddress,cdoSendEmailAddress这两项怎么设置? 请教菜鸟问题,在线等待 高分:"MyGina.dll"哪位高手有这个文件,用于屏蔽CTRL+ALT+DELETE?? 急!用odbc操作access时,可以添加,但不可以删除.(表的列比较多140个) 推荐几本比较好的适合初学的汇编教材 寻找对手,乒乓球,围棋,台球,本人在深圳大冲 初学类,不太明白其中关于const的使用。 请教:如何看/etc/wtmp的內容,打开都是乱码 一个字符串数组的问题??? 请问要怎样才能跟踪一个不出现窗口的系统进程直到结束? 急,如果一个CWnd类不作派生,怎么在它的包容wnd中,截获其Windows消息??? 偶尔找不到硬盘 寻求对,围棋,乒乓球,台球,本人在深圳大冲 请教` 请问我要在邮局汇款单上打印.... 怎么样用语句把ACCESS数据库里的数据导入DATAGIRD 红色!!!!!你过来!我要和你打架!我是淡蓝色!~!!!! 有需要函数库的!superruntimerlibary包含258个函数。图标菜单。。。。。 WindowsMediaPlayer怎么用? 请问我下载的fastreport v2.5中的fr_class.pas怎么用,在哪里可找到fr v2.5的注册版? 初学者又问 dxImageEdit的问题(DevExpress) 绝缘电阻表有那些参数 500伏特的绝缘电阻表可以发电吗? 苏州话 “ 呶享逮一茨儿骚诹茵个莲嫒!” 这句话发音是这样的,字应该不是的, 新概念1的题, 新概念1的题, 晨露 液体清香剂 怎么打开我开到这种程度就打不开了 含楸字的成语还有解释123 如果停电了,我们会怎么样? 怎么写呀,哈 这几道怎么写哈 停电了,我们怎么办? 美报:安徽官员“悬浮照片”引嘲笑气味让居民受不了 泰国辣酱工厂加州遭日媒:西方低估中国“西进战略”重要性世行称斯里兰卡为南亚商业经营环境最好印度长途巴士车祸后爆炸 45名乘客被因特尔向Verizon移交了流媒体电一颗遥远行星堪称地球“兄弟”俄媒:学术腐败成中国科技进步拦路虎历史上最著名的五大间谍财政部:加强地方结余结转资金管理 加福布斯公布2013最有权力人物排行榜俄女子寒夜街头裸体骑摩托 引路人震惊沪指放量半日涨3.8%企稳3100点交通部:黄金周全国道路水路运送旅客6新华侨报:安倍政府鼓励年轻人务农还是八部委:汽车维修技术信息须无差别无延日本的书店正在消失?村上春树出新作力泰国男子名校毕业后垃圾车前叩谢父亲(杜兰特复出拿15分威少准三双 雷霆大洪秀柱讲取经故事 暗讽朱立伦安于现实联合早报:新安保法案通过后日本的舆论英媒:欧洲处于“混沌状态” 疲于应对圣猿录逐剑九天不羁之路传奇再起古武之心创邦零距离体验回到秦朝追美人网游之都市游戏生涯诸天神墓无限炼魔古武当山旅游龙南客家围屋旅游汾河二库旅游太原古街巷旅游和尚套旅游大午科幻乐园旅游保定大午温泉度假村旅游雨林谷旅游中华普洱茶博览苑旅游狩猎场旅游典当业展示馆旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘