 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
什么是ActiveX控件？ 一个简朴的回答就是：拥有图形界面的类。你可能曾经用过类来编程，那是一种实现代码重用的的好方式。当然，它也提供了很多其它的好处，这儿并不打算一一列举出来。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，以便把控件实例标记为需要保存。而又因为属性值可能显示在多个地方，因此当属性值发生改变时必须通知开发环境，以便使它能够同步显示“属性” 窗口、“属性页”对话框等位置上的属性值。 上面说的是不是有点难理解呢？要是不明白说的什么，不要急，你先打开一个工程，添加一个控件，试着改改这个控件的一些属性，在来看看上面的话，是不是明白了呢？我们现在的任务，就是要作一个这样的控件啊。由此可以看出，控件编程和一般的编程还是有一些区别的。那么，该怎么实现数行呢？这要使用到属性过程。 当一个属性值被引用或者设置的时候，属性过程自动的被调用。下面我们就来添加一个这样的属性：打开代码窗口，再点击“工具”菜单，选择“添加过程”子菜单，弹出的对话框中，填入过程名“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 好，到现在关于属性的部分基本就结束了，下一篇中我们要讲到的是另外的一个成员：方式。 返回类别: 教程 上一教程: ASP 3.0高级编程(三十一) 下一教程: 使用XMLHTTP制作域名查询系统 您可以阅读与"ACTIVEX深入浅出(一)"相关的教程: · ACTIVEX深入浅出(二) · 深入研究Application和Session对象(1) · ASP使用ACTIVEX组件实例一 · 关于GLOBAL.ASA文件的深入研究与SESSION变量失效提示的详细方式 · 关于在浏览器中执行*.EXE文件的深入探讨! |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
