ActiveX深入浅出(一)

答案：     
  　 　 　 　 　 　 ActiveX深入浅出
      
   
   
  纲要 
  
  　 　 可以这样说，Active平台代表了Microsoft的世界观。使用ActiveX控件,来构筑包括从与用户交互和适应COM的事务处理监视器，到Web服务器，全部实现自动化的机构，这就是Microsoft的打算了。桌面用的、基于COM的组件叫做ActiveX控件。所谓ActiveX控件不过是遵从一定的标准、与客户端交互的COM对象而已。基于组件的应用开发,其方法和组装电子装置一样,可以用已制作好的组件部件来构筑应用。这确实是一项很令人神往的技术。虽然说起来高深，但随着ActiveX的广泛应用，越来越多的编程工具都支持创建ActiveX控件了。这其中就包括了VB。在VB中设计一个ActiveX并不比一个普通的VB应用程序难上许多。这篇文章，就是一步步教你如何在VB中创建一个ActiveX控件。 
  
  
  ActiveX深入浅出(一）
  作 者 : 扬眉
  
  
  　　 什么是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函

上一个：ActiveX深入浅出(二）
下一个：中文虚拟域名实现(3) (环境：中文NT)