vb用户控件制作讲解与实例

1.定义控件的属性、事件和方法，其中属性是最常使用的。

2.保存和读取中间用户设置的属性值。

3.为达到你的预定目的而调用的各种技术手段。

在用户控件中定义的属性、事件、方法，其性质都必须是公用的，也就是说，只有用Public 来定义，这样你才能在主程序代码中使用这些事件和方法，以及设置或获取这些属性值，也只有公用的属性才会在窗体页面相关控件的属性窗口显示出来。

一、属性属性是用户控件最基本的东东，用户控件可以没有事件，可以没有方法，但不能没有属性（当然，技术上来说是可以没有属性的，但这样的控件使中间用户无法进行任何设置，是没有什么意义的）。

那么，如何定义用户控件的属性呢？为用户控件添加属性有两种办法：1.公用变量法：public 变量名称as 类型这里的变量名称就是属性名称。

这样定义的属性一般不会保存属性值，所以常常用作只读属性，在笔者的用户控件中，用于对主程序返回一个必要的值。

例如“四则运算”控件中的“ComputeAnswer”属性：Public ComputeAnswer As String它返回的是计算结果，而计算结果是不需要保存在控件中的，所以把它用公用变量法定义。

再例如消息框控件中的FeedValue 属性：Public FeedValue As Integer '返回值它返回最终用户选中的消息框按纽的编号，这个编号也只需要在主程序中处理，而无需保存在控件中，所以也用公用变量法定义成只读属性。

2.property 过程法：public property Get 过程名称() as 类型……end propertypublic 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 "FlickerForeColor"End Property这两段代码中的“OLE_COLOR”是颜色数据类型，实质上也是长整形的数据类型，但它会自动调出颜色对话框。

“FlickerForeColor”是属性名称，在窗体界面相关控件的属性窗口中显示的就这个属性名称。

而“mGlintForeColor”是中间变量，中间变量是私用的，用Dim 定义即可。

在用过程法定义属性时通常都需要中间变量。

中间变量的身份是“代表”（代表属性名），作用有两个，一是上传下达，在Get/Let 过程与ReadProperties/WriteProperties 过程中充当“邮递员”；二是参与，在许多别的过程中都要与中间变量打交道。

Get 过程的作用是获取相关的属性值，并将属性名称和属性值显示在属性窗口（如果你去掉这个过程，在属性窗口就不会出现相关的属性名称和属性值了）。

它在三种情况下被激活：①中间用户在窗体页面刚刚把焦点移到窗体上的控件时（例如点击该控件），在属性窗口显示出原先设置的属性值；②中间用户在属性窗口修改了属性值，在属性窗口显示出修改后的属性值；③程序运行中用代码获取属性值时，假设窗体代码有这么一句：RGB = Cipher.BackColor，那么也会激活该过程。

Let 过程的作用是设置相关的属性值，它在两种情况下被激活：①中间用户在属性窗口修改了控件的属性值（执行顺序是：Get 过程→Let 过程→Get 过程）；②程序运行中用代码设置新的属性值时，例如：Cipher.BackColor = RGB。

变量NewValue 是被赋的新值（这个变量名是可以改变的），你可以把得到的NewValue 的值按自己的需求作任何用途。

要注意的是，如果这个属性是一个对象，那么就不能用Let 过程而必须用Set 过程了，这是因为保存在控件内部的对象变量，保存的并不是对象的拷贝，而只是对象的引用（也就是一个内存地址）。

所以在它的Get 和Set 两个属性过程中，均须在等式的前面加上“Set”关键字。

来看看“四则运算”控件中的有关代码：Public Property Get Font() As FontSet Font = Text1.FontEnd PropertyPublic Property Set Font(ByVal newFont As Font)Set Text1.Font = newFontPropertyChanged "Font"End Property这是设置文本框的Font 属性的，而Font 本身也是一个对象，所以必须使用Set 了。

还有Picture 属性也是如此，它也必须使用Set 过程。

然而，它这个对象却有一点特殊之处：如果你想在程序运行当中使用LoadPicture 语句动态加载图片的话，你就必须给它增加一个Let 过程，否则，你将只能在设计模式时在属性窗口加入图片。

而新增的Let 过程中不需要任何代码，只要一个注释符就行了。

以“酷时钟”控件中的Picture 属性为例：Public Property Get Picture() As PictureSet Picture = UserControl.PictureEnd PropertyPublic Property Set Picture(ByVal NewPic As Picture)Set UserControl.Picture = NewPicPropertyChanged "Picture"End PropertyPublic Property Let Picture(ByVal NewPicture As Picture)'End Property㈡枚举法枚举是一种很常见的的方式，它提供了一个下拉列表和若干选项让用户选择。

这样既方便了用户的操作，又不用考虑过多的兼容性和错误处理问题，简化了属性设置，而且更加安全。

要实现枚举法，首先必须建立一个枚举结构，放在声明部分，然后在结构中给出一系列的常量和对应的字符串。

后面的常量值必须是比前面常量值大的整数。

如果没有给出常量，那么VB 会自动为其赋值，第一个字符串赋值为零，其它的值则为前面一个数加一。

例如在“特效标签”控件中，字体打印特技的枚举结构声明：Public Enum cTxtEffect雕刻'自动赋值＝0立体'自动赋值＝1浮雕'自动赋值＝2End Enum如果你要为项目赋值为从 1 开始，也是可以的（当然有关代码要改一下）：Public Enum cTxtEffect雕刻= 1立体= 2浮雕= 3End Enum要实现枚举属性，还必须创建一个带有Let 和Get 属性过程的标准属性，但必须将属性的类型声明为枚举类型。

仍以“特效标签”控件为例，你还必须有这样两个过程：Public Property Get TxtEffect() As cTxtEffectTxtEffect = mTxtEffectEnd PropertyPublic Property Let TxtEffect(ByVal NewValue As cTxtEffect)mTxtEffect = NewValuePropertyChanged "TxtEffect"End Property注意这两个过程中的数据类型都改为了cTxtEffect。

枚举属性的读、写、保存和检索，都和标准属性是一样的。

3.保存或读取属性值上述的Let 过程中的PropertyChanged 方法是用户控件特有的方法，其作用是，通知系统某个属性发生了改变，系统根据具体情况决定是否将改变后的属性值保存到属性包（或 .frm 文件）中。

所谓具体情况是指：在设计模式（正在被中间用户使用）就保存，在运行模式（正在被最终用户使用）就不保存。

比如你的程序代码中有这么一句：Cipher.BackColor = RGB，那么运行该程序到这一句时，就会将Cipher 控件的背景色改变为RGB 所代表的颜色，但不会将这个RGB 值保存到属性包中，所以，下次你运行程序时，只要没有运行到这一句，Cipher 控件的背景色依然是你设计时的颜色。

保存属性值是由WriteProperties 事件过程执行的，在销毁创建的控件之前，该事件会根据PropertyChanged 方法的提示，以及当时的运行模式，来决定是否通知PropertyBag 对象把数据写入属性包（或 .frm 文件）中。

保存时，所有在该事件过程中的属性值都会同时保存，而不仅仅是保存某一个提示改变的属性值。

读取属性值是由ReadProperties 事件过程执行的，在创建控件之前，该事件会通知PropertyBag对象从属性包（或 .frm 文件）中把保存的所有属性值都同时读取出来，读出的数据由Get 过程使用。

PropertyBag 对象是具体实施保存或读取功能的，它有两个方法：WriteProperty 方法用来写属性值，ReadProperty 方法用来读属性值。

特别提醒：对于新手来说，一定要搞清楚cTxtEffect、mTxtEffect、TxtEffect 和“TxtEffect”这四个东东的意义：cTxtEffect：是结构名。

mTxtEffect：是代表cTxtEffect 结构中某个项目值的中间变量，如果没有枚举结构，则是代表属性值的中间变量，它是模块级的变量。

TxtEffect：是属性名，它会出现在窗体页面的属性窗口中。

“TxtEffect”：是保存到属性包时所用的名称，笔者为了方便，把它与属性TxtEffect 取了同一个名称，但并不是同一个概念，它只出现以下在三个方法中：PropertyChanged 方法、ReadProperty方法以及WriteProperty 方法中，你完全可以另外取个名，但在这三个方法中必须是完全同名的。