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文件组件的接口定义
- '*************************************************************
- '文件 : ifaceDbIniKey.cls
- '接口 : ifaceDbIniKey
- '功能 : 定义属性节点名称、节点值
- '作者 : xlFancy
- '版本 : 1.0
- '*************************************************************
- Option Explicit
- '键名
- Public Property Let KeyName(ByVal vData As String)
- End Property
- Public Property Get KeyName() As String
- End Property
- '键值
- Public Property Let KeyValue(ByVal vData As String)
- End Property
- Public Property Get KeyValue() As String
- End Property
- '*************************************************************
- '文件 : ifaceDbIniFile.cls
- '接口 : ifaceDbIniFile
- '功能 : 定义读取INI文件中使用的属性、方法
- '作者 : xlFancy
- '版本 : 1.0
- '*************************************************************
- Option Explicit
- 'INI文件节点个数
- Public Property Get Count() As Long
- End Property
- 'INI文件指定节中节点的集合
- Public Property Get Items(ByVal IndexKey As Variant) As ifaceDbIniKey
- End Property
- 'INI文件中的节名
- Public Property Let SectionName(ByVal vData As String)
- End Property
- Public Property Get SectionName() As String
- End Property
- 'INI文件完整路径名称
- Public Property Let FileName(vData As String)
- End Property
- Public Property Get<