ActiveX控件的创建(3)

（5）实现控件的外观

　　 确定控件外观的方式取决于当前控件的创建模型。如果要创建一个用户绘制控件，那么必须自己在UserControl_Paint 事件过程编写代码来完成所有的绘制工作，同时还需要确定何时绘制控件，以便在需要的时候调用UserControl的Refresh方法来产生Paint 事件。如果是改进一个现有控件，那么只需正确地将组成控件放置在UserControl上即可。

　　 由于DataListView控件仅包含ListView一个组成控件，那么只需简单地在UserControl1上绘出一个标准ListView控件，控件名为缺省的ListView1，即可完成外观绘制工作。

　　 为了在使用控件时，使ListView控件和自己绘制的空间相匹配，必须建立UserControl的Resize事件过程。Resize事件过程的代码如下：

Private Sub UserControl_Resize()
　　 ListView1.Left = 0
　　 ListView1.Top = 0
　　 ListView1.Width = UserControl.Width
　　 ListView1.Height = UserControl.Height
End Sub

　　 仅四行代码的Resize事件过程是简单控件的用户界面的所有必须的代码，其目的是使ListView控件和UserControl对象有相同的尺寸。

（6）实现控件的接口和功能

　　 这是整个创建过程中最核心、最重要也是最复杂的步骤。对于创建控件的每一属性、事件和方法均需逐一实现。

◆创建DataServerName属性

　　 要创建DataServerName属性值，首先需要添加一个在内部存贮属性值的局部变量。要做到这一点，在UserControl对象的Genaral Declarations通用声明语句中创建此变量。如下所示：

Dim m_DataServerName As String

　　 接着需要创建称为DataServerName的新属性，可以通过手工输入Get和Let过程，或者选择【工具】|【添加过程】|【类型】创建这个新属性。DataServerName属性的代码相当容易理解。当置DataServerName属性的值时，Property Get过程仅将局部变量的存贮内容取出来。当设置DataServerName属性值时，Property Let过程将为局部变量赋予一个有效值。以下是两个Property过程的代码：

Public Property Get DataServername() As String
　　 DataServername = m_DataServerName
End Property

Public Property Let DataServername(ByVal New_DataServerName As　String)
　　 m_DataServerName = New_DataServerName
　　 PropertyChanged "DataServerName"
End Property

　　 需要注意的是在Property Let过程中，有一个PropertyChanged方法，它的功能是通知容器（可以理解为存放所有属性的单元）属性值已变更，需产生一个WriteProperties 事件，来保存新属性值。事实上不仅在Property Let过程需要调用PropertyChanged方法，在UserControl的代码模块中无论何时改变了ActiveX控件的某个属性值，均需调用该过程,以保存属性的变化。