VB语言第9章教案
合集下载
vb第9章
（3） 下面的子程序用来计算并显示出各地的时间：
Private Sub clock(dt) t$ = Time$ hr = Val(Left(t$, 2)) + dt If hr >= 24 Then hr=hr-24 t1$ = Str$(hr) t2$ = Mid$(t$, 3, 6) Label1.Caption = t1$ + t2$ For I=1 to 100 Beep Next i End Sub
图9.5
LoadPicture函数的作用是把图形文件调入内存。 它的一般形式为： [对象.]Picture = LoadPicture（″文件名″） 其中的“对象”指的是窗体、图片框、图像框等， 默认为窗体。 运行这个程序，单击“装载”命令按钮，clock.wmf 图形文件所对应的图形被装入图片框中，运行结果 如图9.6所示。
使用Beep方法能够发出蜂鸣声。一般来说，执行一 次Beep，发出的声音很短，难以听到，所以用一个 For循环，多次执行Beep。 运行结果如图9.11所示。
图9.11
【例9.6】在一个画面上轮流显示一本书的各章目 录。程序运行时的屏幕显示如图9.12和图9.13所示 （请注意图片中的文字不同）。 属性设置见表9.4（见书194页）。 在窗体中画一个大的图像框，见图9.14，准备在上 面装入背景图案。标签在图像框的上部，准备用来 显示书的目录。其BackStyle属性值为 “0Transparent”，含义是“背景是透明的”。这样， 在背景画面上显示文字时标签不会挡住后面的图像， 能够取得比较好的效果（如取1-Opaque，则标签 为不透明）。计时器放在右下角，但在运行时它就 消失了。
（4） 用“编辑”菜单中的“粘贴”命令将剪贴板 上的图形粘贴到图片框中（如图9.4所示）。 实际上，并不是只有用图形软件制作的图形才能装 入图片框，凡是能放到Windows剪贴板上的图形， 都可以用Visual Basic的“编辑”/“粘贴”命令剪贴 到图片框中。 除上述两种方法外,还能够在程序运行中把图片加 载到图片框中。
Visual Basic大学应用教程 -VB课件第9章-156
第9章 其他控件及应用
9.1 ActiveX控件简介 9.2 多媒体控件 9.3 RichTextBox控件
1
VB程序设计与数据库应用
9.1 ActiveX控件简介
9.1.1 什么是ActiveX 控件
ActiveX控件以前也被称为OLE控件 ActiveX控件是VB内部控件的扩充 所有支持ActiveX技术的软件都可以使用
14
VB程序设计与数据库应用
习题 9 解题思路
9-7 添加CommonDialog控件用于打开调色板，在 “格式”菜单中添加“颜色”项，在相应的 Click( )事件中将RichTextBox控件的SelColor 属性设为CommonDialog控件返回的颜色 （Color属性）。
9-8 添加ToolBar和ImageList控件（方法见本书第 6章），在工具按钮按下时调用相应的菜单事 件。
–LoadFile方法用于将文件加载到RichTextBox控件 –SaveFile方法用于保存文件
12
VB程序设计与数据库应用
9.3.3 用RichTextBox控件进行文字处理
1. “RTFEdit”程序介绍
–单窗体标准EXE程序 –窗体上有“文件”、“格式” 菜单和1个
RichTextBox编辑框
–使用MMControl控件的Command属性发送MCI 命令
–Command属性的数据类型为String型
7
VB程序设计与数据库应用
9.2.2 使用MMControl控件
3. 播放多媒体 –设置MMControl控件的DeviceType属性 –设置MMControl控件的FileName属性 –向多媒体设备发送MCI命令 “Open” –播放结束后，向多媒体设备发送MCI命令 “Close”
9.1 ActiveX控件简介 9.2 多媒体控件 9.3 RichTextBox控件
1
VB程序设计与数据库应用
9.1 ActiveX控件简介
9.1.1 什么是ActiveX 控件
ActiveX控件以前也被称为OLE控件 ActiveX控件是VB内部控件的扩充 所有支持ActiveX技术的软件都可以使用
14
VB程序设计与数据库应用
习题 9 解题思路
9-7 添加CommonDialog控件用于打开调色板，在 “格式”菜单中添加“颜色”项，在相应的 Click( )事件中将RichTextBox控件的SelColor 属性设为CommonDialog控件返回的颜色 （Color属性）。
9-8 添加ToolBar和ImageList控件（方法见本书第 6章），在工具按钮按下时调用相应的菜单事 件。
–LoadFile方法用于将文件加载到RichTextBox控件 –SaveFile方法用于保存文件
12
VB程序设计与数据库应用
9.3.3 用RichTextBox控件进行文字处理
1. “RTFEdit”程序介绍
–单窗体标准EXE程序 –窗体上有“文件”、“格式” 菜单和1个
RichTextBox编辑框
–使用MMControl控件的Command属性发送MCI 命令
–Command属性的数据类型为String型
7
VB程序设计与数据库应用
9.2.2 使用MMControl控件
3. 播放多媒体 –设置MMControl控件的DeviceType属性 –设置MMControl控件的FileName属性 –向多媒体设备发送MCI命令 “Open” –播放结束后，向多媒体设备发送MCI命令 “Close”
vb基础教程第09章
9.2 Sub过程
在一个大型程序中,经常会有一段相同的代码多次出 现在程序的不同位置,而这样的结构又不宜用循环来 解决.为此,我们引入了子程序的概念——过程. Sub 过程分为通用过程,属性过程和事件过程三种类 型.通用过程完成某一特定的任务,不与任何特定的 事件或属性相联系,所以一旦确定了通用过程,就必 须由应用程序来调用,它可以存储在窗体或标准模块 中.本章我们所说的过程主要介绍的就是通用过程.
9.2.2 调用Sub过程
过程也可以通过变参(将变量作为实参)向主调程序传回一些运 算结果: 【例】编写一个过程,将传入的变量参数的值加1. Sub addVar(n As Integer) n=n+1 End Sub Private Sub Command1_Click() Dim kk As Integer kk = 1 addVar kk MsgBox kk End Sub
9.3.2 函数的调用
【例】利用梯形法求定积分.
假设函数在区间[A,B]上可积.根据数学的定义,定积分即 函数曲线与X轴及x=a,x=b所围成的面积,如图所示. 分析:为了求得这部分面积,我们不妨把区间[A,B]分成很 多份(n),每一份都形成如图所示的一个小梯形,设s为所 有小梯形的面积和.当n很大时,s近似等于所求的定积分.
9.3.1 函数的定义
建立函数的方法 建立函数的方法仍然有两种,和通用过程的 建立方法完全相同.
9.3.2 函数的调用
在VB中调用函数的方法和调用标准函数的方法 相同:
如果函数有返回值,一般按如下形式调用: 被赋值对象= 函数名(参数1, 参数2, …) 如果函数没有返回值,一般按如下形式调用: 函数名 参数1, 参数2, … 后者也能象调用Sub过程那样调用函数: call 函数名(参数1, 参数2, …)
vb9
1、打开文件
Open
文件名 For 模式 As [#]文件号
模式：Output 进行写操作 Input 进行读操作 Append 在末尾追加记录 文件号 1～511
注意： 文件名可以为字符串常量，也可以是字符变量。 Freefile()获得可利用的文件号。
9.2.2 常用语句和函数
(1) 顺序文件 按顺序进行访问。读和写时必须按从头到尾的顺序 操作。 优点：结构简单。处理文本方便，数据写入顺序文 件时都被转换为ASCII码字符。顺序文件也就是文 本文件。 缺点：必须按顺序访问，不能同时进行读、写操作。
(2) 随机文件 文件中每条记录长度相同，根据记录号可直接访 问任意一个记录。优点：存取速度快。
将一个记录变量的内容，写入所打开的磁盘文件中 指定的记录位置处。如果忽略记录号，则在当前记 录前插入一条记录。
Get
[#]文件号，[记录号]，变量名
将指定的记录内容读入记录变量中。如果忽略记录 号，则表示读出当前记录后的那一条记录
例8.6 编写学生信息管理程序
第九章 数据文件
9.1 9.2 9.3 9.4
2、写操作 (1) Write
Write #文件号，[输出列表] Write在数据项之间插入“,”并给字符串加上双 引号。 例:Write #1, “One”, “Two”, 123 写入到文件后："One","Two",123
9.2.2 常用语句和函数
(2) Print
选择“添加数据”，则将一个学生的学号、姓
名和成绩（Integer）添加到Score.txt文件中 选择“读取数据”，则从文件读取数据并计算 总分和平均成绩，最后送入文本框。
VB教程(第2版) 第9章 鼠标、键盘和OLE
9.1.1 鼠标事件
当在图片框中移动鼠标时，不断地画线和画方块，实现连续画线和方块。 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '在图片框中移动鼠标 If Button = 1 And C2 = 1 Then Select Case C1 Case 1 Picture1.Line -(X, Y) Case 2 Picture1.Line (X1, Y1)-(X, Y), , BF End Select End If End Sub
9.1.1 鼠标事件
说明： （1）Button表示是哪个鼠标键被按下或释放。用0、1、2三个位表示鼠标 的左、右、中键，每位用0、1表示被按下或释放，三个位的二进制转换成十进 制就是Button的值，如图9.1所示，表9.1列出了按钮与常数值的对应关系。
十进制 0 1 2 3 4 5 6 7
二进制 000 001 010 011 100 101 110 111
图9.4 查看键代码
9.2 键盘事件
2. KeyPress事件 KeyPress事件是当键盘有键按下时触发的。KeyPress事件检测的键有Enter、 Tab、BackSpace以及键盘上的字母、数字和标点符号键，对于其他功能键、编 辑键和定位键，则不作响应。 语法： Private Sub 对象_KeyPress(KeyAscii As Integer) 说明： • 对象：是接受键盘事件的对象，由具有焦点的对象接收。 • KeyAscii：是按键对应的ASCⅡ码值。将keyAscii改为0时可取消本次击键， 这样对象便接收不到按键的字符。
第9章 VB控件的使用
VB控件的使用 第9章 VB控件的使用
9.1 9.2 9.3 9.4 9.5 9.6 9.7
vb程序设计基础 程序设计基础
VB中的控件 VB中的控件 控件的常用属性及默认属性 焦点和Tab Tab键顺序 焦点和Tab键顺序 控件数组 常用控件的使用 使用ActiveX ActiveX控件 使用ActiveX控件 控件应用举例
vb程序设计基础 程序设计基础
本书目录
9.5 常用控件的使用
9.5.1 命令按钮
用于程序运行时执行相应的事件 1. 属性 (1)Caption (1)Caption 命令按钮上显示的文字 (2)Default 设定该命令按钮是否为默认按钮, (2)Default 设定该命令按钮是否为默认按钮 , 其值为 True时 Enter键相当于用鼠标点击了该按钮 键相当于用鼠标点击了该按钮。 True时，按Enter键相当于用鼠标点击了该按钮。 (3)Cancel (3)Cancel 设定该命令按钮是否为Cancel按钮，其值 设定该命令按钮是否为Cancel按钮， Cancel按钮 True时 ESC键相当于用鼠标点击了该按钮 键相当于用鼠标点击了该按钮。 为True时，按ESC键相当于用鼠标点击了该按钮。 注：在一个窗体上只能有一个命令按钮设为默认按钮和 Cancel按钮 按钮。 Cancel按钮。
vb程序设计基础 程序设计基础
本书目录
(5)Style 按钮样式 (5)Style Standard：默认， 0 —— Standard：默认，按钮上不能显示图形 Graphical： 1 —— Graphical：按钮上可以显示图形和文字 (6) Picture 在按钮装入图形 (7) ToolTipText 加以文字提示 命令按钮一般接收Click Click事件 2. 事件 命令按钮一般接收Click事件
9.1 9.2 9.3 9.4 9.5 9.6 9.7
vb程序设计基础 程序设计基础
VB中的控件 VB中的控件 控件的常用属性及默认属性 焦点和Tab Tab键顺序 焦点和Tab键顺序 控件数组 常用控件的使用 使用ActiveX ActiveX控件 使用ActiveX控件 控件应用举例
vb程序设计基础 程序设计基础
本书目录
9.5 常用控件的使用
9.5.1 命令按钮
用于程序运行时执行相应的事件 1. 属性 (1)Caption (1)Caption 命令按钮上显示的文字 (2)Default 设定该命令按钮是否为默认按钮, (2)Default 设定该命令按钮是否为默认按钮 , 其值为 True时 Enter键相当于用鼠标点击了该按钮 键相当于用鼠标点击了该按钮。 True时，按Enter键相当于用鼠标点击了该按钮。 (3)Cancel (3)Cancel 设定该命令按钮是否为Cancel按钮，其值 设定该命令按钮是否为Cancel按钮， Cancel按钮 True时 ESC键相当于用鼠标点击了该按钮 键相当于用鼠标点击了该按钮。 为True时，按ESC键相当于用鼠标点击了该按钮。 注：在一个窗体上只能有一个命令按钮设为默认按钮和 Cancel按钮 按钮。 Cancel按钮。
vb程序设计基础 程序设计基础
本书目录
(5)Style 按钮样式 (5)Style Standard：默认， 0 —— Standard：默认，按钮上不能显示图形 Graphical： 1 —— Graphical：按钮上可以显示图形和文字 (6) Picture 在按钮装入图形 (7) ToolTipText 加以文字提示 命令按钮一般接收Click Click事件 2. 事件 命令按钮一般接收Click事件
第九章vb计算机
Basic程序设计 Visual Basic程序设计
9.2.3 填充与色彩
作用： 指定填充的图案(有 种内部图案 取值0-7) 种内部图案,取值 作用：FillStyle 指定填充的图案 有8种内部图案 取值 FillColor 指定封闭图形的填充颜色。 指定封闭图形的填充颜色。 颜色的设置方法： 颜色的设置方法： (1)RGB(红,绿,蓝)函数，产生某种颜色。三基色参数值使用 红 绿 蓝 函数 产生某种颜色。 函数， 0~255之间的整数。 之间的整数。 之间的整数 (2)QBColor(颜色码 函数，0~15之间的整数。 颜色码)函数 之间的整数。 颜色码 函数， 之间的整数 (3)使用六位十六进制长整型数，如&HFFFFFF&。 使用六位十六进制长整型数， 使用六位十六进制长整型数 。 (4)使用 常量，如vbRed，vbBlue等。 使用VB常量 使用 常量， ， 等 演示颜色的渐变过程。 例9.5 演示颜色的渐变过程。
2011年 21日星期三 2011年9月21日星期三 长春师范学院城市与环境科学学院
பைடு நூலகம்
Basic程序设计 Visual Basic程序设计
9.3.2 Circle方法 方法
作用： Circle方法用于画圆 椭圆、圆弧和扇形。 方法用于画圆、 作用： Circle方法用于画圆、椭圆、圆弧和扇形。 格式：[对象 格式： 对象.]Circle [Step] (x,y),半径 颜色][,[起始角 终止角][,长 半径[,[颜色 起始角][,[终止角 长 对象 半径 颜色 起始角 终止角 短轴比率]]]] 短轴比率 其中： 对象为窗体、图形框或打印机； 其中：①对象为窗体、图形框或打印机； 为圆心坐标， 表示当前作图位置的相对值； ②(x,y)为圆心坐标，step表示当前作图位置的相对值； 为圆心坐标 表示当前作图位置的相对值 ③ 圆弧和扇形通过参数起始角 、 终止角控制 。 当起始角 、 终 圆弧和扇形通过参数起始角、 终止角控制。 当起始角、 止角取值在0~2π时为圆弧 ， 当在起始角 、 终止角取值前加一负号时 ， π时为圆弧，当在起始角、终止角取值前加一负号时， 止角取值在 画出扇形，负号表示画圆心到圆弧的径向线； 画出扇形，负号表示画圆心到圆弧的径向线； ④椭圆通过长短轴比率控制，默认值为1时，画圆。 椭圆通过长短轴比率控制，默认值为 时 画圆。 例9.7在窗体上绘制由圆环构成的艺术图案。 构造图案的算法为：将 在窗体上绘制由圆环构成的艺术图案。 构造图案的算法为： 在窗体上绘制由圆环构成的艺术图案 一个半径为r的圆周等分为 份 以这n个等分点为圆心 以半径r1绘 个等分点为圆心， 一个半径为 的圆周等分为n份，以这 个等分点为圆心，以半径 绘 的圆周等分为 个圆。 制n个圆。 个圆
【课件】VB程序设计第2版第9章精编版
<属性名>: Name、Size、Bold、Italic、 Underline、Strikethrough
例: Form1.Font.Size = 14
Command1.Font.Italic = True 【例9-1】自学 P170 例9-1
9．MousePointer、MouseIcon属性 MousePointer属性：返回或设置一个值，指示在
Text1.Text = X : Text2.Text = Y
End Sub
9.2.2 键盘事件
1．KeyPress事件 当用户按下并释放键盘上一个会产生ASCII码的
按键时产生KeyPress事件。如按下数字键、字母键、 Tab、Enter、BackSpace、Esc等都会产生KeyPress 事件。 例如，某文本框Text1的KeyPress事件过程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) …… End Sub
Shift： 根据在按下或释放鼠标按钮时是否同时 按下Shift、Ctrl或Alt键返回一个整数。见P172
X、Y：返回鼠标指针在对象上的当前位置。默 认单位为缇。
2．MouseMove事件 当鼠标指针在对象上移动时发生该事件。 例如，窗体的MouseMove事件过程如下：
PrivateBiblioteka Sub Form_MouseMove(Button As
注意：
1) 在Label和Shape控件中，如果BackStyle属性 的设置值为0(透明)，则忽略BackColor属性。
2) 如果在Form对象或PictureBox控件中设置 BackColor属性，则所有已经打印的文本或用 绘图方法绘制的图形都将被擦除掉。
例: Form1.Font.Size = 14
Command1.Font.Italic = True 【例9-1】自学 P170 例9-1
9．MousePointer、MouseIcon属性 MousePointer属性：返回或设置一个值，指示在
Text1.Text = X : Text2.Text = Y
End Sub
9.2.2 键盘事件
1．KeyPress事件 当用户按下并释放键盘上一个会产生ASCII码的
按键时产生KeyPress事件。如按下数字键、字母键、 Tab、Enter、BackSpace、Esc等都会产生KeyPress 事件。 例如，某文本框Text1的KeyPress事件过程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) …… End Sub
Shift： 根据在按下或释放鼠标按钮时是否同时 按下Shift、Ctrl或Alt键返回一个整数。见P172
X、Y：返回鼠标指针在对象上的当前位置。默 认单位为缇。
2．MouseMove事件 当鼠标指针在对象上移动时发生该事件。 例如，窗体的MouseMove事件过程如下：
PrivateBiblioteka Sub Form_MouseMove(Button As
注意：
1) 在Label和Shape控件中，如果BackStyle属性 的设置值为0(透明)，则忽略BackColor属性。
2) 如果在Form对象或PictureBox控件中设置 BackColor属性，则所有已经打印的文本或用 绘图方法绘制的图形都将被擦除掉。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
说明： 说明：
Close语句用来关闭使用 语句用来关闭使用Open语句打开的文 语句用来关闭使用 语句打开的文 语句具有两个作用： 件。Close语句具有两个作用：一是把 语句具有两个作用 一是把Open 语句给该文件建立的文件缓冲区中的数据写 入文件中；二是释放表示该文件的文件号， 入文件中；二是释放表示该文件的文件号， 供其他Open语句使用 供其他 语句使用 语句中省略文件号， 若Close语句中省略文件号，则表示把所有用 语句中省略文件号 Open语句打开的文件全部关闭 语句打开的文件全部关闭 若不使用Close语句关闭程序，再程序结束时， 语句关闭程序， 若不使用 语句关闭程序 再程序结束时， 系统自动关闭所有打开的数据文件， 系统自动关闭所有打开的数据文件，但这将 可能使缓冲区最后的内容不能写入文件中， 可能使缓冲区最后的内容不能写入文件中， 导致写操作失败
程序中经常需要将大量 数据信息作为数据文件存储 在磁盘上。 在磁盘上。 VB可以处理三种类型的 VB可以处理三种类型的 数据文件，即顺序文件、 数据文件，即顺序文件、随 机文件和二进制文件， 机文件和二进制文件，并且 提供了与文件处理有关的控 件。
第9章 数据文件
文件是指存放在外存储器(如磁盘)上的信息集合 可以将应用程序所处理的数据以文件的形式保存起来
·ReadWrite
“读写皆可” 读写皆可” 读写皆可
9.1.4 文件的关闭
打开文件并对文件的读写操作结束后，应将文件关闭！ 打开文件并对文件的读写操作结束后，应将文件关闭！
格式如下： 格式如下： Close [[#]文件号][,[#]文件号]…… [[#]文件号 文件号][,[#]文件号 文件号]…… 如：Close #1，#2，#3 ， ，
【例9.4】把一个文本文件的内容读到内存并在文本框中 把一个文本文件的内容读到内存并在文本框中 显示出来， 显示出来，然后把该文本文件的内容存入另一个文本文 件。
本章主要内容
数据文件概述 顺序文件的写入
顺序文件的读取
文件基本操作 课堂练习
9.1 数据文件概念 9.1.1 数据文件的结构
数据文件由记录组成，记录由字段组成，字段由字符组成
字段 学号 姓名 951001 张三 记录1 记录 学号 姓名 … 951002 李四 记录2 记录 数据文件
…
…………
9.1.2文件的分类 文件的分类
9. 2 顺序文件的读写操作
语句或Write#语句，在程序是 语句， 向文件写入内容使用 Print # 语句或 语句 数据输出。 数据输出。 1．Print语句 ． 语句 使用格式：PRINT #<文件号 ，[<输出列表 文件号>， 输出列表 输出列表>] 文件号 说明： 说明：文件号为以写方式打开文件的文件号； 输出列表为用分号或逗号分隔的变量、常量、空格。 2．Write命令 ． 命令 使用格式：Write #<文件号 ，[<输出列表 文件号>， 输出列表 输出列表>] 文件号 Write语句采用紧凑格式。数据项之间插入“,”，并给字符数 据加上双引号。
2. Line Input #语句 语句
格式： 文件号， 格式：Line Input #文件号，字符串变量 文件号 功能：从顺序文件中读取一个完整的行， 功能：从顺序文件中读取一个完整的行，并把它赋 给一个字符 串变量 说明： 语句读取一行中的全部字符， 说明：Line Input #语句读取一行中的全部字符，包 语句读取一行中的全部字符 括空格、 括空格、 逗号、双引号，直到遇回车符为止，常用来复制文 逗号、双引号，直到遇回车符为止， 本文件
3. Input函数 函数
格式： 文件名） 格式：Input（n，[#]文件名） （ ， 文件名 功能：返回从顺序文件中读取的n个字符的字符串 功能：返回从顺序文件中读取的 个字符的字符串 说明：Input函数返回的字符串中包含读到的所有字 说明： 函数返回的字符串中包含读到的所有字 符，包括作 为前导的空格、逗号、 为前导的空格、逗号、双引号和回车换行符 使用Input函数可以将一个文件的内容一次性读出， 函数可以将一个文件的内容一次性读出， 使用 函数可以将一个文件的内容一次性读出 存放在一个变量中， 存放在一个变量中， 如：x$=Input(LOF(1),#1)
Print与Write语句输出数据结果比较 语句输出数据结果比较。 例： Print与Write语句输出数据结果比较。 Private Sub Form_Click() Dim Str As String, Anum As Integer Open "D:\Myfile.dat" For Output As 1 Str = "ABCDEFG" Anum = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub
从文件“num2.txt”中读取数据 例9.2 从文件“num2.txt 中读取数据 已知文件“num2.txt”中存放一批能被7整除 的数(见例9.1)，现要求把这些数显示出来。 Private Sub Fom_click() Open "num2.txt" For Input As #1 Do While Not EOF(1) '文件未结束时，循环 Input #1, x Print x Loop Close #1 End Sub
例9.3 编程将一文本文件的内容读到文本框
假定文本框名称为txtTest，文件名为MYFILE.TXT。 可以通过下面三种方法来实现。 方法1： 方法 ：一行一行读 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData+chr(13) +chr(10) Loop Close #1
各数及能被7整除的数分别存入两个文件中 例9.1 把1～50各数及能被 整除的数分别存入两个文件中 ～ 各数及能被 把1～50的50个整数，以及这些数中能被7整除 的数分别存入两个文件中，文件名为num1和num2， 文件存放在VB缺省文件夹下 Private Sub Form_Load() Open "num1.txt" For Output As #1 Open "num2.txt" For Output As #2 For i = 1 To 50 Write #1, i If i Mod 7 = 0 Then Write #2, i Next i Close #1, #2 End Sub
根据数据的使用
数据文件和程序文件
根据数据的编码方式
ASCII文件和二进制文件 文件和二进制文件
根据数据的访问模式
顺序存取文件和随机存取文件、 顺序存取文件和随机存取文件、二进制存取文件
9.1.2 文件类型
(1)顺序文件：文本文件。文件中的记录按顺序 一个接一个地排列。无法灵活地随意存取它。只适 用于有规律的、不经常修改的数据 (2)随机文件：随机文件的每一个记录都有固 定的长度，每一个记录都有记录号，这种文件的特 点是允许用户存取文件中任一个记录。可以同时进 行读或写操作存入和读出速度较快，数据容易更新 (3)二进制文件：是字节的集合、它直接把二 是字节的集合、 是字节的集合 进制码存放在文件中。 进制码存放在文件中。
9.1.3
文件处理的一般步骤
(1) 打开(或新建)文件 (2) 进行读、写操作
系统设置文件指针，用来记住当前读写的位置
(3) 关闭文件
9.1.3文件的打开 文件的打开
格式： 文件名” 模式][Access操作类型 锁定 As 操作类型][锁定 格式： Open “文件名” [For 模式 文件名 操作类型 锁定] [#]文件号 [Len=记录长度 记录长度] 文件号 记录长度 文件号：（ 文件号：（1~511）锁定： ：（ ）锁定： Shared(缺省）：共享 缺省）： 以写的模式打开D盘Data文件夹下的 文件夹下的notice.dat文件 例：以写的模式打开 缺省）：共享 盘 文件 当打开一个文件并为它指定一个 文件夹下的 模式： 模式： 操作类型： 操作类型 Lock Read:禁止其它任务“#1 ： 禁止其它任务“ 禁止其它任务 Open 文件号后， “D:\Data\notice.dat” 文件号后，该文件号就代表该文 For Output As 读”该打开文件 ·Output “写”操作 写Lock ·Read 只读” 只读 ………… ： 写 文件 以读的模式打开当前文件夹下的mine.dat文件 例：以读的模式打开当前文件夹下的 件直到文件被关闭后， Write： 件直到文件被关闭后，此文件号 ……………“写” “只读” ·Input “mine.dat” For Input As #2 “读Lock 。 读”操作 读 写”…… Open ·Write 只写” 才可以再被其它文件使用。 只写 才可以再被其它文件使用ReadWrite…………“读、“只写” ·Append 将数据追加到文件末尾
9.2. 2 向顺序文件添加数据 添加数据
格式： 格式： Open 文件名 [For Append ] As [#]文件号 文件号 write #文件号 [，数据列表 文件号 ，数据列表] close #文件号 文件号 说明： 说明： For Append：对文件执行写操作时写入的数据将追 ： 加到文件尾部。： 方法 ：一次性读 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1 方法3： 方法 ：一个个字符读 Dim InputData as String*1 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 Do While Not EOF(1) Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData Loop Close #1