VB用户控件制作讲解与实例-----用户控件属性或函数的描述信息如何写入程序

[网摘]VB用户控件制作讲解与实例

发表: uu_ovo   阅读: <script language="JavaScript" src="../hits.asp?id=105618" type="text/javascript"></script> 3185次  关键字：不详   字体:[ 大 中 小]

制作用户控件，主要就是进行以下三项代码编写工作：
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 = mGlintForeColor
End Property
Public Property Let FlickerForeColor(ByVal newColor As OLE_COLOR)
mGlintForeColor = newColor
PropertyChanged "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 Font
Set Font = Text1.Font
End Property
Public Property Set Font(ByVal newFont As Font)
Set Text1.Font = newFont
PropertyChanged "Font"
End Property
　　这是设置文本框的 Font 属性的，而 Font 本身也是一个对象，所以必须使用 Set 了。
　　还有 Picture 属性也是如此，它也必须使用 Set 过程。然而，它这个对象却有一点特殊之处：如
果你想在程序运行当中使用 LoadPicture 语句动态加载图片的话，你就必须给它增加一个 Let 过程，
否则，你将只能在设计模式时在属性窗口加入图片。而新增的 Let 过程中不需要任何代码，只要一个注
释符就行了。以“酷时钟”控件中的 Picture 属性为例：
Public Property Get Picture() As Picture
Set Picture = UserControl.Picture
End Property
Public Property Set Picture(ByVal NewPic As Picture)
Set UserControl.Picture = NewPic
PropertyChanged "Picture"
End Property
Public Property Let Picture(ByVal NewPicture As Picture)
'
End Property  

㈡枚举法
　　枚举是一种很常见的的方式，它提供了一个下拉列表和若干选项让用户选择。这样既方便了用户的
操作，又不用考虑过多的兼容性和错误处理问题，简化了属性设置，而且更加安全。
　　要实现枚举法，首先必须建立一个枚举结构，放在声明部分，然后在结构中给出一系列的常量和对
应的字符串。后面