一个简单的回答就是：拥有图形界面的类。你可能曾经用过类来编程，那是一种实现代码重用的的好方法。当然，它也提供了很多其它的好处，这儿并不打算一一列举出来。ActiveX 控件将这个概念近一步的深化了，能够让你编写一个窗口小部件（widget），然后把它打包起来，在以后的程序里用到它，或者作为特定的问题的解决方法，给程序员提供更简便的编程方法。 用ActiveX你可以建造“复合式”控件，由其它的几种控件组合而成。也就是说，在ActiveX控件中你不但可以使用VB中诸如文本框，图片框之类的普通控件，你还可以用其它的ActiveX控件来构成你自己的控件，实现你想要的功能，并把它打包以背后用。
ActiveX控件的组成
一个ActiveX控件由它的一些成员组成：属性，方法以及事件。它们之间有什么样的逻辑关联呢？还是用我们的身体来做个例子吧，将身体就看成一个ActiveX控件。 这个控件首先应该有一些属性，比如：眼是否睁开属性。显然，这个属性值应该有两种情况：开或则闭。使用的时候能够告诉“身体控件”让这个属性换一个新的值，以决定睁眼或者闭眼，或者得到当前的属性值，以知道目前的身体状况。
方法是控件中过程和函数的统称，同其它任何的VB函数和过程并没有什么不同，你同样可以向它们传递参数，并返回想要的值。假设有一个类描叙了身体这个对象，它应该有“Look”这个方法，并且应该能接受“Direction”这个参数，那么，这个方法就应该写成这样：
Public Sub Look(Direction As Integer)
Select Case Direction
Case 0
'向左看
Case 1
'向右看
Case 2
'向前看
Case 3
'向后看
End Select
End Sub
若要求返回值，我们就举一个“读”的例子吧。这时你必须把“Read”这个方法声明成函数而不是过程 ：
Public Function Read() As String
'读的一些 *** 作
Read = "Hello from the World"
End Function
在身体控件中，我们用的还是“Look”这个方法。当调用这个方法的时候，就是指定眼睛应该去“看”了。同样，我们还指定了另外一个方法，“Read”。这一个方法将用来返回看到的东西。
“方法”这个概念是不是很简单呢？如果你还不能够理解，也可以这样来想：你的控件就像是一台机器，你拨动控制开关（输入参数），转动把手（调用方法），然后机器的灯闪动，运行起来（执行方法），最后从机器里蹦出一些东西（返回值），就是这样了。但等等……如果你的机器想告诉你什么事情，它该怎么做呢？这时就该是“事件”出场了。
最后，身体控件还会提供一个“眨眼”的事件，用来在进行眨眼这个动作的时候，通知开发者发生了这个事件，但是不必知道身体内部的工作方式和为什么这个事件会被触发。
来动手吧，作一个控件。不要以为作一个控件是非常难的事，虽然它和一般应用程序的编写是有一点不同的地方。在上面我们已经知道，一个ActiveX控件是由属性，方法和事件组成的，我们先看看如何在程序中实现这些东西，然后再把它们联系起来，组合成一个有机的整体。属性最简单的形式是用public声明的公用变量。例如，如果把下面这段代码放到你的控件工程的声明部分：
Public EyeOpen As Boolean
这样，你就可以在后边的代码中使用这个属性了。但是，这种属性所能够做的事实在太少了。它几乎是不能够正常工作的。因为在程序的设计期间，属性值的任何变化都必须通知Visual Basic，以便把控件实例标记为需要保存。而又因为属性值可能显示在多个地方，因此当属性值发生改变时必须通知开发环境，以便使它能够同步显示“属性”窗口、“属性页”对话框等位置上的属性值。
上面说的是不是有点难理解呢？要是不明白说的什么，不要急，你先打开一个工程，添加一个控件，试着改改这个控件的一些属性，在来看看上面的话，是不是明白了呢？我们现在的任务，就是要作一个这样的控件啊。由此可以看出，控件编程和一般的编程还是有一些区别的。那么，该怎么实现呢？这要使用到属性过程。
当一个属性值被引用或者设置的时候，属性过程自动的被调用。下面我们就来添加一个这样的属性：打开代码窗口，再点击“工具”菜单，选择“添加过程”子菜单，d出的对话框中，填入过程名“EyeOpen”，然后再把类型设置为“属性”。当你点了确定之后，VB自动的为你创建了一个属性过程的原型，代码会被添加到代码窗口中：
Public Property Get EyeOpen() As Variant
End Property
Public Property Let EyeOpen(ByVal vNewValue As Variant)
End Property
剩下的你要做的，是写入属性处理代码，把这个骨架填满。
你可以看到，VB实际上为你写了两个，“Get”和“Let”属性过程，有点疑惑吗？实际上很简单：“Get”是当属性值被引用的时候调用的过程，而“Let”则是当属性值被写入的时候调用的。(事实上还有第三种类型的过程，我们将在后面遇到，这里先提个醒)要让一个属性过程能够正确的工作，必须还要有一个变量来保存真正的属性值。把下面这一行添加到声明部分：
Private m_EyeOpen As Boolean
注意到那个'm_'前缀，一般是放在用户控件的内部变量之前。 现在该是填充过程框架的时候了。先看看Let过程，这个过程带有一个参数：缺省的是名字是vNewValue，variant类型。但我们想要一个布尔类型的变量而不是variant，因为眼睛在我们的模型中只有开和闭两种状态。所以把这个参数改成“New_EyeOpen As Boolean”。如果你想要这个属性作为只读属性出现，那么就不要再改动Let过程，让过程体空在那儿。否则，当想要设置这个属性值的时候，应该执行这样的代码：
Public Property Let EyeOpen(New_EyeOpen As Boolean)
m_EyeOpen = New_EyeOpen
PropertyChanged "EyeOpen"
'后面还可以写一些相关的代码，对属性的设置做出反应
End Property
当要在程序中写入属性值的时候，就会调用这个函数，先把属性值保存在一个私有变量里面，然后执行PropertyChanged这个内部方法，它用来告诉Visual Basic属性值有了变化，并触发一个WriteProperties事件。关于这一点的具体的内容，在后面还会提到。
而Get过程更为简单！它和标准函数没有两样：
Public Property Get EyeOpen() As Boolean
EyeOpen = m_EyeOpen
End Property
做完这些就完了吗？不！忘了前面说的属性值是需要保存的，因此当编程会话发生转换的时候，它们能够保持下来。那么怎么样来保存和取出属性值呢？这时就要用到PropertyBag对象了。
使用PropertyBag
PropertyBag对象包含两个方法：一个用来读出，一个用来写入。前面提到了，当任何的属性发生变化的时候，会触发控件的WriteProperties事件。这时就可以把属性值保存在属性包中了。下面的代码实现这个功能：
PropBag.WriteProperty "EyeOpen", m_EyeOpen, True
PropBag是PropertyBag对象的一个实例。WriteProperty函数包含三个参数，第一格是属性名称，后面的是要保存的值，最后的参数是在无用户定义属性的情况下，将写入的默认值。把这个和ReadPropertiy方法的默认值设置结合起来，就可以为属性值设置缺省值了。如果属性值和缺省值相同，那么属性值就不会真正的被保存。当要读出的时候，ReadProperty函数发现在属性包中没有内容，就会返回缺省值。这样可以节省一些系统开销。要注意的是：必须将一个成员属性的名称作为字符串传递。当你将控件作国际化处理时，不要改变这一字符串的名称，它必须与该属性的申明的名称相匹配。
当控件被重启动后，你必须重载如所有保存的属性值。当每次读取PropertyBag中的数据时， ReadProperties事件被触发。在这个事件的处理过程中，你要做的任务就是载入保存在属性包中的属性值，调用ReadProperty函数来实现这一点。要注意的是：在读和写两个函数中的缺省值设置要一样。例如：
m_EyeOpen = PropBag.ReadProperty("EyeOpen", True)
一个同步缺省值的方法是为其设置常量，在需要的时候直接使用常量来代替具体的值，这样就不用担心出问题了。例如：
Private Const m_def_EyeOpen = True
“m_def_”前缀通常放在缺省值常量的前面。
当控件被启动的时候，一般要为属性设置初始值。这一般是在usercontrol的InitProperties 事件中实现的。这个事件发生于控件实例首次实体化时，也就是把控件实例放置到窗体上的时候，它在以后的整个设计期间里都不会再发生。Usercontrol还有一个Initialize事件，它是每次控件实例被创建时触发的。显然，初始化过程如果放在Initialize事件中就太过频繁了，没有这个必要。设计 ActiveX 控件需要根本性地转变一些观念。需要响应的关键事件是往往不同于一般的程序设计。下面是我们想要实现的代码：
Private Sub UserControl_InitProperties()
m_EyeOpen = m_def_EyeOpen
End Sub
好，到现在关于属性的部分基本就结束了，下一篇中我们要讲到的是另外的一个成员：方法。
事件是用来通知使用控件的程序员，某件事情发生了，好让程序员可以相应的处理。事件在VB编程中比比皆是，例如，当鼠标点击控件时会发生Click事件，文本框内容改变了会发生Change事件，等等。但这儿要讲的不同于这些东西，也不同于InitProperties, ReadProperties, WriteProperties前面提到过的事件，那些是系统已经定义好了的。我们要做的是定义自己的事件。自定义的事件必须声明在模块的声明部分，然后就能够在任何地方任何时候，只要你觉得应该有事件了，就可以触发它。例如，一个代表眨眼的事件应该这样声明：
Public Event Blink()
在括号中，你可以放置任何你想要传递给事件的参数。对于一个Click事件，这个参数可能鼠标点击时x和y坐标。而在这里，因为只是眨眼，就用不到额外的参数了。
触发事件，得使用RaiseEvent方法。对于我们的眨眼事件，我们把它和一个计时器联系起来，这样它就能够时不时的眨眼了：
Private Sub Blinker_Timer()
RaiseEvent Blink
End Sub
就这样，一个事件就完成了，没有任何技巧或者秘密可言。现在留给程序原作的，只要编写相应的事件处理过程就行了，就像下面这样：
Private Sub BodyControl1_Blink()
Debug.Print "嘻嘻，我又眨眼了!"
End Sub
到这儿，大部分关于ActiveX控件的基本问题都讲了。后面的将是一些更高级的内容，包括图片和字体属性，“关于”对话框，运行时之读属性等等。在继续之前，再看看前面的内容，好好的在理解一下。好了吗？OK，现在开始更为激动的历程。
********************************************************************************************************************************
首先，我们先来看看对于属性，还有什么可以挖掘的东西，比如颜色或者图片之类的东西。
高级属性设计
色彩值被存贮在长整形变量中，但是如果你只是定义一个长整形变量，显然是不能够得到像vb中所提供的那个颜色选单：
这看起来很复杂，实际上做起来却一点也不难：所有你要做的只是把属性声明为OLE_COLOR类型，就像下面这段代码所作的那样：
Public Property Get BackColor() As OLE_COLOR
BackColor = UserControl.BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
UserControl.BackColor = New_BackColor
PropertyChanged "BackColor"
End Property
记得前面曾经提过除了Let，Get，还有第三种属性过程吗？现在揭开迷底：它就是Set属性过程，当要给对象变量赋值的时候，是不能用Let，而必须用Set来代替。这是因为保存在控件内部的对象变量，保存的并不是对象的拷贝，而只是对象的引用，也就是一个内存地址了。为了同一般变量的复制保存区别开来，VB引入了Set属性过程。
或许你可能知道：字体和图片就是保存在对象中的，而且，它们都拥有各自的的对话框来设置相关属性。要用到这些对话框，所有我们要作的就是把图片或者字体申声明为Picture或者Font对象类型，并且为其设置Set属性过程。
Public Property Get Font() As Font
Set Font = lblText.Font
End Property
Public Property Set Font(ByVal New_Font As Font)
Set lblText.Font = New_Font
PropertyChanged "Font"
End Property
看看上面的代码，你是不是在想：也没有什么很难的啊。确实，就是这样简单啊。下面，我们来看看如何为控键建立只读属性。这也是在控件的设计中用的比较多的一个内容。
只读属性
最简单的方法，就是不要在Let/Set属性过程中加入任何东西。但通常，这并不能满足要求，有时，你可能需要一个运行时只读的属性。所谓运行时——和设计时相对应，是指控件最终在一个开发完成的程序中运行，而设计时指的是控件被使用在开发程序的过程中。
要实现运行时只读，要用到Usercontrol的AmbientProperties对象。它提供了很多关于控件容器的属性。中有一个UserMode属性，当控件处在运行时状态时，UserMode值为真。通过在Let/Get过程中提供对UserMode的检测，就可以很容易的实现运行是只读属性了：
Public Property Get MultiLine() As Boolean
MultiLine = m_MultiLine
End Property
Public Property Let MultiLine(ByVal New_MultiLine As Boolean)
If Ambient.UserMode Then
Err.Raise 382
Exit Sub
EndIf
m_MultiLine = New_MultiLine
PropertyChanged "MultiLine"
End Property
这段代码保护属性只能够在设计时被修改，如果在运行时试图改变它， 就会产生“Property is read-only at run-time”错误。
和AmbientProperties对象相近的还有Extender对象。对于Extender对象，在开始编写控件前有必要好好的了解。Extender对象是一个晚期绑定的借口，开发员可以通过它访问由控件容器（而不是控件本身）维护和控制的控件属性。它提供了一些属性，像Name，Enable，Left，Top，Height，Width等等，这些大多出现在一般的控件中，在编写控件属性前，应该看看是否已经存在在Extender对象中，一方面可以避免重复工作，另一方面也更有效率。
但是使用Extender对象还存在一些问题：并不是所有的容器都支持访问相同的Extender属性。所以选用Extender对象是必须十分小心，否这做出的控件只能为特定的容器所使用。但如果你只是为VB开发控件，那就不用有这些顾虑了，尽量的用吧。
还有一点要注意的是，Extender对象不能在usercontrol的initialize事件中访问它，但是可以在initProperties和ReadProperties事件中使用。
枚举
在控件中设置属性时，使用枚举是一种很常见的的方式。它提供了一个下拉列表和若干选项让你选择。这样方便了用户的 *** 作，又不用考虑过多的兼容性和错误处理问题，简化了属性设置，而且更加安全。
首先，必须建立一个枚举结构，放在声明部分。然后给出一系列的常量和对应的字符串。常量值可以零，或者是任何比它前面一个常量值大的整数。如果没有给出常量，那么VB自动为其赋值，第一个未指定的赋值为零，其它的值为前面一个数加一：
Public Enum eDirection
Left
Right = 1
Up
Down
End Enum
要实现枚举属性，必须创建一个带有Let和Get属性过程的标准属性。这里的技巧是将属性的类型声明为给出的枚举类型：
Public Property Get Direction() As eDirection
Direction = m_Direction
End Property
Public Property Let Direction(ByVal New_Direction As eDirection)
m_Direction = New_Direction
PropertyChanged "Direction"
End Property
唯一要注意的是，只能够在设计时修改属性列表，而不允许在运行时这么做。其它的，像读，写，保存和检索，都和使用标准属性是一样的。
这就是所有的技巧了。难以置信的简单，是吗？你的控件是不是看起来更为专业了呢？
Usercontrol对象
用 Visual Basic 所创建的 ActiveX 控件总是由 UserControl 对象加上选中放到 UserControl 上的任何控件（称为子控件或则组成控件）所组成。就象 Visual Basic 窗体一样，UserControl 对象具有代码模块以及可视化的设计器。将组成控件放到 UserControl 对象的设计器上，就象把控件放到窗体上一样。 在窗体上放置 ActiveX 控件的实例时，就创建了 UserControl 对象，以及放在 UserControl 设计器上的所有子控件的实例。这些对象都被封装在控件中。
UserControl 对象有自己的属性、方法和事件。对于一些属性，像BorderStyle，BackColor等等，与其自己写代码来实现 BackColor 属性，不如就直接使用UserControl对象的。这就意味着 ActiveX 控件的 BackColor 属性只需要简单地调用 UserControl 对象的 BackColor 属性就行了。同样地，也可以在UserControl 对象现有的 Click 事件的基础上设计您的控件的 Click 事件。
事实上在前面的内容中，我们时时都在和这个对象打交道，但是它有一些特别的东西，是应该值的多一些注意的。它的大部分属性应该在控件的设计时来完成设置。在这儿我解释一些比较晦涩难懂得属性的含义，还有一些一望既知，就不多费口舌了。
Alignable属性，当被设置成真的时候，VB将自动为控件添加一个新的属性：align。这样就能够像放置工具条那样安排控件在容器中的位置，而且这还意味着你的控件能够被放置在MDI程序中。
CanGetFocus属性，能够决定用户控件是否能够在运行时获得焦点。当要创建一个图形控件，或者像Timer那样在运行是不可见的控件时，就要设置这个值为False。要注意的是：只要控件至少包含一个设置为能够接收焦点的子控件，CanGetFocus 属性就不能设置为 False。如果 CanGetFocus 设置为 False，则其所有的子控件都不能设置为接收焦点。
ControlContainer属性定义一个控件是否能够像frames或者PictureBoxes控件那样作为控件容器包含其它的控件。
DefaultCancel 属性可以为控件添加Default和 Cancel属性。在添加 Default 和 Cancel 属性后，控件就可充当标准命令按钮。也就是说当Default被设为Ture后，按下回车键会触发控件的click事件，而当Cancel属性被设为Ture时,Esc键按下也会触发click事件。
你可以通过检查AmbientProperties对象的DisplayAsDefault属性来知道控件是不是缺省控件。
InvisibleAtRuntime能够让你建立像Timer之类的控件，在运行的时候是不可见的。
最后，ToolboxBitmap 属性用来指定放在VB工具箱上的图标的。微软建议的大小是32x32，但是实践证明23x23或24x24工作起来更好，32x32是被缩放到那么大了再显示出来的。
属性的属性
说起来有点绕口，也有点费解，是吗？。VB允许为控件的每个成员设置属性。这里面包含了一些较高级的内容，能够让你建造更为专业化的控件。在菜单栏中点击工具|过程属性，会出现下面的对话框：
你可以在描叙框内输入一段对控件的说明，在帮助上下文标识符内输入一个帮助的关联ID号，将你的控件与一个帮助文件关联起来，这样当点了属性后再按F1键就可以给出这个属性的帮助内容。
利用“在属性浏览其中使用本页”字段，可以给控件的定制属性页分配选定的号码。这样当用户从VB的属性浏览器中选择该成员时，VB将直接线是属性页。 “属性分类”字段能够让属性在VB的属性浏览器的“按分类序”模式中出现在特定的类别下。这些类别包括外观，字体，位置，杂项等等，只要选择一项就行了。“隐藏该成员”可以让属性不在属性浏览器中显示出来，这对于一些不想让用户看到得公有成员有用，但是要记住，它只是隐藏而不是不许被使用。而利用“在属性浏览器中不显示”可以在控件的设计时（而不是在运行时）把属性从属性浏览器中去掉。作为一般的原则，任何用ReadProperties和WriteProperties实现的永久的属性，都应当被属性浏览器显示出来，反之，任何非永久性的属性就不应被显露出来。
“缺省用户界面”用来设置控键的缺省属性和方法。比如，因为Caption属性是Lable控键的缺省属性，那么就可以对代码进行一些简化，把
Label1.Caption = "Hello"
可以简写为：
Label1 = "Hello"
最后是关于数据绑定的部分。在VB中，数据库的应用是很常见的。利用MS的数据访问功能，可以很容易的把控件属性和数据库的字段联系起来。当选择了“属性为数据绑定”和“绑定属性到数据字段”两个复选框后，该属性就可以以标准绑定控键的方式运行，这意味着你可以在为该属性选择数据库控件和字段名称。
最后的话
到这儿，几乎大部分和用户控件有关的内容都讲完了。你现在就可以开始为自己的程序定制合适的控件，还可以让别人分享你的成果。虽然内容不是很多，但要完全吃透也不是件容易的事。所以，多看多练还是必要的，学无止境嘛。
当然，没有十全十美的东西，对于ActiveX控件也是这样的。合理的使用用户控件是必须要注意的事情。ActiveX控件很容易就会变得很复杂，一不小心的话，你所付出的会远远多于你所得到的。
如果你只是想要一个带有属性和方法的对象，那么类或许是更好的选择。用户控件与应用程序间相对复杂的接口，会占用较多的资源。而在编程方面，控件也要比类复杂一些。但是如果你要求属性，方法和事件实现永久的数据存贮，后者要在程序的外部实现组件更新，那么就要用到用户控件了。总之，不要以为这是一件容易的事。虽然我在这儿讲得很简单，但是对一个完整的用户控件的设计，编写，以及测试和调试所作的工作，绝对不会比一个一般的VB应用程序来的少。
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程 *** 作.同时OCX控件还有利于主程序的简单化、功能的重用、隐常程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB
5.0方便的制作出自己的OCX控件供我们在编程中使用同时还可以把它送给你周围喜欢编程的朋友!
下面列出制作OCX控件的步骤：
一：新建OCX
打开VB 5.0选择新建工程在对话框中选择ActiveX 控件，打开后会见一空的文档这就是OCX控件的初始界面。想看一看空OCX控件的效果吗?选择“添加工程”选中标准EXE，这时你就可以像调用其它控件一样在左边的工具栏里选择刚才新建的OCX控件图标放在标准的EXE文档中看一看有什么效果!(什么也没有!)自然因为刚才的OCX文档是空的嘛(废话太多，数个痰盂向我飞来)!
二：创建界面
一般我们用VB创建OCX控件都是在我们的控件里添加其它的控件来组合成一个完整的控件（也可以让它只完成某种算法）比如：你可以在上面添加一按钮、编辑框这时你再用第一部的方法看一看效果，是不是控件上多了一个按钮和一个编辑框。
三：OCX属性
一个OCX控件有许多的属性，比如控件背景是否透明（BackStyle），控件是否可以获得焦点
(CanGetFocus)等。这些属性都可以在控件的“属性框”中找到。
四：添加事件
一个控件有很多事件如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click() 事件名（参数）。
五：用户属性
一个控件应有许多属性供用户设置如：控件的背景色、控件要显示的图形等。它们通常用Property Get和 Property Let两条语句来完成。前者表示给用户显示一个属性的值，后者表示用户设置一个属性的值。
六：保存属性和读取属性
当属性被用户更改后需要将该属性值保存，以便控件运行时读取更改后的属性值。它们分别用 ReadProperty和WriteProperty两种方法来完成。前者表示读取一个属性值，后者表示写入一个属性值。
好了一个简单的OCX控件制作方法大概就需要以上几步就可完成。下面本人将编写一个简单的OCX控件供大家参考。此控件的功能是在控件中显示一个圆，当鼠标移到控件上的时候控件上的圆便会在鼠标不离开控件的前提下跟随鼠标移动。
新建一OCX控件，将控件的BorderStyle属性改为1，再加入一SHAPE控件将其形状改为Circle(如图二(map2.gif))
添加以下代码：
Public Event Click() '定义该控件要产生的事件
Dim CircleX As Integer, CircleY As Integer
Private Sub UserControl_Click()
RaiseEvent Click '触发Click事件
End Sub
Private Sub UserControl_Initialize()
CircleX = Shape1.Width / 2
CircleY = Shape1.Height / 2
End Sub
Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
Shape1.BackColor = RGB(0, 0, 255)
End Sub
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X
As Single, Y As Single)
Dim MoveX As Integer, MoveY As Integer
MoveX = X - Shape1.Width / 2
MoveY = Y - Shape1.Height / 2
If (MoveX <0) Or (MoveX + Shape1.Width >UserControl.ScaleWidth) Or _
(MoveY <0) Or (MoveY + Shape1.Height >UserControl.ScaleHeight) Then
Exit Sub
Shape1.Move MoveX, MoveY
End Sub
Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Shape1.BackColor = RGB(255, 0, 0)
End Sub
Property Get PosX() As Integer '取得CircleX的值显示给用户
PosX = CircleX
End Property
Property Let PosX(ByVal New_X As Integer) '把用户写入的值设置到OCX控件内部
If (New_X <Shape1.Width / 2) Or _
(New_X >UserControl.ScaleWidth - Shape1.Width / 2) Then
MsgBox ("圆的X值超出界限了")
Else
CircleX = New_X
Call UserControl_Resize
End If
End Property
Property Get PosY() As Integer
PosY = CircleY
End Property
Property Let PosY(ByVal New_Y As Integer)
If (New_Y <Shape1.Height / 2) Or _
(New_Y >UserControl.ScaleHeight - Shape1.Height / 2) Then
MsgBox ("圆的Y值超出界限了")
Else
CircleY = New_Y
Call UserControl_Resize
End If
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
CircleX = PropBag.ReadProperty("CircleX", Shape1.Width / 2) '将用户设置的值读出来
CircleY = PropBag.ReadProperty("CircleY", Shape1.Height / 2) '同上
Call UserControl_Resize
End Sub
Private Sub UserControl_Resize()
Shape1.Move CircleX, CircleY
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("CircleX", CircleX, Shape1.Width / 2)
'将用户设置的值保存
Call PropBag.WriteProperty("CircleY", CircleY, Shape1.Height / 2) '同上
End Sub
麻雀虽小，五脏俱全。这个OCX控件完成的任务虽然简单,但是OCX控件的基本 *** 作全都有喔!
----------------------------------------
很久以前找的资料，忘记是从哪个网站上抄的了……
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）