VB用户控件制作讲解与实例.docx
《VB用户控件制作讲解与实例.docx》由会员分享，可在线阅读，更多相关《VB用户控件制作讲解与实例.docx（16页珍藏版）》请在冰豆网上搜索。
VB用户控件制作讲解与实例
VB用户控件制作讲解与实例
发表:
uu_ovo 阅读:
905次 关键字：
不详 字体:
[大中小]
制作用户控件，主要就是进行以下三项代码编写工作：
1.定义控件的属性、事件和方法，其中属性是最常使用的。
2.保存和读取中间用户设置的属性值。
3.为达到你的预定目的而调用的各种技术手段。
在用户控件中定义的属性、事件、方法，其性质都必须是公用的，也就是说，只有用Public来定
义，这样你才能在主程序代码中使用这些事件和方法，以及设置或获取这些属性值，也只有公用的属性
才会在窗体页面相关控件的属性窗口显示出来。
一、属性
属性是用户控件最基本的东东，用户控件可以没有事件，可以没有方法，但不能没有属性（当然，
技术上来说是可以没有属性的，但这样的控件使中间用户无法进行任何设置，是没有什么意义的）。
那
么，如何定义用户控件的属性呢？
为用户控件添加属性有两种办法：
1.公用变量法：
public变量名称as类型
这里的变量名称就是属性名称。
这样定义的属性一般不会保存属性值，所以常常用作只读属性，在
笔者的用户控件中，用于对主程序返回一个必要的值。
例如“四则运算”控件中的“ComputeAnswer”
属性：
PublicComputeAnswerAsString
它返回的是计算结果，而计算结果是不需要保存在控件中的，所以把它用公用变量法定义。
再例如
消息框控件中的FeedValue属性：
PublicFeedValueAsInteger'返回值
它返回最终用户选中的消息框按纽的编号，这个编号也只需要在主程序中处理，而无需保存在控件
中，所以也用公用变量法定义成只读属性。
2.property过程法：
publicpropertyGet过程名称（）as类型
……
endproperty
publicpropertyLet过程名称（new值as类型）
……
endproperty
这里的过程名称就是属性名称。
而property过程法又有两种：
一种是如上所述的标准过程法，另一种就是枚举法。
㈠标准过程法
这是用得最多的一种属性定义方法。
在用户控件的代码页面选中“工具→添加过程”，会跳出一个
对话框，然后在单选按纽中选择“属性”，再在“名称”栏中输入属性名，点击确定，VB就会自动生成
上述的几行代码，你将“类型”改为你所需要的，再输入相关代码即可。
标准过程法中，Get过程和Let过程一般是成对出现的。
例如“闪烁标签”控件中定义闪烁时的
前景颜色FlickerForeColor属性的代码：
PublicPropertyGetFlickerForeColor（）AsOLE_COLOR'闪烁时的文字色
FlickerForeColor=mGlintForeColor
EndProperty
PublicPropertyLetFlickerForeColor（ByValnewColorAsOLE_COLOR）
mGlintForeColor=newColor
PropertyChanged"FlickerForeColor"
EndProperty
这两段代码中的“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”关键字。
来看看“四则运算”
控件中的有关代码：
PublicPropertyGetFont（）AsFont
SetFont=Text1.Font
EndProperty
PublicPropertySetFont（ByValnewFontAsFont）
SetText1.Font=newFont
PropertyChanged"Font"
EndProperty
这是设置文本框的Font属性的，而Font本身也是一个对象，所以必须使用Set了。
还有Picture属性也是如此，它也必须使用Set过程。
然而，它这个对象却有一点特殊之处：
如
果你想在程序运行当中使用LoadPicture语句动态加载图片的话，你就必须给它增加一个Let过程，
否则，你将只能在设计模式时在属性窗口加入图片。
而新增的Let过程中不需要任何代码，只要一个注
释符就行了。
以“酷时钟”控件中的Picture属性为例：
PublicPropertyGetPicture（）AsPicture
SetPicture=UserControl.Picture
EndProperty
PublicPropertySetPicture（ByValNewPicAsPicture）
SetUserControl.Picture=NewPic
PropertyChanged"Picture"
EndProperty
PublicPropertyLetPicture（ByValNewPictureAsPicture）
'
EndProperty
㈡枚举法
枚举是一种很常见的的方式，它提供了一个下拉列表和若干选项让用户选择。
这样既方便了用户的
操作，又不用考虑过多的兼容性和错误处理问题，简化了属性设置，而且更加安全。
要实现枚举法，首先必须建立一个枚举结构，放在声明部分，然后在结构中给出一系列的常量和对
应的字符串。
后面的常量值必须是比前面常量值大的整数。
如果没有给出常量，那么VB会自动为其赋
值，第一个字符串赋值为零，其它的值则为前面一个数加一。
例如在“特效标签”控件中，字体打印特
技的枚举结构声明：
PublicEnumcTxtEffect
雕刻'自动赋值＝0
立体'自动赋值＝1
浮雕'自动赋值＝2
EndEnum
如果你要为项目赋值为从1开始，也是可以的（当然有关代码要改一下）：
PublicEnumcTxtEffect
雕刻=1
立体=2
浮雕=3
EndEnum
要实现枚举属性，还必须创建一个带有Let和Get属性过程的标准属性，但必须将属性的类型声
明为枚举类型。
仍以“特效标签”控件为例，你还必须有这样两个过程：
PublicPropertyGetTxtEffect（）AscTxtEffect
TxtEffect=mTxtEffect
EndProperty
PublicPropertyLetTxtEffect（ByValNewValueAscTxtEffect）
mTxtEffect=NewValue
PropertyChanged"TxtEffect"
EndProperty
注意这两个过程中的数据类型都改为了cTxtEffect。
枚举属性的读、写、保存和检索，都和标准属性是一样的。
3.保存或读取属性值
上述的Let过程中的PropertyChanged方法是用户控件特有的方法，其作用是，通知系统某个属
性发生了改变，系统根据具体情况决定是否将改变后的属性值保存到属性包（或.frm文件）中。
所谓
具体情况是指：
在设计模式（正在被中间用户使用）就保存，在运行模式（正在被最终用户使用）就不
保存。
比如你的程序代码中有这么一句：
Cipher.BackColor=RGB，那么运行该程序到这一句时，就会
将Cipher控件的背景色改变为RGB所代表的颜色，但不会将这个RGB值保存到属性包中，所以，下
次你运行程序时，只要没有运行到这一句，Cipher控件的背景色依然是你设计时的颜色。
保存属性值是由WriteProperties事件过程执行的，在销毁创建的控件之前，该事件会根据Prop
ertyChanged方法的提示，以及当时的运行模式，来决定是否通知PropertyBag对象把数据写入属性包
（或.frm文件）中。
保存时，所有在该事件过程中的属性值都会同时保存，而不仅仅是保存某一个提示
改变的属性值。
读取属性值是由ReadProperties事件过程执行的，在创建控件之前，该事件会通知PropertyBag
对象从属性包（或.frm文件）中把保存的所有属性值都同时读取出来，读出的数据由Get过程使用。
PropertyBag对象是具体实施保存或读取功能的，它有两个方法：
WriteProperty方法用来写属性
值，ReadProperty方法用来读属性值。
特别提醒：
对于新手来说，一定要搞清楚cTxtEffect、mTxtEffect、TxtEffect和“TxtEffect”
这四个东东的意义：
cTxtEffect：
是结构名。
mTxtEffect：
是代表cTxtEffect结构中某个项目值的中间变量，如果没有枚举结构，则是代表属
性值的中间变量，它是模块级的变量。
TxtEffect：
是属性名，它会出现在窗体页面的属性窗口中。
“TxtEffect”：
是保存到属性包时所用的名称，笔者为了方便，把它与属性TxtEffect取了同一
个名称，但并不是同一个概念，它只出现以下在三个方法中：
PropertyChanged方法、ReadProperty方
法以及WriteProperty方法中，你完全可以另外取个名，但在这三个方法中必须是完全同名的。
你可以
这样理解：
“TxtEffect”是一个文件名，而mTxtEffect则是一个变量，你要从“TxtEffect”中读出
文件内容并赋值给mcTxtEffect，或者你要将赋了值的mcTxtEffect保存到“TxtEffect”去。
还有一个需要注意的地方：
使用ReadProperty/WriteProperty方法读写数据时，被读写的变量不
能是数组。
例如，在MyMenu菜单控件中，mCaption是一维数组，但"sCaption"不可能是数组，所以你
不能这样编写代码：
Fori=1TomItemSum:
.WriteProperty"sCaption"（i）,mCaption（i）,"":
Next
而只能这样：
Fori=1TomItemSum:
.WriteProperty"sCaption"&i,mCaption（i）,"":
Next
实际上就是：
.WriteProperty"sCaption1",mCaption
（1）,""
.WriteProperty"sCaption2",mCaption
（2）,""
……
.WriteProperty"sCaptionN",mCaption（N）,""'N＝mItemSum
对于另一个菜单控件muchMenu控件来说，mCaption是二维数组，所以只能这样编写：
Forj=1TosRep
Fori=1TomItemSum（j）
.WriteProperty"sCaption"&j*10&i,mCaption（j,i）,""
Next
Next
实际上就是：
.WriteProperty"sCaption101",mCaption（1,1）,""
.WriteProperty"sCaption102",mCaption（1,2）,""
……
.WriteProperty"sCaption10N",mCaption（1,N）,""'N＝mItemSum（j）
.WriteProperty"sCaption201",mCaption（2,1）,""
.WriteProperty"sCaption202",mCaption（2,2）,""
……
.WriteProperty"sCaption20N",mCaption（2,N）,""
……
.WriteProperty"sCaptionM01",mCaption（M,1）,""'M＝sRep
.WriteProperty"sCaptionM02",mCaption（M,2）,""
……
.WriteProperty"sCaptionM0N",mCaption（M,N）,""
4.只读属性
前面已经说到，用公用变量法定义的属性一般是只读的，而且一般不论在设计模式还是运行模式都
是只读的。
用标准过程法定义的属性也可以定义为在运行时只读的属性（当然也可以定义为在设计时只
读或者在设计和运行时都只读，不过那有什么意义呢？
故我们不加讨论）。
最简单的方法，就是不在Let或Set属性过程中加入任何代码，但通常这会带来诸多不便之处，
一般不宜采用。
比较适宜的办法就是使用AmbientProperties对象。
这个对象共有16个属性，都是用户
控件的环境信息。
比如该对象的DisplayName属性就是取得控件的默认名称，中间用户将用户控件画到
窗体上时，系统就会自动为控件的Caption属性赋值这个默认名称。
我们要实现运行时只读属性，要用
到的是该对象的UserMode属性。
当控件处于运行模式时，UserMode＝True，当控件处于设计模式时，
UserMode＝False。
我们在Let过程中对UserMode属性加以检测，就可以很容易地实现运行时的只读
属性了。
选项卡控件中有一段代码：
PublicPropertyLetTabs（ByValnewValAsInteger）
IfnewVal>2AndnewVal<9AndAmbient.UserMode=FalseThen'如果是设计模式
IfnewVal=5ThennewVal=6
IfnewVal=7ThennewVal=8
propTabCount=newVal
ReDimPreservepropCaption（1TopropTabCount）
PropertyChanged"Tabs"
DrawTabs
EndIf
EndProperty
Tabs属性表示的是选项卡的按纽数目，按纽数目只允许在设计模式时修改，在运行模式时不允许修
改。
从代码中可以看出，如果运行时企图修改Tabs属性是不可能的，换言之，该属性在运行时只读。
5.属性说明
中间用户把用户控件画到窗体后，想在属性窗口查看它的属性说明，却发现只有简单的“Tabs”之
类的几个英文字符，就会弄得头大了。
所以，我们有必要对属性加以描述。
在用户控件页面，点击“工
具→过程属性”菜单项，这时会跳出一个对话框，我们在“名称”下拉框中选中需要说明的属性，在下
面的“描述”框中就可以输入对这个属性的说明文字了。
你可以仿照微软控件的“返回/设置……”之类
的说明词加以描述，然后点“确定”就行了。
再到窗体页面的属性窗口看看，呵呵，正是我们刚才输入
的那几个字！
后面我还会讲到控件的事件和方法，对于它们的描述也照此办理，不过事件和方法的描述要在“对
象浏览器”中才看得到。
如果没有描述，“对象浏览器”中有关项目就只有“****工程的成员”的简单
说明，为了使中间用户明白你定义的属性、事件和方法的意义，我建议用汉字将所有的属性、事件和方
法都进行描述，免去中间用户翻译、猜测、反复试验的麻烦。
二、事件
就象定义属性一样，我们首先要在用户控件页面代码窗口的OptionExplicit节中声明要产生的
事件（注意声明事件也必须是公用的）。
单击“工具→添加过程”，在弹出的对话框名称栏中输入事件
名称（例如“Click”），在“类型”单选按纽中选择“事件”，点击“确定”，于是声明节中就多了这
么一行：
PublicEventClick（）
然后再输入对此事件的处理过程代码（以后你为控件添加的任何事件都必须有类似的代码）：
PrivateSubUserControl_Click（）
RaiseEventClick'触发Click事件
EndSub
RaiseEvent的功能是把用户控件或其上的子控件的事件进行转发。
上面的代码的意思是：
当你单击
窗体上的用户控件时，VB就转发出一个单击事件，这个事件发给谁呢？
呵呵，当然是发给窗体代码页中
相关控件的Click事件啦，你再在这个Click事件过程中编写代码就行了。
是不是很简单？
要是你还想让这个事件携带参数，那也很容易实现，以MyMenu菜单控件为例：
PublicEventClick（SelectedItemAsInteger）'在声明节定义菜单项单击事件
PrivateSubmLabel_Click（IndexAsInteger）
Ifleft（mLabel（Index）.Caption,1）<>"-"ThenRaiseEventClick（Index）'转发单击事件
EndSub
菜单项的文本是显示在标签上的，而标签是一个控件数组，mLabel_Click过程代码中的Index是
选中的控件数组的编号，也就是菜单项的编号，这个号码必须返回给主程序中的相应变量，以便作进一
步的处理，所以这个编号作为Click的参数就被传送出去了。
现在，我们在窗体的代码窗口上面的下拉框中找到该菜单控件的单击事件，点击一下，窗口中出现
了以下过程代码：
PrivateSubMyMenu1_Click（SelectedItemAsInteger）
EndSub
看看，返回参数的变量名与在控件代码页声明节中定义的单击事件中的变量名完全一样。
在这个过
程中，再输入对返回参数的处理代码，你可以用X=SelectedItem的句式获取其值，但最好采用下面这
样的代码：
PrivateSubMyMenu1_Click（SelectedItemAsInteger）
MyMenu1.Visible=False'使菜单控件不可见，这是必须的
SelectCaseSelectedItem
Case1:
'去打开文件模块
Case2:
'去保存文件模块
.....
EndSelect
EndSub
三、方法
找遍网上，所有的资料都只有如何定义用户控件的属性和事件，却没有说明如何定义用户控件的方
法。
在用户控件页面点击“工具→添加过程”，在弹出的对话框中，“类型”单选按纽竟然也没有“方
法”！
没有办法啊，笔者长叹一声，只好在一片茫然中做试验。
经过Ｎ多次屡败屡试不折不挠的试验，
终于获得了成功！
其实非常简单：
只要在控件代码中增加一个独立的Sub公用过程，就定义了用户控件的方法，过程
名也就是方法名。
方法既可以带输入参数也可以不带，这个参数是传送到控件内部来的（事件的参数是
传送到控件外部去的）。
例如，在“四则运算”控件中，Start方法是这样定义的：
PublicSubStart（）
……
EndSub
这是不带输入参数的方法。
在窗体中的调用代码是：
Cipher.Start
再如“图片特技”控件定义的带输入参数的方法：
PublicSubStart（OptionalByValStuntModusAsInteger=-1）
……
EndSub
不但带了参数，而且还是可选参数，这样可以大大方便用户，用户在使用Start方法时，就可根据
具体情况来决定是否输入参数了，调用语句示例如下：
PicStunt1.Starti'输入参数为变量i
PicStunt1.Start'无输入参数，则控件内部使用缺省参数-1
上面说的是带一个输入参数，其实只要你需要，可以带Ｎ多个参数，例如“消息框”控件的Msg方
法：
PublicSubMsg（ByValmInfoStrAsString,OptionalByValmCompagesAsInteger=0,_
OptionalByValmCaptionAsString="马路消息"）
……
EndSub
一共带了三个参数，其中第一个参数是必需的（消息内容），第二个参数（组合值）和第三个参数
（消息标题）是可选的，基本上与系统的消息框调用方式是一致的。
四、属性页
很多控件在其属性窗口上方第二个属性之处有“自定义”的属性，点击右边的“…”按纽，就打开
了属性页。
如果某个属性有若干个不能确定数量的子项目，通常就需要使用属性页了。
例如系统自带的“工具
栏”控件，其中的按纽个数及其标题文本都是不能确定的，这时就要让中间用户根据自己的具体情况，
通过属性页来设置了。
笔者发布的控件实例中，有三个控件需要使用属性页，这三个控件是：
选项卡控
件、MyMenu菜单控件、muchMenu菜单控件。
就拿菜单控件来说，如果你设计的菜单控件仅仅只是为了
给自己使用，菜单项数目是固定的，那当然可以多弄几个Caption属性来设置菜单文本，比如说你可以
定义Caption1、Caption2、Caption3……等等，但这显示不是一个好
升级会员 