vb用户控件详解.pdf

VB6.0 用户控件的制作教程 本文摘自 /xiaowan774/blog/item/479d55d329f2bbdf572c84c7.html 如今 OCX 控件在编程中已占领了很重要的地位,我们可以利用 OCX 控件完 成一些相当复杂的编程操作.同时OCX 控件还有利于主程序的简单化、功能的重 用、隐常程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB5.0 方便的制作出自己的 OCX 控件供我们在编程中使用同时还可以把它送给你周围 喜欢编程的朋友! 下面列出制作 OCX 控件的步骤： 一：新建 OCX 打开 VB 5.0 选择新建工程在对话框中选择 ActiveX 控件，打开后会见 一空的文档这就是 OCX 控件的初始界面。想看一看空 OCX 控件的效果吗?选择 “添加工程”选中标准 EXE ，这时你就可以像调用其它控件一样在左边的工具栏里 选择刚才新建的 OCX 控件图标放在标准的 EXE 文档中看一看有什么效果!(什么 也没有!) 自然因为刚才的OCX 文档是空的嘛(废话太多，数个痰盂向我飞来)! 二：创建界面 一般我们用VB 创建 OCX 控件都是在我们的控件里添加其它的控件 来组合成一个完整的控件 （也可以让它只完成某种算法）比如：你可以在上面添 加一按钮、编辑框这时你再用第一部的方法看一看效果，是不是控件上多了一个 按钮和一个编辑框。 三：OCX 属性 一个 OCX 控件有许多的属性，比如控件背景是否透明 （BackStyle ）， 控件是否可以获得焦点 (CanGetFocus) 等。这些属性都可以在控件的“属性框” 中找到。 四：添加事件 一个控件有很多事件如：Click 、MouseDown 、MouseUp 、MouseMove 等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click() 事件名 （参数）。 五：用户属性 一个控件应有许多属性供用户设置如：控件的背景色、控件要显示的 图形等。它们通常用Property Get 和 Property Let 两条语句来完成。前者表示给 用户显示一个属性的值，后者表示用户设置一个属性的值。 六：保存属性和读取属性 当属性被用户更改后需要将该属性值保存，以便控件运行时读取更改 后的属性值。它们分别用 ReadProperty 和 WriteProperty 两种方法来完成。前者 表示读取一个属性值，后者表示写入一个属性值。 好了一个简单的 OCX 控件制作方法大概就需要以上几步就可完成。 下面本人将编写一个简单的 OCX 控件供大家参考。此控件的功能是在控件中显 示一个圆，当鼠标移到控件上的时候控件上的圆便会在鼠标不离开控件的前提下 跟随鼠标移动。 新建一OCX 控件，将控件的BorderStyle 属性改为 1，再加入一SHAPE 控件将其形状改为 Circle(如图二(map2.gif)) 添加以下代码： Public Event Click() 定义该控件要产生的事件 Dim CircleX As Integer, CircleY As Integer Private Sub UserControl_Click() RaiseEvent Click 触发 Click 事件 End Sub Private Sub UserControl_Initialize() CircleX = Shape1.Width / 2 CircleY = Shape1.Height / 2 End Sub Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.BackColor = RGB(0, 0, 255) End Sub