VB用户控件制作讲解与实例.docVIP

制作用户控件，主要就是进行以下三项代码编写工作：1.定义控件的属性、事件和方法，其中属性是最常使用的。2.保存和读取中间用户设置的属性值。3.为达到你的预定目的而调用的各种技术手段。　　在用户控件中定义的属性、事件、方法，其性质都必须是公用的，也就是说，只有用 Public 来定义，这样你才能在主程序代码中使用这些事件和方法，以及设置或获取这些属性值，也只有公用的属性才会在窗体页面相关控件的属性窗口显示出来。一、属性　　属性是用户控件最基本的东东，用户控件可以没有事件，可以没有方法，但不能没有属性（当然，技术上来说是可以没有属性的，但这样的控件使中间用户无法进行任何设置，是没有什么意义的）。那么，如何定义用户控件的属性呢？为用户控件添加属性有两种办法：1.公用变量法：public 变量名称 as 类型 　　这里的变量名称就是属性名称。这样定义的属性一般不会保存属性值，所以常常用作只读属性，在笔者的用户控件中，用于对主程序返回一个必要的值。例如“四则运算”控件中的“ComputeAnswer”属性：Public ComputeAnswer As String　　它返回的是计算结果，而计算结果是不需要保存在控件中的，所以把它用公用变量法定义。再例如消息框控件中的 FeedValue 属性：Public FeedValue As Integer 返回值　　它返回最终用户选中的消息框按纽的编号，这个编号也只需要在主程序中处理，而无需保存在控件中，所以也用公用变量法定义成只读属性。2.property 过程法：public property Get 过程名称() as 类型……end property public property Let 过程名称(new值 as 类型) ……end property 　　这里的过程名称就是属性名称。　　而 property 过程法又有两种：一种是如上所述的标准过程法，另一种就是枚举法。　　㈠标准过程法　　这是用得最多的一种属性定义方法。在用户控件的代码页面选中“工具→添加过程”，会跳出一个对话框，然后在单选按纽中选择“属性”，再在“名称”栏中输入属性名，点击确定，VB 就会自动生成上述的几行代码，你将“类型”改为你所需要的，再输入相关代码即可。　　标准过程法中，Get 过程和 Let 过程一般是成对出现的。例如“闪烁标签”控件中定义闪烁时的前景颜色 FlickerForeColor 属性的代码：Public Property Get FlickerForeColor() As OLE_COLOR 闪烁时的文字色FlickerForeColor = mGlintForeColorEnd PropertyPublic Property Let FlickerForeColor(ByVal newColor As OLE_COLOR)mGlintForeColor = newColorPropertyChanged FlickerForeColorEnd Property　　这两段代码中的“OLE_COLOR”是颜色数据类型，实质上也是长整形的数据类型，但它会自动调出颜色对话框。“FlickerForeColor”是属性名称，在窗体界面相关控件的属性窗口中显示的就这个属性名称。而“mGlintForeColor”是中间变量，中间变量是私用的，用 Dim 定义即可。在用过程法定义属性时通常都需要中间变量。中间变量的身份是“代表”（代表属性名），作用有两个，一是上传下达，在 Get/Let 过程与 ReadProperties/WriteProperties 过程中充当“邮递员”；二是参与，在许多别的过程中都要与中间变量打交道。　　Get 过程的作用是获取相关的属性值，并将属性名称和属性值显示在属性窗口（如果你去掉这个过程，在属性窗口就不会出现相关的属性名称和属性值了）。它在三种情况下被激活：中间用户在窗体页面刚刚把焦点移到窗体上的控件时（例如点击该控件），在属性窗口显示出原先设置的属性值；中间用户在属性窗口修改了属性值，在属性窗口显示出修改后的属性值；程序运行中用代码获取属性值时，假设窗体代码有这么一句：RGB = Cipher.BackColor，那么也会激活该过程。　　Let 过程的作用是设置相关的属性值，它在两种情况下被激活：中间用户在属性窗口修改了控件的属性值（执行顺序是：Get 过程→Let 过程→Get 过程）；程序运行中用代码设置新的属性值时，例如：Cipher.BackColor = RGB。变量 NewValue 是被赋的新值（这个变量名是可以改变的），你可以把得到的 Ne