中国民航飞行学院Visual Basic 程序设计课件第八章 文件.pptVIP

中国民航飞行学院Visual Basic 程序设计课件第八章 文件.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第八章 文 件 8.1 文件的基本概念 8.2 文件控件 8.3 顺序文件 8.4 随机文件 8.5 二进制文件 顺序文件 8.1.1 顺序文件和随机文件 随机文件 随机文件是由大小相同的记录组成,每个记录中包含记录号和字段。 8.1.2 文本文件和二进制文件 1. 文本文件 又称ASCII文件,它是以ASCII码的方式进行存储的,这种文件可以用字处理软件建立或修改。 2. 二进制文件 二进制文件中的数据均以二进制方式存储,适用于读写任意结构的文件,其存储单位是字节,可按各种方式对其进行存取,如随机文件按记录存取,顺序文件按行存取。二进制文件不能用一般的字处理软件进行编辑。 8.1.3 文件的存取类型 1. 顺序存取 由于顺序文件按行存储,通常它是一个文本文件。顺序存取方式适用于以连续方式存取的文本文件。在文件中,数字和字符均以ASCII码形式存储。 2. 随机存取 随机存取操作实际上是对文件中的记录进行操作,每个记录都有记录号并且记录长度全部相同。适用于有固定结构的二进制文件。 3. 二进制存取 适用于读写任意结构的文件,与随机存取很相似。二进制存取方式与随机存取方式的不同之处在于二进制存取可以定位到文件中的任一字节,而随机存取必须定位到文件中记录的边界上。 8.1.4 文件的操作 1. 文件的打开或创建 Open 文件名 For 方式 [Access 存取类型] [锁定] As [#]文件 _号 [Len=记录长度] 2. 文件的读写 文件的读操作是指把文件中的数据传送到内存的操作,文件写操作是指把内存中的数据存入磁盘文件的操作 3. 文件的关闭 Close [[#]文件号] [, [#]文件号] ... 8.1.5 其他文件操作语句和函数 1. LOF 函数 函数调用格式:LOF(文件号) LOF函数返回被打开文件的大小 2. LOC 函数 函数调用格式:LOC(文件号) LOC函数返回被打开文件的当前读写位置 3. EOF 函数 函数调用格式:EOF(文件号) EOF 函数返回被打开文件是否到了文件末尾。返回值为True,表示到达文件末尾;否则返回值为False。 4. FreeFile 函数 FreeFile函数的返回值是一个在程序中没有使用的文件号 5. FileAttr 函数 函数调用格式:FileAttr(文件号,属性) FileAttr函数的返回值是所打开文件的相关属性。 6. Lock 函数与Unlock 函数 函数调用格式: Lock[#]文件号[,记录|[开始] To 结束] ...... Unlock[#]文件号[,记录|[开始] To 结束] Lock函数与Unlock函数用于对文件的锁定和解锁。 8.2 文件控件 驱动器列表框(DriveListBox) 目录列表框(DirListBox) 文件列表框(FileListBox) 常见属性 常见事件 界面设计 窗体加载事件 Private Sub Form_Load() PatternList.AddItem (*.bmp) PatternList.AddItem (*.jpg;*.jpeg) PatternList.AddItem (*.*) FileList.Pattern = PatternList.List(PatternList.ListCount - 1) Image1.Stretch = True End Sub 目录列表框、驱动器列表框事件 Private Sub dirList_Change() FileList.Path = DirList.Path End Sub Private Sub drvList_Change() DirList.Path = DrvList.Drive End Sub 文件列表框点击事件 Private Sub fileList_Click() If Right(DirList.Path, 1) \ Then Image1.Picture = LoadPicture(FileList.Path + \ + FileList.FileName) Else Image1.Picture = LoadPicture(FileList.Path + FileList.FileName) End If End Sub 组合框点击事件 Private Sub

您可能关注的文档

文档评论(0)

ormition + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档