一个用VB编写ActiveX自定义控件的例子

以做一个带背景图片的label框为例

1.首先选择添加一个用户控件……这个要怎么添加我就不多说了吧

然后在用户控件的界面上添加一个label一个image，同时将label1置为顶层（bringtofront反正让label1压着image1就行了）
然后将label1的backstyle设为透明，usercontrol的backstyle也设为透明，image1的strech属性设置为true,然后随便为image1添加背景图片。
接着添加如下代码：
PrivateSubUserControl_Resize()
WithImage1
.Left=0
.Top=0
.Height=UserControl.Height
.Width=UserControl.Width
EndWith
WithLabel1
.Left=0
.Top=0
.Height=UserControl.Height
.Width=UserControl.Width
.BackStyle=0
EndWith
UserControl.BackStyle=0
EndSub
这些代码的作用是，用户在界面上划usercontrol的时候，label1和image1随着usercontrol的大小变化而变化。（补充：也就是说，label1和image1的大小充满整个用户控件。--|||说不清楚，反正，你用到用户控件的时候，都会在屏幕上画一个区域吧？你画的区域有多大，用户控件显示的区域就有多大，用户控件上的label1控件和其他控件就会和用户控件显示的区域一样大，让别人产生用户控件就是一个label的错觉。）

2.如何设定usercontrol的响应事件
请添加以下代码：
Eventclick()'声明一个事件这个事件就像label1_click事件一样会出现在用户控件的事件代码窗口

PrivateSubLabel1_Click()
RaiseEventclick'用户控件上的label1控件被click时，触发用户控件的click事件，因为一开始设定label1和用户控件一样大，所以点击label1的事件就相当于点击用户控件的事件了
EndSub

好了，用户控件的click事件结束了。就这么简单？对！我一开始也觉得不可思议呢。
这些代码的作用是，当用户点击usercontrol上面的label框时，触发usercontrol的click事件，也就是说，触发你在privatesubusercontrol1_click()这个过程中的代码。

3.怎么设定usercontrol的属性
请加入以下代码

PrivateSubUserControl_ReadProperties(PropBagAsPropertyBag)
m_backstyle=0
SetLabel1.Font=PropBag.ReadProperty("Font",Ambient.Font)
Label1.ForeColor=PropBag.ReadProperty("ForeColor",&H80000008)
Label1.Caption=PropBag.ReadProperty("Text","")
EndSub

明白了吧？其实设定usercontrol的属性也就是在设定你画在usercontrol上面的控件的属性。
上面的代码是读取属性用的（其实我做自定义控件是看着别人的原代码学的，并非老师教的，所以有一些具体的也不清楚，只知道要这样用就是了。）

然后再加上写入属性的代码：
PrivateSubUserControl_WriteProperties(PropBagAsPropertyBag)
CallPropBag.WriteProperty("backstyle",0)
CallPropBag.WriteProperty("Font",Label1.Font,Ambient.Font)
CallPropBag.WriteProperty("ForeColor",Label1.ForeColor,&H80000008)
CallPropBag.WriteProperty("Text",Label1.Caption,"CMX")
EndSub

好了，这样就为用户控件设定了backstyle,forecolor,font,text四项属性了。

4.怎样让用户可以修改属性

'我们就以font为例，看看怎么让用户修改用户控件的属性吧
我们现在来讨论一下，怎么让用户修改font属性
请加入以下代码：
Public Property Get Font() As Font
Set Font = Label1.Font'将用户控件的font属性设置为控件上label1控件的font属性
End Property
Public Property Set Font(ByVal New_Font As Font)
Set Label1.Font = New_Font'将用户修改后的font属性赋给label1.font
PropertyChanged "Font"'修改用户控件的font属性为最新的属性
End Property

ok了！用户可以在属性窗口和代码修改font了！~再添加进修改forecolor,text的属性代码，就可以完成这个用户控件了！

5. 代码全貌

现在把所有原代码都贴进来，这是一个有图片背景，支持更改text的label~ 当然之前请做好控件的属性设定： 在用户控件的界面上添加一个label一个image，同时将label1置为顶层（bringtofront反正让label1压着image1就行了） 然后将label1的backstyle设为透明，usercontrol的backstyle也设为透明，image1的strech属性设置为true,然后随便为image1添加背景图片。 接着添加如下代码： Privatem_backstyleAsInteger Eventclick() PrivateSubLabel1_Click() RaiseEventclick EndSub PrivateSubUserControl_ReadProperties(PropBagAsPropertyBag) m_backstyle=0 SetLabel1.Font=PropBag.ReadProperty("Font",Ambient.Font) Label1.ForeColor=PropBag.ReadProperty("ForeColor",&H80000008) Label1.Caption=PropBag.ReadProperty("Text","") EndSub PrivateSubUserControl_Resize() WithImage1 .Left=0 .Top=0 .Height=UserControl.Height .Width=UserControl.Width EndWith WithLabel1 .Left=0 .Top=0 .Height=UserControl.Height .Width=UserControl.Width .BackStyle=0 EndWith UserControl.BackStyle=0 EndSub PrivateSubUserControl_WriteProperties(PropBagAsPropertyBag) CallPropBag.WriteProperty("backstyle",0) CallPropBag.WriteProperty("Font",Ambient.Font) CallPropBag.WriteProperty("ForeColor",&H80000008) CallPropBag.WriteProperty("Text","CMX") EndSub PublicPropertyGetBackStyle()AsInteger BackStyle=Label1.BackStyle EndProperty PublicPropertyGetFont()AsFont SetFont=Label1.Font EndProperty PublicPropertySetFont(ByValNew_FontAsFont) SetLabel1.Font=New_Font PropertyChanged"Font" EndProperty 'WARNING!DONOTREMOVEORMODIFYTHEFOLLOWINGCOMMENTEDLINES! 'MappingInfo=TextBoxEx,TextBoxEx,-1,Text PublicPropertyGetText()AsString Text=Label1.Caption EndProperty PublicPropertyLetText(ByValNew_TextAsString) Label1.Caption()=New_Text PropertyChanged"Text" EndProperty PublicPropertyGetForeColor()AsOLE_COLOR ForeColor=Label1.ForeColor EndProperty PublicPropertyLetForeColor(ByValNew_ForeColorAsOLE_COLOR) Label1.ForeColor()=New_ForeColor PropertyChanged"ForeColor" EndProperty