快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

和记娱乐App_机器人论坛



用过Internet Explorer收藏夹的同伙都知道,使用鼠标单击时收藏夹会呈现,再次单击则收藏夹消掉。从编程角度讲,这是个在法度榜样运行阶段动态增减控件的问题。曩昔,这仅仅是C++之类编程说话的专利。如今,微软在Visual Basic6.0中也新增了这个功能,下面就此举例进行先容:

1.新建一个工程,窗体Form1为缺省窗体,Form1的属性项Caption=″动态增减控件的例子″。

2.加入两个敕令按钮(CommandButton),此中:

Command1的属性项Caption=″增添控件″;

Command2的属性项Caption=″删除控件″。

3.加入如下代码,运行该工程,单击″增添控件″则呈现新增按钮。若单击″新增按钮″时会呈现对话框,注解你触发的是动态增添控件的单击事故。

Option Explicit

′经由过程应用WithEvents关键字声明一个工具变量为新的敕令按钮

Private WithEvents 和记娱乐AppNewButton As CommandButton

′增添控件

Private Sub Command1_Click()

If NewButton Is Nothing Then

′增添新的按钮cmdNew

Set NewButton =Controls.Add(″VB.Command?Button″,″cmdNew″, Me)

′确定新增按钮cmdNew的位置

New和记娱乐AppButton.Move Command1.Left+Command1.Width+240, Command1.To和记娱乐Appp

NewButton.Caption =″新增的按钮″

NewButton.Visible = True

End If

End Sub

′删除控件(注:只能删除动态增添的控件)

Private Sub Command2和记娱乐App_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措施将掉败,由于必需的信息已经被和记娱乐App损掉。

您可能还会对下面的文章感兴趣: