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

动态加入控件到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
---- 运行程序并点击按钮,程序就会在表单中增加新的按钮。
AWS攻势变猛,Rackspace主动降价CDN与云存储 惠普将于下季度推出低功耗的Moonshot服务器 webOS复活!LG收购webOS用于智能电视 那些因为HTML5而将消亡的产品 初窥iWatch用户界面:开创基于时间的全新体验 如何编写出拥抱变化的代码? 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年云计算的九大威胁 如何让WinCE支持DVDROM 請問如何在ASP.NET中實現從客戶機上傳文件到服務器? 新手问:我声明api,但是参数里有我没有定义的类型,pb报错,怎么办 关于Tclientdataset中commandtext的问题 关于按扭的简单问题 调用ejb的错误,请帮忙看看,帮我顶顶也给分,谢谢 关于lei的配置问题 java中 ,换行为\r\n ,空格为什么呢???? 关于快速排序的问题?在线等待!!! 如何在网页上显示动态图表?(送100分) 高兴,散分,收集故事喽,多讲多得,不讲不得。请斑竹留情,不要删除。 一个文件上传的bean编译成功了,但不会使,哪位用过,请给出使用的源代码,或者其它能实现上传的也行,越简单越好并附说明的 我想在触发器中得到对当前表的SQL操作的内容,应该如何实现??v$sql视图中有相关的信息,如何提取?? 心情好好,散分,各位谈谈LINUX和UNIX的感受啊:) Can u help me? 在B/S下如何根据不同用户来相应的mail库 insert into 求解! 各位高手帮帮忙,关于存储过程的问题 请教:VFP6在表单1中,关闭表单1打开表单2。结果显示表单2后,表单1又显示了一下才关闭。怎样让表单1直接关闭呢?谢谢! 很简单的问题--可是我不懂如何用javascript实现弹出窗口(无菜单和工具条的) 请高手帮忙有关“邮件多播”的问题。 《Oracle Pro *C/C++设计》的下载 哪位有最简单的SERVLET的里子,包括添加,查询。。。 水园的人有没有搞过聚会啊? SOS,用脚本连接数据库问题,100分求助,请帮忙。 救救我!SOS!SOS! 请问谁有恩雅的Mp3下载地址吗? 提示wscript未定义?该如何改呢? 关于C#遍译可执行程序问题 请高手看看,这个问题很有意义!为了同时查询不同的数据库(在不同的服务器上),请问用ASP怎么样实现多线程查询不同的库? 我是初学者,在开发ejb中,请问update、add和delete 的操作 ,在session bean中直接写sql来updat、add、delete语句对库操作行吗?还是在e 请问如何编程实现将打印的内容控制在一页之内? 请问如何编程实现将打印的内容控制在一页之内? 微软专家来看:我的datagrid排序还不行,为什么??? ******请教,VC中重新排版源代码的功能按键怎么用???****** 请教MYSQL_RESULT()函数! 加密方法分析 我是初学者,在开发ejb中,请问update、add和delete 的操作 ,在session bean中直接写sql来updat、add、delete语句对库操作,还是在entiy 防伪编码排版 如何取的当前鼠标的X,Y值? Win2k的NETBIOS程序如何跟DOS下的纯netbios程序通信???十分紧急,谢谢 DBGrid的实时刷新 请问哪里还有好一点的VB论坛? 当你发现你所爱的人不是处女,你会怎么办? 控件的属性页怎么会没有事件按钮? @@@@@@@@@各位大哥 谁有进销存的软件代码 我急需 要多少分都给@@@@@@@@@ 在pb中如何得到联网的网速? jdk1.3能安装oracle8.17么?难道非要jdk1.18? 100分求助,菜鸟问题。在线给分 要在一个form里实现对image控件的拖拽怎么办? 加密算法分析 I can sing an Eglish song.(改为一般疑问句,并作肯定回答)Helen can play chess.(改为一般疑问句,并作肯定回答) I play the piano well.(用Amy代替I,改写句子) 什么时候月亮最圆 英语翻译 There's no other way than to say goodbye只是想知道这句话是什么意思. 每月的什么时候月亮最圆 英语翻译:美国的娱乐节目比较多,而且都很出名 sometimes there is no way out except to saygoodbye 初一文言文狼中第二段写的内容从表达方式上看属于什么,在全文中的作用是? 谁可以帮我用英语翻译下面这些单词(行为,概括,娱乐节目.象征) evenbody can sing the song 每个月哪一天月最圆?那位大侠懂的 帮忙算一下,春节之后的哪一天{就是正月},月亮最圆 也就是满月 英语翻译:我想通过娱乐节目获得一些有趣的信息. There is no other way than to say goodbye什么意思 初一下地15篇(狼)这篇文言文的文章*注释*问题, if he isn't suitable for the work,i don't think any other people can do it 改特殊疑问句if he isn't suitable for the work,___ ___ can do itshe has got full marks twice in english tests this term (对english 提问)___ ___ ___has she got full m 英语:look forward to doing =expect to do Adobe Illustrator ,这个英文怎么读?怎么读,我英文不太好. sometimes goodbye is the only way和sometimes say goodbye is the only way哪个是正确的,为什么? 石家庄有英语角吗?请给出具体地点、具体时间. Adobe英文怎么读 怎样提高英语口语和写作能力 illustrator这个单词怎么读? 月亮什么时候最圆? 怎样才能提高英语口语和写作能力? 英语作文:描述开学时你在忙什么?(现在进行时,70词) 几点的月亮最圆 怎样提高英语口语和写作能力啊. 苦思冥想造句200财富值 什么时候月亮圆 it(复数形式) 蒲松龄狼 必须要有每个句子的翻译,和每个句子里的字词翻译 月亮最圆的时间是多少?那个啥,就是最长的时间,嗯(小时)(天数 求高手帮助,关于快速提高英语口语及写作能力本人今年研究生毕业,英语四六级都是在大学期间就过了,研究生期间英语虽未扔掉,但缺乏系统学习,多是观看外文电影,老友记看过两遍了,觉得自 蒲松龄的《狼》一文中,发表议论的句子是? tonight 林峰 发音为什么歌词中唱成“TO NIGHT [tu:nait]” 应该是“[tə'nait] ” 狼三则其二以什么表达方式为主,揭示出什么,说明什么 告诫人们什么? 求一个现在进行时态的英语作文! It is the only way they can read sometimes.如果是,是什么从句? 月亮在什么时候最圆 it的复数 求tonight的罗马发音 东方神起的,tonight there ara nice people in front of Bruce and six behind him.How many people are there altogether有在布鲁斯和他身后的六个好相处的人,总共有多少人? it的复数形式 tonight i feel close to you中文读音整首歌的中文读音,英语初二开始就不听课了,之前的也忘了些.别说什么翻译之后不好听啥的.就想学这个.根本就不会读杂学.唱的一句比一句快.给出来之后再加100 There are four people in front of There was a car in foront of the house just now怎么改否定句,一般疑问和肯定和否定回答 Sometimes° goodBye is the oNly way~ There are four people in front of me,so I am the f 娓娓动听怎么造句 坚持写日记会提高你的写作能力 用英文说 There are 7 pupils in front of me and 4 pupils behind me .How many pupils are there on my line Was there a car in front the house just now?的肯定否定回答 it的复数形式是什么? it was found to be over thirteen feet long这里的to be 可以省略吗? They was a car in front of the house just now.的肯,否定句 怎么样快速提高英文科技写作能力啊? When it was eventually brought to shore,it was found to be over thirteen feet long.关于主句的时态it was found to be是不是应该改成it had been found to be么?过去的过去不是应该用过去完成时吗? There is noting left to say but goodbye “it”的复数形式是什么? So me times there is no way out exlept to say goodbye.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘