VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
当前位置:
主页 > 编程开发 > vb >
  • vb教程之用VB6实现动态增减控件

  • 2017-09-21 15:53 来源:未知
用过Internet Explorer收藏夹的朋友都知道,利用鼠标单击时收藏夹会出现,再次单击则收藏夹消失。从编程角度讲,这是个在程序运行阶段动态增减控件的问题。以前,这仅仅是C++之类编程语言的专利。如今,微软在Visual Basic6.0中也新增了这个功能,下面就此举例进行介绍:
  1.新建一个工程,窗体Form1为缺省窗体,Form1的属性项Caption=″动态增减控件的例子″。
  2.加入两个命令按钮(CommandButton),其中:
  Command1的属性项Caption=″增加控件″;
  Command2的属性项Caption=″删除控件″。
  3.加入如下代码,运行该工程,单击″增加控件″则出现新增按钮。若单击″新增按钮″时会出现对话框,表明你触发的是动态增加控件的单击事件。
  Option Explicit
  ′通过使用WithEvents关键字声明一个对象变量为新的命令按钮
  Private WithEvents NewButton As CommandButton
  ′增加控件
  Private Sub Command1_Click()
  If NewButton Is Nothing Then
  ′增加新的按钮cmdNew
  Set NewButton =Controls.Add(″VB.CommandButton″,″cmdNew″, Me)
  ′确定新增按钮cmdNew的位置
  NewButton.Move Command1.Left+Command1.Width+240, Command1.Top
  NewButton.Caption =″新增的按钮″
  NewButton.Visible = True
  End If
  End Sub
  ′删除控件(注:只能删除动态增加的控件)
  Private Sub Command2_Click()
  If NewButton Is Nothing Then
  Else
  Controls.Remove NewButton
  Set NewButton = Nothing
  End If
  End Sub
  ′新增控件的单击事件
  Private Sub NewButton_Click()
  MsgBox″您选中的是动态增加的按钮!″
  End Sub
  注意:如果你希望添加一个用户控件或任何ActiveX控件到您的窗体,必须把这个控件添加到“工具箱”,或者把控件的License关键字添加到Licenses集合中。而且,你不能选定“工程属性”对话框的“生成”选项卡上的“删除有关未使用的ActiveX控件”选项,否则controls.Add方法将失败,因为必需的信息已经被丢失。
相关教程
  • 北京市纪委监委通报:副局级干部55次坐头等舱被处分 2019-02-15
  • 十九大精神宣讲进民企 2019-02-15
  • 中国光大银行获第十二届人民企业社会责任奖年度扶贫奖 2019-01-30
  • 2018中国灯饰照明行业品牌论坛成功举办 2019-01-30
  • 你真是越活越转,越活越蠢。[哈哈] 2019-01-27
  • 互联网资产管理须持牌经营 2018-12-09
  • 新闻中心给记者留下美好记忆 2018-12-09
  • 险企偿付能力2017年“成绩单”:3家不达标 7家被关注 2018-12-07
  • 【学习时刻】清华大学周绍杰:坚定不移地贯彻落实新发展理念 2018-12-07
  • 建立市场经济,原本的计划经济哪里去?坚持集体的南街村没有到户就没有建立市场经济,是不是还在搞计划经济?看其实现公有资本在其所有者们进行分配应是计划经济。 2018-10-30
  • 市场经济就是一种唯利是图的经济,是一种波动、走极端的经济,新时期的发展方式与结果就是如 此。那么指望市场经济来解决需要与不平衡的矛盾,对症下药了吗? 2018-10-30
  • 比利时30大胜巴拿马 卢卡库梅开二度 强队总算没有都凉凉 2018-10-18
  • 新科欧洲状元 五盾军团能否延续法兰西之夏荣耀 2018-10-18
  • 河北一保时捷车主疑遭枪击 警方悬赏9万元通缉 2018-09-26
  • 【十九大·理论新视野】动漫:“社会主义现代化强国”如何建成 2018-09-26
  • 701| 880| 712| 53| 569| 661| 462| 210| 169| 300| 47| 575| 517| 904| 82|