当前位置：文档之家 › VB程序设计 第九章 文件

VB程序设计 第九章 文件

  • 格式：doc
  • 大小：232.50 KB
  • 文档页数：22

第九章文件主要内容●文件系统控件●文件的读写●常用的文件操作语句和函数文件是存储在外部介质（如磁盘）上的以文件名标识的数据集合。

计算机处理的大量数据都是以文件的形式存放在外部介质上的，操作系统也是以文件为单位管理数据的。

要想访问外部介质上的数据，必须先按文件名找到指定的文件，然后再从该文件中读取数据。

要想把数据存储到外部介质上也必须先建立一个文件（以文件名标识）才能向外部介质上输出数据。

9．1 文件系统控件文件系统控键有三种：驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框(FileListBox)。

三种控件的Name缺省属性分别是Drive1、Dir1、File1。

1. 驱动器列表框（DriveListBox）Drive属性—指定驱动器，只能在运行时引用或设置。

引用格式：[对象.]Drive [= drive]Change事件当重新设置Drive属性时发Change事件2. 目录列表框（DirListBox）Path属性–确定路径，只能在运行时引用或设置。

引用格式：[对象.]Path [= pathname]Change事件当重新设置Path属性时触发Change事件3. 文件列表框(FileListBox)Path属性-显示选定文件的路径，只能在运行时引用或设置(属性窗口不可见)。

Pattern属性 -- 显示的文件类型（默认值是*.*，即所有类型的文件）。

引用格式：[对象.]Pattern [= value]例如：filFile1.Pattern = “*.frm”，则在文件列表框内仅显示窗体（*.frm）文件。

FileName属性—只能返回选定文件的文件名（属性窗口不可见）引用格式：[对象.]FileName [= pathname]FileName在引用时只返回文件名，它相当于File1.List(File1 .ListIndex)，还需用Path属性获取FileName所在路径；设置时可带路径。

说明：文件控件的List属性（是一个包含文件控件列表内所有文件名的数组）和ListIndex（反映L ist数组的下标）属性在文件控件属性窗口不可见，只有在设计程序代码时在提示窗口中可见。

PathChange和PatternChange事件当重新设置Path属性引发PathChange事件。

当重新设置Pattern属性引发PatternChange事件。

参见myvb\ex9_b1\工程1.VBPPrivate Sub File1_Click()Print File1.List(0) ‘显示文件控件File1内的第一个文件名Print File1.List(File1.ListIndex)‘显示刚才被单击的文件名Print File1.FileName ‘显示刚才被单击的文件名Print File1.List(File1.ListCount - 1)‘显示文件控件File1内的最后一个文件名Print File1.Pattern ‘显示文件控件File1内所有文件的扩展名Print File1.Path ‘显示文件控件File1内所有文件的目录路径（含盘符）End SubDblClick事件：例如，双击执行可执行程序Sub filFile_DblClick( )ChDir (dirDirectory.Path) ’改变当前目录RetVal = Shell(filFile.FileName, 1)’执行程序End Sub说明：由于“文件”本身具有Normal、ReadOnly、Archive、Hidden及System 属性，因此一般情况下，在文件列表框中是不显示隐藏属性文件的，若想显示，则应将文件列表框中的Hidden属性设置为True,其含义是“要看见隐藏文件”。

出该文件名，双击一个可执行文件的文件名时就运行该程序。

[例9.1]在myvb\ex9_1\ex9_1.vbp 下（三个文件控件之间的连动）窗体Form2代码Public Fname As String '文件标识符,窗体2中定义的全局量Private Sub Dir1_Change() '将完整的目录路径送给文件列表Path 属性 File1.Path = Dir1.Path 'path 属性在属性窗口不可见End SubPrivate Sub Drive1_Change() '改变目录列表中Path 属性的驱动器名Dir1.Path = Drive1.Drive 'path 属性在属性窗口不可见End SubPrivate Sub Form_Load()Combo1.AddItem "所有文件"Combo1.AddItem "工程、窗体文件"Combo1.AddItem "图形、图像文件"Combo1.ListIndex = 0 '指定组合列表框默认显示"所有文件"File1.Pattern = "*.jpg;*.gif;*.ico;*.bmp;*.cur" '文件控件内默认列出的文件类型End SubPrivate Sub Combo1_Click() '单击组合列表框，改变文件控件内所列文件类型 Dim item As Stringitem = Choose(Combo1.ListIndex + 1, "*.*", "*.frm;*.VBP", "*.bmp;*.jpg;*.WMF;*.cur") File1.Pattern = item '确定文件列表框所列文件的类型End Sub'将此内容放在单击事件过程中也可，但单击事件在这里屏蔽了双击事件 '演示时选择一个扩展名为EXE 的文件，比如c:\windows\calc.exe (计算器),其他类型的文件不可用shell 打开Private Sub File1_DblClick()Dim Retval As Long 'Retval为Shell函数成功调用的返回值为一个任务标识 If Right(File1.Path, 1) = "\" Then '当前选定的目录是根目录Fname = File1.Path + File1.FileNameElse '当前选定的目录是子目录 Fname = File1.Path + "\" + File1.FileNameEnd IfIf Right(File1.FileName, 3) = "EXE" Or Right(File1.FileName, 3) = "COM" Then Retval = Shell(Fname, 1) '以有指针，正常窗口类型打开文件ElseForm3.ShowEnd IfEnd SubPrivate Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)'按Del键删除文件If KeyCode = vbKeyDelete Then 'Del 键扫描码ChDrive Drive1.Drive ' 设置缺省驱动器ChDir File1.Path ' 设置缺省目录Kill File1.FileNameFile1.Refresh '更新列表框End IfEnd Sub窗体Form3代码Private Sub Command1_Click() ‘显示命令'选择组合框内的所有文件或工程、窗体文件选项而显示在文件列表框内的文件即使是图形类文件也不显示If Form2.File1.Pattern = "*.*" Or Form2.File1.Pattern = "*.frm;*.VBP" Then MsgBox ("不是图形、图像文件")Print Form2.FnameElseImage1.Picture = LoadPicture(Form2.Fname)End IfEnd SubPrivate Sub Command2_Click() ‘返回命令Unload Form3End Sub9.2 文件的读写9.2.1 文件及其结构文件：存储在外部介质上的数据的集合称为文件。

文件按名存取。

1. 记录由若干个相互关联的数据项组成。

例如，由学生的学习成绩信息组成的记录，它由学号、姓名、各课成绩、总分等数据项组成。

2. 文件及其种类VB文件由纪录组成的，而记录是由字段组成的，字段是由字符组成的。

根据不同的分类标准文件可分为不同的类型。

作；关闭文件。

9.2.2 顺序访问模式1. 打开文件要对文件操作，必须首先打开文件。

格式：Open “文件名” [For 方式] [Access存取类型][lock] As [#]文件号 [Len=记录长度]文件名可以是字符串常量，也可以字符串变量(包括文件所在的目录路径)。

(1)方式OutPut- 对文件进行写操作，如果文件不存在，则创建新文件。

如果文件已存在，则覆盖文件中已有的内容。

用于顺序输出方式，打开时文件指针定位在文件开头。

InPut - 对文件进行读操作，如果文件不存在，则会出错。

Append- 在文件未尾追加纪录，不覆盖文件原有的内容。

如果文件不存在，则创建新文件。

用于顺序输出方式，打开时文件指针定位在文件的尾部。

省略方式，则默认为Random方式打开文件，对于方式为Binary的则为二进制方式打开文件。

（2）存取类型Read -(只读) 、Write - (只写)、ReadWrite -（可读可写）。

（3）lock（允许还是不允许共享该文件）-- Shared（共享）、 Lock Read(锁定读取)、 Lock Write（锁定写入）、Lock Read Write(锁定读写)。

(4) 文件号1～511，可以用FreeFile函数获得一个可利用的文件号。

FreeFile[(intRangeNumber)],有参数，返回值为1-225或256-511。

若无参数intRangeNumber就不必使用圆括号，返回值为1-255。

例如：intFileNumber=FreeFileOpen “student.dat” For Output As intFileNumber同一个文件可以用几个不同的文件号打开。

合集下载

vb第9章 文件管理

vb第9章 文件管理


2．顺序文件的读取操作
读取内容，应以input方式打开该文件。 然后可以使用以下两种语句和一个函数将文件 从盘读到内存变量中： Input #<文件号>，<变量名1>[，<变量名2>…] Line Input #<文件号>，<变量名> Input（Length，#<文件号>）
说明：
（1） Input #语句可以读取文件中的数据列。 （2）<文件号>是用Open语句打开文件时指定的文件 句柄，<变量名>为内存变量名。 （3）Line Input # 语句在读取数据时，会一直读到 回车l换行符或文件尾为止，再读则从下一行开 始。 （4） Length用来指定从文件中读取字符的长度。 另外： 用LOF（文件号）函数来返回文件的大小，以字节为 单位。 用EOF（文件号）函数来测试是否文件尾。
第9章 文件管理
第9章 文件管理
大多数的应用程序都需要读写磁盘文件。本 章主要介绍如何建立文件、读取文件、写文件等 各种操作。 9．1 公共对话框（略） 9．2 数据文件 数据文件按照其数据的存放方式，分为以下3种 类型： （1）顺序型——用于连续存放的文本数据。 （2）随机型——用于有固定长度记录结构的文 本数据或者二进制数据。 （3）二进制型——用于二进制数据。（略）
Private Sub Command2_Click() Dim lastrec As Integer With da lastrec = LOF(1) / Len(da) Put #1, lastrec + 1, da .XH = Text1(0).Text Close #1 .xm = Text1(1).Text Call Form_Load .yw = Val(Text1(2).Text) Text1(0).SetFocus .wy = Val(Text1(3).Text) End Sub .sx = Val(Text1(4).Text) End With Open "xsda2.dat" For Random As #1 Len = Len(da)
VB-第9章-图形操作(胡滨)

VB-第9章-图形操作(胡滨)


说明： 说明： FillStyle为 是实填充， 为透明方式。 （1）FillStyle为0是实填充，1为透明方式。填充图案的颜色 FillColor属性来决定 属性来决定。 由FillColor属性来决定。 对于窗体和图片框对象， 属性设置后， （2）对于窗体和图片框对象，FillStyle 属性设置后，并不能 看到其填充效果，而只能在使用Circle 看到其填充效果，而只能在使用Circle 和 Line 图形方法生 成的圆和方框时，在圆和方框中显示其填充效果。 成的圆和方框时，在圆和方框中显示其填充效果。 13
6 6
VB程序设计－第九章 图形操作 VB程序设计－ 程序设计
用户自定义坐标系统
采用Scale方法来设置坐标系： 采用Scale方法来设置坐标系： Scale方法来设置坐标系 对象.]Scale [(xLeft,yTop)[对象.]Scale [(xLeft,yTop)-(xRight,yBotton)] 例如， (150)将建立 例如，Form1.Scale (-200,250) - (300, -150)将建立 和例10.1一样的坐标系。 10.1一样的坐标系 和例10.1一样的坐标系。
9.1 9.2 9.3 9.4 图形操作基础 绘图属性 图形方法 综合应用
2 2

VB程序设计－第九章 图形操作 VB程序设计－ 程序设计
图形设计
图形设计是大多数应用程序设计中非常重要的一个环节。 图形设计是大多数应用程序设计中非常重要的一个环节。图形 表达的意思更完整、更准确， 表达的意思更完整、更准确，可以为应用程序的界面增加情 趣和艺术效果。 趣和艺术效果。 VB6为程序设计者提供了非常丰富的绘图功能。 VB6为程序设计者提供了非常丰富的绘图功能。设计程序 为程序设计者提供了非常丰富的绘图功能 不仅可以使用VB提供的图形控件画图， VB提供的图形控件画图 时，不仅可以使用VB提供的图形控件画图，还可以调用图形 方法绘制丰富多彩的艺术图形。 方法绘制丰富多彩的艺术图形。
《Visual Basic程序设计》第9章 复杂界面设计

《Visual Basic程序设计》第9章 复杂界面设计


Private Sub cmd1_Click() ' 产生第一个算式 Randomize txt1.Text = "" txt1.SetFocus x = Int(n * Rnd): y = Int(n * Rnd) lbl1.Caption = Str(x): lbl3.Caption = Str(y) If opt = 1 Then lbl2.Caption = "+" r=x+y Else lbl2.Caption = "-" r=x-y End If End Sub
2.菜单项的控制 2.菜单项的控制
（2）菜单的访问键、快捷键和分隔条 ）菜单的访问键、 当一个菜单被打开时， 当一个菜单被打开时，若可以用一 个字键选取它的项目则这个键称为菜单 项的访问键。 项的访问键。设置访问键的方法非常简 单，只要在这菜单项的标题中加入一个 引导的字即可。 由“＆”引导的字即可。 快捷键是指无需打开菜单就可以直 接由键盘输入选择菜单项的按键。 接由键盘输入选择菜单项的按键。快捷 键用于一些常用的菜单命令， 键用于一些常用的菜单命令，以便在程 序运行时快速选择。 序运行时快速选择。设置快捷键只需要 在菜单编辑器的“快捷键” 在菜单编辑器的“快捷键”列表框中选 取一个合适的快捷键便可。 取一个合适的快捷键便可。
3.菜单控件数组 3.菜单控件数组
菜单控件数组就是在同一菜单上共享相同名 称和事件过程的菜单项集合。菜单控件数组用于： ①在程序运行时要创建一个新的菜单项，它 必须是菜单控件数组的成员 ②简化代码－－通用代码可被所有菜单控件 数组元素，即每个菜单项使用。
3.菜单控件数组 3.菜单控件数组
第个菜单控件数组元素都用惟一的索引值标记， 第个菜单控件数组元素都用惟一的索引值标记， 该值由菜单编辑器上的“索引”输入框指定。 该值由菜单编辑器上的“索引”输入框指定。当一 个控件数组元素识别一个事件时，VB将Index的属 个控件数组元素识别一个事件时， 将 的属 性值作为一个附加参数传给事件过程。 性值作为一个附加参数传给事件过程。事件过程必 须包含判断Index属性值的代码，因而可以确定正在 属性值的代码， 须包含判断 属性值的代码 使用哪个菜单项。 使用哪个菜单项。 建立菜单控件数组的方法是： 建立菜单控件数组的方法是：对同级菜单的各 个菜单项赋以相同的名称，依次赋给索引值0~n-1。 个菜单项赋以相同的名称，依次赋给索引值 。 注意：菜单控件数组的各元素在菜单控件列表 注意： 框中必须是连续的，而且必须在同一个缩进级中。 框中必须是连续的，而且必须在同一个缩进级中。 创建菜单控件数组时，要把分隔条也包括进去。 创建菜单控件数组时，要把分隔条也包括进去。 使用Load方法可在菜单控件数组中添加一个菜 使用 方法可在菜单控件数组中添加一个菜 单项，使用UnLoad方法从菜单控件数组删去一个 单项，使用 方法从菜单控件数组删去一个 菜单项。 菜单项。
第9章 vb

第9章 vb

第9章 文

件

9.1 9.2 9.3 9.4 9.5 9.6
文件概述 顺序文件 随机文件访问方法 二进制文件访问方法 文件系统控件 文件操作中的常用函数和语句
第9章 文

件
本章要点 在计算机技术中，文件是一个重要的概念。本章主要 介绍文件的结构、类型和文件处理的一般步骤；顺序 文件、随机文件、二进制文件的创建、打开、存取操 作和关闭；利用文件系统控件——驱动器列表框、目 录列表框和文件列表框管理文件系统；文件操作中常 用的函数和语句。 本章难点 （1）顺序文件、随机文件和二进制文件的特点。 （2）使用顺序文件、随机文件和二进制文件的读/写操 作。 （3）文件操作函数的功能与用法。 （4）使用文件系统控件处理文件：属性和方法的使用。

9.1.3 文件基本操作
从Visual Basic的第一版直到如今，文件处理都 是通过Open语句以及其他一些相关的语句和函 数来实现的。这些机制将逐步被淘汰而转向使 用FSO对象模型，但是在Visual Basic 6.0中仍 得到完全支持。 上述三种标准文件存储方式的共同点： （1）用Open语句打开数据文件。 （2）按需要把文件记录中的各数据项读出并赋 给变量。 （3）处理变量中的数据。 （4）将处理后的数据重新输入文件记录中。 （5）用Close语句关闭文件。
9.1.2 文件的分类
（3）根据数据的编码方式，文件可以分为 二进制文件和ASCII文件。 ① 二进制文件（Binary File）：以二进 制方式保存的文件。 ② ASCII文件也称为文本文件，它是以 ASCII方式保存文件，可以用字处理软件 修改和建立。
9.1.3 文件基本操作
数据文件基础操作的一般步骤如下： （1）打开数据文件（新数据文件为建立数据文 件并且打开）。 （2）进行读/写操作。 （3）关闭数据文件。 在Visual Basic中，操作文件时务必要记住两点： （1）打开（建立）文件：一个文件必须打开或 建立后才能操作。 （2）关闭文件：将数据写入磁盘，并释放相关 的资源。