手把手教你用VB制作ActiveX控件 |
您所在的位置:网站首页 › vb中列表框控件怎么用 › 手把手教你用VB制作ActiveX控件 |
随着控件在可视化编程中地位地位提高,控件也成了编程中最重要的一部分。许多VB编程者也许苦于没有好看的控件,今天登高望远来教大家如何制作ActiveX控件。 一、新建工程 1.选择ActiveX控件 2.打开工程 我们会看到工程资源管理器中多了一个UserControl,这就相当于是应用程序中的Form。 下面来介绍UserControl的几个属性 UserControl的属性 BackStyle 决定 UserControl是否透明。1为不透明,0为透明。默认任1 ToolboxBitmap值为一个图片路径,是在VB工具栏上显示的图标,大小为16*15像素,支持bmp,jpgPublic决定此用户控件是否能够给其他程序使用,默认为Ture,及可以Height控件高度Width控件宽度下面来介绍UserControl的几个不同于Form的事件 UserControl的事件 Initialize控件的初始化事件,控件在设计时被放置到窗体上或运行时所在窗体Load或Unload时触发InitProperties创建对象新实例时触发Resize当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生Show用以显示 MDIForm 或 Form 对象Terminate通过设置所涉及对象的所有变量为 Nothing,Form、MDIForm、User 控件、Property Page Webclass、DHTML Page Designer或类的实例的所有引用都被从内存删除,或当对象的最后一个引用失去范围时发生。Paint在一个对象被移动或放大之后,或在一个覆盖该对象的控件被移开之后,该对象部分或全部暴露时,此事件发生。 下面,我们就可以开始制作我们的用户控件了! 二、添加用户事件 开始UserControl是只有四个基本的事件的,如GotFoucs。那么如何添加例如Click,MouseMove等常用事件呢? 其实很简单。 1.定义用户事件 Event 事件名称()'定义用户事件2.触发用户事件 RaiseEvent 事件名称'触发用户事件3.例子 Event Click()'设定单击事件 Private Sub UserControl1_Click() RaiseEvent Click'触发Click事件 End Sub这是最简单的例子,还可以通过时钟来设置事件的延迟响应和事件所产生的效果。 三、添加用户属性 属性也是用户控件中重要的一点,那么让我们来看看如何添加用户属性。 1.定义属性 Public Property Get 属性名称() As 数据类型 属性名称 = 现有对象.属性 End Property2.属性改变时刷新属性 Public Property Let 属性名称(ByVal New_属性名称 As 数据类型) 现有对象.属性 = New_属性名称 PropertyChanged "属性名称" End Property这只是最简单的刷新属性,还可以加入"If Then Else" 判断属性是否合法 3.例子 在UserControl1上放置一个Label1,设置一个Caption属性为Label1的Caption。 Public Property Get Caption() As String Caption = Label1.Caption'设定Caption属性 End Property Public Property Let Caption(ByVal New_Caption As String) Label1.Caption = New_Caption'刷新属性 PropertyChanged "Caption" End Property四、使用技能 1.如何快速添加属性 2.如何快速添加事件 (1)选择[工具]菜单,单击[添加过程]. (2)输入事件名称,选择类型为[事件]. (3)单击[确定],完成事件添加. 效果:
再见,本章完结。下面还将会有两篇博文介绍实例制作,欢迎访问我的博客:登高望远的博客
|
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |