ActiveX控件的创建(6)

With clmX
.Text = AdoTable.Fields(I).Name
End With
Next
Dim itmX As ListItem
AdoTable.MoveFirst
Do While Not AdoTable.EOF
Set itmX = ListView1.ListItems.Add()
With itmX
If IsNull(AdoTable.Fields(0).Value) Then
.Text = "NULL"
Else
.Text = AdoTable.Fields(0).Value
End If
End With
For I = 1 To AdoTable.Fields.Count - 1
If IsNull(AdoTable.Fields(I).Value) Then
itmX.SubItems(I) = "NULL"
Else
itmX.SubItems(I)
= AdoTable.Fields(I).Value
End If
Next
AdoTable.MoveNext
Loop
ListView1.View = lvwReport
AdoTable.Close
Set Adotable=Nothing
AdoDatabase.Close
Set AdoDataBase=Nothing
Exit Sub
errorhandle:
RaiseEvent Errordatabase
End Sub

当对数据库的操作发生错误后，除了不能正常显示以外，还应通知宿主程序用户。可以通过创建一个叫做Errordatabase的事件实现上述功能。要创建这个事件，把下述代码添加到UserControl对象的GeneralDeclarations段中。

Public Event Errordatabase()

　　 此事件的工作像其他控件的事件一样。使用控件的用户可以将代码放到这个事件中，用户要做的唯一的事情就是用RaiseEvent方法激发此事件。

（7）编译控件部件（.ocx 文件）。

　　 现在已经完成了DataListView控件的创建工作，为了在DataLV工程外也可以使用该控件，只需将DataLV工程编译.ocx控件部件即可。

　　 在【工程组】窗口单击【DataLV】以选择该工程，在【文件】菜单上单击【生成DataLV.ocx】，在【生成工程】对话框中选择控件存放的目录后， 单击【确定】即可创建.ocx 文件。

　　 一旦生成了.ocx文件的控件，就可以象使用其它控件一样来随心所欲地使用它了。

　 4）结束语

　　 ActiveX技术可以灵活、高效的实现可交互、重入、重用、完全分布式、与语言无关的各种应用。随着ActiveX技术的发展，ActiveX控件在应用程序中的作用将会显得越来越重要，那么创建一个功能完善、具有自己特色的ActiveX控件就非常具有现实意义。只要掌握了创建ActiveX控件的基本方法，就不难创建自定制的可在各种应用领域使用的ActiveX控件。

　　 但是，ActiveX技术也有一些明显缺点，ActiveX技术依赖于Windows平台，对广泛应用的UNIX平台目前仍不兼容，另外 ActiveX在许多方面的性能还较弱，ActiveX技术仍需要不断完善和发展。