Question

VB ActiveX 控件的单击事件

如何只让左键单击触发Click ？

Answer 1

我们都知道在使用Visual Basic的时候可以使用很多现有的控件，像VB中的基本控件。然而，只有这些基本的控件在很多的时候都不能满足我们的实际需要，因此还需要更多的能够实现其他特有功能的控件。我们可以看到，在VB的部件中包含了大量的控件。这些控件包含在VB中自带的ActiveX控件库中。这些控件大大补充了VB的功能，其实可以这么说，在VB中谁掌握了对控件的使用，谁将更成功的运用VB写出功能强大的程序。在VB中不但可以使用现有的ActiveX控件，更叫人兴奋的是可以利用VB创建自己的ActiveX控件。下面我们一起讨论一下关于VB中创建ActiveX控件的基本知识。
ActiveX是Microsoft的术语，他是一组包括控件、DLL和ActiveX文档的组件，他通常是以动态连接库形势存在，因此必须在一个叫容器的可独立执行的软件中运行，比如VisualBasic，VisualC++，Internet Explorer等。因此ActiveX控件和容器必须都支持一些特定的接口协议。ActiveX应包括属性，事件和方法这些特殊机制，他也是创建ActiveX控件的核心。

在这个制作步骤中我们看到要利用一个VB中的UserControl对象，他是创建ActiveX控件的基础。我先简单介绍一下UserControl对象的基本知识吧。
VB创建的ActiveX控件包括UserControl控件和构成ActiveX控件的基本控件，称为构成控件。这些基本控件实际上就是像CommandButton和Label控件等。
UserControl对象的设计界面和标准工程的Form设计界面没有什么差别。我们可以直接在UserControl对象上面设计控件的外观，将代码添加在Code页面中，一切都是那么的熟悉。UserControl以普通的文本文件格式存储，该文件包含UserControl以及他的构成控件源代码和属性值。在VB中这些文件的扩展名为.ctl如果控件中用到图形元素，VB就将她存放在同名的.ctx文件中。
UserControl对象有许多的属性，事件和方法和普通的Form窗体一样。ActiveX控件的属性，方法和事件由UserControl对象的成员来实现。通过封装，这些成员对于用户来说可以是不可见的。
在这里我将用一个非常简单的例子说明如何从零开始制作一个自己的控件。我们要做的控件是一个能显示系统时间的控件。这里是为了是从来没制作过控件的同学而准备的，在下一篇文章中我将介绍更加复杂的ActiveX控件的创建方法。
1、创建一个ActiveX控件工程
　　在“文件”选单中选择“新建工程”，然后双击“ActiveX控件”图标，生成一个控件工程项目（缺省名UserControl1）。此时设计窗口显示一个类似于窗体的界面（无边框），其属性窗口也类似于窗体的属性窗口，只是有很多熟悉的属性没有了，且还有一些一般窗体不具有的属性。选取“工程选单”最下面的“UserControl1属性”项，在出现的对话框中改工程名称为“MyControl”。在属性窗口中改控

Answer 2

Option Explicit
Event Click()

Private Sub UserControl_Click()
RaiseEvent Click
End Sub

'这样控件就有 单击事件了