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

动态加入控件到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
---- 运行程序并点击按钮,程序就会在表单中增加新的按钮。
2013年Java继续火的五大理由 Rails所有版本都有SQL注入漏洞?其实没那么严重 如何设置Windows Server 2012 NTFS权限 智能手机大局已定 HTC难扭转乾坤? 比谷歌手表更酷!基于大数据分析的睡衣 众投资金:改变了移动游戏开发的一切一切 这些科技产品和革新或在今年“横空出世”?! 现代Objective-C七宗罪 Google工程总监Ray Kurzweil意欲打造“虚拟朋友” 惠普开源JavaScript框架Enyo更新:支持桌面和移动平台 分析:三星或将成为科技行业第五巨头 是真的 诺基亚真有可能推Android手机 如何打造IE10的指尖触碰式用户体验 SUSE全球OEM联盟总监:为何SAP HANA只选择SUSE? 推荐2013年最佳PHP开发框架 Patrick Wyatt:代码没问题 程序却有bug? NoSQL的可靠性及扩展操作 最新Skype加密技术:“无声”通话能躲过FBI监听 谷歌锁死SDK,能阻止Android碎片化吗? KitCam团队专访:为应用做加法也能雄踞榜首 谷歌哭了:Replicant 4.0 SDK发布搅乱大局 忍者神龟与禅宗启示:如何突破移动广告困境 Linux会是更好的游戏平台?暴雪是这么认为的! 新型恶意软件瞄准Java服务器 AWS被纳为“战略物资”市值或可达到300亿美元? 十张图带你入门Map/Reduce 低端Android野心,Intel发布Atom Z2420处理器 淘宝网的技术发展史(一)——个人网站时代 看Pinterest如何通过架构变化将EC2成本降低了62% 内容vs渠道:法国电信商Free叫板Google 让网站成为应用:Firefox OS掀起革命风潮 有那位大侠知道虚拟光驱是怎么实现的,主要是怎么弄到文件系统里面去 用CSocket编写一个服务端的FTP程序,有一些疑问,请指教! 请问当DBGrid可多选时,哪条记录是数据集的当前记录?另外如何实现shift+点击的那种形式的多选? 调试错误! 在VB中如何实现对一个Access库中的表进行改名?? DLL的内存问题! 如何向数据库里写一不定长的数组数据,比如说float数组,相应的表结构怎样设计? 江湖无赖,为什么你攻击别人要借着恶人谷的名头?为什么要说我们是马甲谷?! 如何在上载文件时指定默认文件名? 网页高手请进,高分等候! 怎样设计像vc6的IDE中workspace那样的child子窗口 为什么这里的Timage.fillrect不起作用? 画图区域并没有增大? 急等答案 ,请问数据库中 的Null和零值有什么区别,请给详细解释一下 w18ily是不是现在的这个江湖无赖? 在linux下拨号怎么自动获得dns? 菜鸟都说:这个问题太菜了! 高手请进! delphi调用VC写的dll问题 corba达人快来帮忙!!!!! 不用JavaMail能在页面上直接发信给用户吗? 图像 up有分 大哥大姐们!小弟碰见了感情问题,大家帮帮小弟好吗,郁闷中……痛苦中……这里真的有一种家的温馨,所以小弟畅谈心扉,望大哥大姐帮忙! vc6的mfc里有CUIntArray、CStringArray,为什么没有CFloatArray,自己写怎样实现? 请问fastreport破解版哪里有下载? 这是我作的jsp和bean作的程序为什么不能运行:这一次发的是运行错误的信息。 谁敢拍着自己胸口摸着良心说没有用过马甲的 麻烦了:) 如何建立一个button清空文本框? 关于在RedHat2.1As上安装Oracle9i(9.0.1)的错误问题,帮帮我吧,火烧眉毛了! 急等答案 ,请问数据库中 的Null和零值有什么区别,请给详细解释一下 用FLASHGET无法下载. 趁着各位斑竹到任,赶紧把几个悬而未决的问题提出来,呵呵! com+的调用方式 哪位大侠知道今年计算机等级考试二级C语言还是用Turbo C2。0吗?还是在Dos环境下吗?(100相赠) 关于多媒体定时器的问题,各位进来看看 session出的问题,高手请进来!! 请问,大连雅奇培训如何?请指点。。。。。。 怎样用header()做下载文件? 关于检测组合键的程序怎样写? 菜鸟问题!!!页面显示后台数据 请问软件包LEDA -- library of the data types and algorithms 哪里有下载的? 如何获得当前页面中的所有Textbox控件集合? 如何对两个表操作???谢谢! java的程序在写Dreamweaver 4里写完不可以直接用,是不是 打印的问题 DELPHI5的资源编辑器用起来很不爽,有没有好点的? 帮帮忙~~~~ 请问软件包LEDA 哪里有下载的?谢谢 ado连接远程数据库是以文件共享方式,还是c/s方式啊? 有没有工作的JAVA程序员吗? 简单的语法问题 vb还是不太会用 求教 一亩地牧草养多少头牛 我想养50只羊.牧草需要种多少亩?大概投资多少?养的是黑山羊 表面被部分氧化成过氧化钠的一小块钠,质量为2.48g.放入足量水中,收集所产生的气体,点燃该气体,气体恰好完全反映,则原钠块中含过氧化钠多少g? 养一头牛是要多少亩牧草 适当吸收二氧化硫对身体有没有好处? ---Why?where's my mobile phone?Maybe I left it on the plane.---My goodness!You____things behind.A.haven't B.didn't leaveC.had never leftD.never leave我错选为A 一亩牧草可以养多少头牛 所谓“上弦月”和“上玄月”有区别么?以前一直以为两个词都是一个意思啊可我搜索了一下上弦月的英文都是 “The moon at the first quarter”和“ First quarter moon”上玄月的是 “On ninth lunar month 一个苹果 小时候我们在乡下生活,说起来很苦,很累.那时候,我们最爱吃的是苹果.可能是苹果太贵的缘故一个苹果小时候我们在乡下生活,说起来很苦,很累。那时候,我们最爱吃的是苹果。 蚂蚁会不会摔死?比如说我把一只蚂蚁从14楼弹下去它会摔死么? 下列关于溶液的说法,正确的是A溶液都是无色透明的混合物 B稀溶液一定是不饱和溶液 C溶质溶解度都随温度的升高而增大D溶质以分子或离子的形式均匀分散在溶剂中 订面条 ___ ____ ____ for noodles 养十头牛需要多少亩种植牧草 18.下列关于溶液的说法正确的是 A.某温度下两种不同物质的溶液,溶质18.下列关于溶液的说法正确的是A.某温度下两种不同物质的溶液,溶质质量分数相同,则这两种物质的溶解度一定相同B. 用什么词来形容面条无 有氧呼吸和无氧呼吸的区别 懂得珍惜幸福的作文!要真实! 1、Hurry up,please.There is only ______ time left.A.a little B.little C.a few D.few2、______ Chinese people are ______ hardworking people.A./,/ B.a,/ C.The ,the D.the ,a 用换元积分求以下积分∫e^x√(e^x-1)/(e^x+3)dx 有氧呼吸和无氧呼吸的区别是啥子 对“诚信”的看法与理解的短文应什么写?本人小学生一枚,没有写过对某些东西的看法与理解,老师也没有讲过,不懂写.主要想问一下应怎么写?从哪些方面写?怎么写得好?应注意什么? 科学课让我们用报纸做桥,怎样承重力最大?要求使用 像杭州日报那样大的报纸!报纸!可以用少量胶带纸 但是要架空的!旁边会放两本书 跨度要25cm 宽度要10cm我的设想是 做成凹槽形,中间像瓦楞 蚂蚁会摔死吗要多高才会摔死 假如在真空中呢? 中药丸用塑装气泡包装好还是蜡包裹塑料壳密封.哪个成本高?同仁堂的中药丸是用蜡包裹.其他的有塑装 怎样用报纸做桥?(参加比赛的 承重力越多越好) 蚂蚁是否会被摔死? 如果你创作了一首歌曲,而且已经被很多知道所知道了,只差一个平台播出,那么你会怎么样做下一步? 已知a>b,c=d,试比较ac和bd的大小. 世界上有摔死的蚂蚁吗?蚂蚁可以摔死吗 有谁知道我的理想作文呀! 已知a>b>0,c>d>0,比较大小:√(ac)-√(bd)与√(a-b)(c-d)谢谢! 为什么蚂蚁不会在楼上摔死 有人知道一些对写作有用的外国名言么?我想要中文的,后面最好带上说的人哦~ 已知a>b,c=d,比较ac和bd的大小 蚂蚁能被摔死吗?如题~把蚂蚁从很高的地方摔下来,假设它不被大风吹死,那么它会不会被摔死呢? 人不能分泌纤维素酶 是怎么消化植物的啊?同问 a>b>0 ,c请说明原因。谢谢 我的一个同学把他的密码前三位数告诉了我后三位是3个字母.我想问一下谁能用26个字母分别组成每三个一组的并且不重复.如:ABC ABD ABE BAC BAD DAE Goods must be fit for any particular purpose _____________ to the seller.If the shop says a glue can mend china then it should.a.known b.to be known c.being known d.having been known 以知a>b>0,c>0,c>d,则ac与bd的大小关系是 给一本185页的书编码,共用去数字多少个?其中数字二用了多少次,含有2数字的页码有多少个?2.给一本书编码,一共用了732个数字,这本书有几页? 1,若圆(x-3)^2+(y+5)^2=r^2上有且只有两个点到直线4x-3y=2的距离等于1,则半径r的取值范围是()A(4,6)B(4,5】C(4,7)D【4,6】2,若过定点M(-1,0)且斜率为k的直线与圆x^2+4x+y^2-5=0在第一象限内的部分有 黑洞够能吸收空间么? 能给我6位数到16位数可能出现的所有密码吗大恩大德永世难忘 真空收纳袋 几丝的好? 用一张纸做一架桥,看谁的桥的承重力最强.材料:A4纸一张、胶水剪刀等. 牧草匀速生长,可供10头羊吃20天,可供15头羊吃10天,可供25头羊吃?牧草匀速生长,可供10头羊吃20天,可供15头羊吃10天,可供25头羊吃答案是5天,怎么算的 几道英语选择题,要解题思路1、The story happened in______spring of______1993.A.The; the B.a; the C.the;/ D/;/ 2、Would you be______kind as to step this way,please?A.As B.so C.very D.much 3、 When he turned professional at the age of 12 液体溶液都是透明的吗?如果不是,请举出反例,如果是,请说明理由.当然这个问题不包括合金,空气等溶液晕...4L的同学,不要误人子弟好不好... 一头羊每年吃多少牧草 提问英语几道选择题与其解题思路1.My brother is only 20 years old, but he has___?A.a little white hair B.a few white hairsC.much white hairs D.some white hair2.Mary is always behind the others in study,but she is making__?A.progress 1、溶液都是透明的吗?2、溶液都是无色的吗?透明的定义是怎么下的? 摩托车撞小车,摩托车司机死了,小车司机要坐牢吗?小车司机在本车道上慢速行驶,(时速30公里左右),前方突然有一辆摩托车快速驶来,摩托车司机突然歪向小车就撞上了,后来摩托车司机因后 请问:蚂蚁从高楼层,比如说10楼掉下去, 蚂蚁为什么从很高的地方摔下来掉不死 波尔山羊一年四季吃什么牧草和饲料?请教前辈们春夏秋冬喂什么牧草?在什么时候种植下去? 1133.蚂蚁从二楼掉到地上,为什么?(非搞笑脑筋急转弯) 二十亩牧草能养多少头牛?我有二十亩天然牧草,准备在里面放养牛,但不知道放养多少头合适? 养殖100头肉羊,要种植多少牧草啊?什么牧草适合波尔山羊吃啊? 收集令人感动的句子最好令人深思 日议员向天皇塞信望其了解民间疾苦 或温家宝出书谈教育忆童年 部分通信首次观察:中国高层释楼市调控信号 长效机日本大规模夺岛军演科目敏感 专家:在香港立法会将讨论是否暂停对菲律宾人入爱,从头开始“给妈妈梳头”走进北京回台州今起发布县级空气质量指数 上网可签证利好出境游升温 百度知心搜索成\原吉林省常务副省长田学仁受贿1919浙江金华召开动员部署会 整治“中国式高考语文分值将增加 教师:传统文化如“裸奔”崭新宝马上高速 “驾照暂扣期“万家购物”网络传销案二审开庭 主犯杭州一快递员送货路上猝死 过度劳动付日本人气电子宠物菲比精灵 可用iPh德国反驳美国抨击 称顺差体现竞争力2013亚洲旅游节:探索亚洲旅游业发广西和泰国教育交流日趋密切日本今日起举行大规模“夺岛”演习 被澳大利亚两个月间39人遭遇隆胸假体破美澳等多国驻外使馆被曝精心伪装 监听5名中国商人遭尼日利亚驱逐 被控非法北京存在MERS输入风险 广东现首例温家宝5年4次访河北省兴隆县六道河中合肥宜佳超市欠供货商250万货款 多我国规划建设三个海洋能海上试验场今日电影清一色对子胡杠上花关三家 她一把打了沙磁大道通车 去磁器口玩将不再堵得慌重庆晨报重庆晨报皇马官方训练营 前10位报名者享10清一色对子胡杠上花关三家 她一把打了辣椒绿油油送祝福好险!黑暗城堡原标题:15名中国公民涉嫌“替考”遭原标题:全球福祉排名:挪威居首 中国我们种的瓜铅笔桶海底 世界
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘