VB6.0接口,转转转 (用VB6.0接口实现INI文件的读取组件)

VB6.0已将终结,但VB6.0的种种好令人怀念,特别是其对OO的支持...

言归正传,分享分享...

一、接口的原理 （找书看、Google、百度。。。）

 

二、接口的使用理由
    接口是一种约定，或者说是规范。使用接口可以规范自己的编程，重要是可以为他人提供修改你程序方便。
使用接口还可使程序运行提速（如: .net、c#）。

 

三、INI文件对象
    INI文件对象描述如下图示

   
    

 

    INI文件对象包括2个属性FileName、SectionName，1个方法LoadIniFile，1个索引Items（VB6.0中其实就是属性），
    节点对象只有2个属性KeyName、KeyValue。

四、接口的定义
    在VB6.0中，OO的实现都是通过Class来完成的。接口也不例外。以下是创建好的INI文件组件的接口定义

1. '*************************************************************
2. '文件 : ifaceDbIniKey.cls
3. '接口 : ifaceDbIniKey
4. '功能 : 定义属性节点名称、节点值
5. '作者 : xlFancy
6. '版本 : 1.0
7. '*************************************************************
10. Option Explicit
13. '键名
14. Public Property Let KeyName(ByVal vData As String)
16. End Property
17. Public Property Get KeyName() As String
19. End Property
21. '键值
22. Public Property Let KeyValue(ByVal vData As String)
24. End Property
25. Public Property Get KeyValue() As String
27. End Property
30. '*************************************************************
31. '文件 : ifaceDbIniFile.cls
32. '接口 : ifaceDbIniFile
33. '功能 : 定义读取INI文件中使用的属性、方法
34. '作者 : xlFancy
35. '版本 : 1.0
36. '*************************************************************
39. Option Explicit
42. 'INI文件节点个数
43. Public Property Get Count() As Long
45. End Property
47. 'INI文件指定节中节点的集合
48. Public Property Get Items(ByVal IndexKey As Variant) As ifaceDbIniKey
49.     
50. End Property
52. 'INI文件中的节名
53. Public Property Let SectionName(ByVal vData As String)
55. End Property
56. Public Property Get SectionName() As String
58. End Property
60. 'INI文件完整路径名称
61. Public Property Let FileName(vData As String)
63. End Property
64. Public Property Get FileName() As String
66. End Property
68. '读取INI文件
69. Public Sub LoadIniFile(Optional ByVal FileName As String, Optional ByVal SectionName As String)
71. End Sub

五、接口的实现
    在VB6.0中，通过对接口的继承来完成接口的