5 6 7 章
下载.....http://moke520.download.csdn.net/我是看到那校到那... so... 别太急 -.-
PS 第五章的代码格式也有点糟烂... 没放VB中看过. 存在字母错. 0 和 o 的差错也在所难免.. 呵呵...
第六七章以后的才开始把所有代码复制进 VB 代码模式校好整理好再复制回来的..
只为爱学习的同学 txt 方式可随身带着看...现在各种数码装备这么强的..txt应该通吃了的PPS.. 如. 损害到本书利益. - - .我删资源版主删贴就是了
别投诉我. 我怕怕.....p160 等于 书里 144页. 16页差距. ' p160 = 0160.jpg = 0160.jpg.txt
代码注释部分错误请无视....eg:
7.1.4 改进示例程序
就简单性来说,CFileOp类模块是一段好代码,可添加许多新特性来极大地改进它.醋忠们的观点来看,更重要的是大多数添加的特性演示了引入注目的新方法,可用事件来实现这些方法.
1. 过滤输入数据
在VB其第一版中,CFileOp类简单地解析了赋给FileSpec属性的值,并建立被拷贝文件的列表,考虑 Attributes属性的值.不幸的是,客户代码没有办法滤除特殊的文件,如临时文件.备份文件或有特殊名字的文件.然而,由于事件所提供的灵活性,可仅在几秒钟内添加此能力.只是必须对类添加一个新的事件说明段:
' In the declaration section of the CFileOp class module
Event Parsing(file As String, Cancel As Boolean)
' 并在 ParseFileSpec 全忱嘹部添加几行(用粗体字表示)语句:
'....inside the ParseFileSpec routine ' p255....239
Dim Cancel As Boolean
Do While Len(file)
Cancel = False
RaiseEvent Parsing(file, Cancel)
If Not Cancel Then
m_Filenames.Add MakeFilename(Path, file)
End If
file = Dir$
Loop
利用客户代码中的新事件甚至更容易实现这一目的.假定想从拷贝过程中去除临时文件,所做的一切只是捕获Parsing事件,当类将要拷贝一个不感必趣的文件时,设置其 Cancel 参数为True. 正如下列代码所示:
' in the client form module
Private Sub Fop_Parsing(file As String, Cancel As Boolean)
Dim ext As String
' GetExtension is a handy method exposed by CFileOp
下载.....http://moke520.download.csdn.net/我是看到那校到那... so... 别太急 -.-
PS 第五章的代码格式也有点糟烂... 没放VB中看过. 存在字母错. 0 和 o 的差错也在所难免.. 呵呵...
第六七章以后的才开始把所有代码复制进 VB 代码模式校好整理好再复制回来的..
只为爱学习的同学 txt 方式可随身带着看...现在各种数码装备这么强的..txt应该通吃了的PPS.. 如. 损害到本书利益. - - .我删资源版主删贴就是了
别投诉我. 我怕怕.....p160 等于 书里 144页. 16页差距. ' p160 = 0160.jpg = 0160.jpg.txt
代码注释部分错误请无视....eg:
7.1.4 改进示例程序
就简单性来说,CFileOp类模块是一段好代码,可添加许多新特性来极大地改进它.醋忠们的观点来看,更重要的是大多数添加的特性演示了引入注目的新方法,可用事件来实现这些方法.
1. 过滤输入数据
在VB其第一版中,CFileOp类简单地解析了赋给FileSpec属性的值,并建立被拷贝文件的列表,考虑 Attributes属性的值.不幸的是,客户代码没有办法滤除特殊的文件,如临时文件.备份文件或有特殊名字的文件.然而,由于事件所提供的灵活性,可仅在几秒钟内添加此能力.只是必须对类添加一个新的事件说明段:
' In the declaration section of the CFileOp class module
Event Parsing(file As String, Cancel As Boolean)
' 并在 ParseFileSpec 全忱嘹部添加几行(用粗体字表示)语句:
'....inside the ParseFileSpec routine ' p255....239
Dim Cancel As Boolean
Do While Len(file)
Cancel = False
RaiseEvent Parsing(file, Cancel)
If Not Cancel Then
m_Filenames.Add MakeFilename(Path, file)
End If
file = Dir$
Loop
利用客户代码中的新事件甚至更容易实现这一目的.假定想从拷贝过程中去除临时文件,所做的一切只是捕获Parsing事件,当类将要拷贝一个不感必趣的文件时,设置其 Cancel 参数为True. 正如下列代码所示:
' in the client form module
Private Sub Fop_Parsing(file As String, Cancel As Boolean)
Dim ext As String
' GetExtension is a handy method exposed by CFileOp
校验辛苦 1章收1块辛苦钱~