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

动态加入控件到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
---- 运行程序并点击按钮,程序就会在表单中增加新的按钮。
如何将Wav文件做到EXE文件里-Delphi资料 如何将你的程序放在Windows启动中-Delphi资料 如何控制Ctrl+Alt+Del键-Delphi资料 如何控制壁纸-Delphi资料 如何控制关闭Windows-Delphi资料 如何屏蔽系统功能键-Delphi资料 如何取得Windows的临时文件目录?-Delphi资料 如何确保你的.exe文件仅运行一次!-Delphi资料 如何让 Windows 模拟按键-Delphi资料 如何让程式只执行一份?-Delphi资料 如何让程序只执行一次?-Delphi资料 如何删除一个控件的子控件-Delphi资料 如何识别显示器当前的分辨率-Delphi资料 如何为Delphi程序添加事件和事件处理器 如何写小执行程序-Delphi资料 如何隐藏桌面上的图标-Delphi资料 如何用API更改改计算机名字-Delphi资料 如何用Delphi映射网络驱动器? 如何在字符串截取中避免分割到半个汉字-Delphi资料 如何知道用户点击了窗口的最小化按钮?-Delphi资料 如何中断线程的执行-Delphi资料 如何终止一个线程-Delphi资料 如何转让控制权-Delphi资料 使用Delphi 4.0编写多线程 使用Delphi获取系列信息 使用DELPHI实现文本文件显示和声音同步播放 为系统菜单添加新菜单-Delphi资料 显示密码编辑框中的密码-Delphi资料 写小执行程序-Delphi资料 隐藏和显示Windows的任务条-Delphi资料 隐藏桌面上的图标-Delphi资料 Linux下iostream库的使用问题 有关CHARFORMAT的简单问题。 蓝天,怎么去掉不滚动区域分隔线?急,谢谢! 请问 DataGrid控件能否预先设置好行和列?? 请问 帮我看看报错信息 pb中有类似于指针可以读内存的东西吗? 请问哪位能找到Canon LBP-810的驱动程序? 急需java程序员和数据库管理员各2名 无法搞定的问题 马甲倒分 请教:起始与截止时间相同时的查找问题 如何得到用post提交的全部url??? 小妹初来此地,想和大家认识一下:) 如何禁止修改某一字段? 请问 怎么修改文本文件中的内容呢? 一些J2EE资料 如何将<div sytle="Z-INDEX: 100">的<div>元素<iframe>框之上? 每次重新启动WIN2000时无耍点击超级用户口令从而自动进入,默认为超级用户 动态生成数据表的问题! 高分求解一条智力问题 *.bpg文件怎么打開﹖ 怎样压缩Access数据库? 问一个打印的初级问题? 如何使用net send 在internet 上发消息, 如何设置让主板上的喇叭不发声? 关于字符集的一个问题 关于金山网镖的一点问题?/ 急: seseion 和httpsession有什么区别啊.?jsp内部对象和javax.servlet.http.*下面的类似对象有什么区别和相同点? 高分急救:急,急,急 数据定义问题 急:关于rich text小应用程序的问题,请高手指点!谢了! 女大学生的一天(转载) 200分问一个小问题, 在线等: JBuilder自带的ESite for weblogic部署出错... 请问 vb 怎么样让函数返回一个二维数组?能给你例子吗? 有人知道上海通方信息系统有限公司吗?我要去面式了?大家帮帮忙,做ejb程序员。 域问题 转分 介绍制作DLL专业书籍 有关image的函数问题 请教? TObject和integer之间的转换问题 数据库简单问题 文本文件的最后一行怎末去掉换行符,用程序实现。 善良的程序员,当心QQ骗子啊! 谁有Qamonitor,小弟急用! 不要笑偶 转分 有会打印对象编程的吗?printer对象怎样打印横线??怎样打印带风格的报表?? 表分区的数量有上限吗 五四爱国运动受到了哪一阶层的支持 “我宣你”的“宣”字是什麼意思? 陌生的陌是什么意思 宗教在人类生活中的作用是什么? 喧闹的宣字是什么意思 国共两党时隔60年后的第三次握手有什么意义? 宗教,人类是从哪里来的呢?1神创论2不可知论,3无神论,这几方面对人类的起源存在对立的观念哈,我们如何判断呢? 谁有用三句半来描述英语演讲比赛的稿子 国共两党第三次握手的意义是什么 举出宗教对人类生活产生影响的一个实例 老师上课的精彩片段,不少于150字 握手,握手的规则.如果一高层领导‘同性’在与你握手时,用小指抠你手心,用食指抠你手心表示什么意思.用大指姆间接压你虎囗表示什么意思. 国庆节哪里天气晴朗 Mary's car is red and blue.给Mary's提问 国共两党60年前的第二次握手取得什么成果? 作文;国庆的一天快7号中午就要就好在7号晚上之前给我 今天要为学校买篮球和排球共6个.一共210元,.篮球42元,排球28元,篮球和排球各买几个?用方程解 1945年国共两党握手时在什么时间、地点?那次握手取得了什么成果?这一成果最终命运如何? 数学命题答案是b.无法理解④为什么对.原命题跟否命题有关系吗 summer 英文www.tudou.com/programs/view/Ok7sYkEmGSw/ 请问这首歌是? 交通的定义是什么 铜器古物比铁器古物易保存与什么有关 今天要为学校买篮球和排球共六个,篮球42元,排球28元,一共花了210元,篮球和排球共买了几个?要方程,急 纤陌是什么意思 红色部分不懂 篮球: 42元 排球: 28元 “今天要为学校买篮球和排球共6个.” “一共210元.” 篮球和排篮球: 42元排球: 28元“今天要为学校买篮球和排球共6个.”“一共210元.”篮球和排球各买了几个?(数学题, 纤陌交通 下一句 艾青在我爱这土地以设问的方式进行了一个近镜头特写精华句子是?在泊秦淮中与山外纤陌交通 下一句 艾青在我爱这土地以设问的方式进行了一个近镜头特写精华句子是?在 滚的英文怎么读最好有音标的 我自己可以拼 가 유니中文是什么意思? 翻译(有良田美池桑竹之属,xian陌交通,鸡犬相闻) 生命形成的4个条件?同上 英语翻译 藕换偏旁组词 英语翻译سىزنى سېغىندىم汉语意思是什么? 写一个2012伦敦奥运会的精彩片段,今天就要,150至200字,快是描写一下场面,写一个场面,写好一点,要在明天念呢 五四运动有没有冲击北洋军阀的统治? 掩耳盗铃告诉我们……告诫人们………告诫什么?光自欺欺人? 一、篮球42元,排球28元,今天要为学校买篮球和排球共6个,一共210元,篮球和排球各买了几个? (2)a与b的差的c倍 巴黎公社革命爆发的原因是什么?注意是革命爆发的原因,不是失败的原因 八年级下册历史书上的重要事件的原因,影响,背景,结果和历史意义啊浙江八年级下人教版的 陌陌是什么意思啊 手镯上刻什么字好?我买了一对手镯,我和男友一人一个,他的那只刻什么字好呢?文艺一点,有深意一点,表明我永远爱他.想把我们俩的名字也刻进去. 图二,图三什么事件, A.B两数之和为154,A的6倍与B的2倍之差为340,求A.B两个数,麻烦朋友写下计算过程, 陌陌显示时间是什么 니가是什么意思 A,B两数的和是173,差是27,A,B两数分别是多少(A>B) 陌陌位置信息后面的时间什么意思 比如0.89km58分钟 这个58分钟具体指什么呢?陌陌位置信息后面的时间什么意思 比如0.89km58分钟 这个58分钟具体指什么呢? 伤年已陌是什么意思 陌要爱什么意思 你们相信地球上有外星人吗 陌陌是什么时候出来的聊天工具啊 还有, 相信有外星人来过地球吗? 请问这个铜器是什么年代的?请问价值几何?香炉底部写有“官”字样,不过我看着也像“宣”.请专家鉴定...香炉底部写有“官”字样,不过我看着也像“宣”.请专家鉴定. 巴黎公社的介绍 你相信 这个地球上 有外星人吗? 关于“巴黎公社” 再多过往 请逐字逐句解释.并说明出处. 12岁黑客入侵加拿大政府网站 辩称仅11年来最强风暴袭英国 海陆空交通大英首相:媒体爆料美监听丑闻是“资敌”美国在欧反导基地开建 防范伊朗导弹引美国会计划彻查全部情报监控项目中国海军“杀手锏”亮相引外媒关注欧洲多国遭强飓风袭击 已共致13人遇巴格达为当地孤儿举办联欢活动【组图】利比亚发生5000万美元劫案迈克尔杰克逊私人医生刑满出狱 欲再获阿根廷政府开始局部放松外汇管制外媒:中国重视周边外交令日美警惕美被曝监听西班牙电话6000万宗引发越南民众聚集政府大楼前抗议挖沙公司破韩江原道前方哨所一士官遭枪击身亡 或翘臀又嘟嘴 壮汉翻拍“性感照”遭吐槽印媒:印度调整中国战略因不喜欢给中国日本进入“胖女时代”或因对瘦人审美疲人民日报海外版:监听门让世界彻底放弃移动设备进入美国儿童生活 使用人数两猫鼬欲擒毒蛇当美食 毒蛇凌厉反击赢得法国第三艘FREMM护卫舰海试 将测叙利亚称打击极端组织需切断支持 批美日本火山喷发死者达12人 专家称意外印度总理莫迪将首次会晤奥巴马 曾被美乌克兰称民间武装袭击政府军 7人死亡乌鲁木齐一社区工作人员为老人演示如何伊拉克空袭阻止“伊斯兰国”攻势 局地安倍誓振地方经济被疑拉票 民众指其修苍南渔业省内首创“清港行动” 首拆“创富共荣资本高峰论坛在海南召开 专家西安“十一”车展 一大波靓丽车模来江苏仪征统战部副部长公车私用被通报温州党外人士组团考察养老模式温州检察机关开通案件信息公开网 检务“十一”临近 西安交警放弃休假全宁陵男子欠外债务两万 逼妻子用美色和长沙:男子遭假警察“逼供” 为脱身编美国安局自里根时代获授权 开展大规模日本学者要求撤回解禁集体自卫权内阁决乌鲁木齐26小向学生和家长道歉 食企美媒:印度总理莫迪在美巧妙推销 勾勒
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘