VB程序设计(全套)剖析.ppt

* 9.3 常用的文件操作语句和函数 上一页 下一页 1. FileCopy语句 复制一个文件 FileCopy 源文件 , 目标文件 FileCopy语句不能复制一个已打开的文件。 2. Kill语句 删除文件 Kill 文件标识符 可以使用统配符“*”和“?” 例如：Kill *.TXT“ 3. Name 语句 重命名一个文件或目录 Name 原文件 As 新文件 不能使用统配符“*”和“?”，不能对一个已打开的文件上使用Name语句。 本章目录 * 常用的文件操作语句和函数 上一页 下一页 4. ChDrive 语句 改变当前驱动器 ChDrive 驱动器符 5. MkDir 语句 创建一个新的目录 MkDir 目录路径 6. ChDir 语句 改变当前目录 ChDir 目录路径 例如：ChDir D:\TMP 7. RmDir 语句 删除一个存在的空目录 RmDir 目录路径 8. CurDir函数 确定驱动器的当前目录 CurDir[(驱动器符] 本章目录 * 常用的文件操作语句和函数 上一页 下一页 例9.8利用ChDrive和ChDir语句改写例9.1的File1_DblClick()事件过程。 Sub File1_DblClick() ChDrive Drive1.Drive 设置缺省驱动器 ChDir File1.Path 设置缺省目录 RetVal = Shell(File1.FileName, 1) End Sub 例9.9 为例9.1添加过程File1_MouseDown()，使之支持Del键。 Sub File1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDelete Then ChDrive Drive1.Drive ChDir File1.Path Kill File1.FileName File1.Refresh 文件删除后更新文件列表框 End If End Sub 本章目录 * 9.4 综合应用 上一页 下一页 例9.10 设计一个图形、文本浏览器。 分析：为了显示文本文件和图像，在窗体上放置文本框和图像框。这两个控件放在同一个位置，显示图片时文本框不可见，显示文本文件时图像框不可见。 例9.11 统计文本文件中各个字母出现的个数（大小写不区分），存放在S字符串数组中，统计结果在窗体上显示出现过的字母和出现的次数。要求： (1) 统计的文件名通过文件列表框获得，文件列表框的名称为File1，文件列表框仅显示扩展名为.txt的文件。 (2) 当双击文件列表框中某个文件时，将文件内容全部读入文本框(Text1)，然后其进行统计。 本章目录 * 第十章 图形操作 10.1 图形操作基础 10.2 绘图属性 10.3 图形控件 10.4 图形方法 10.5 综合应用 本书目录 * 10.1 图形操作基础 10.1.1 坐标系统 原点 Height ScaleHeight 每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。 无论采用哪一种坐标单位，缺省的坐标原点（0，0）为对象的左上角，横向向右为X轴的正向，纵向向下为Y轴的正向。 上一页 下一页 本章目录 * 10.1.2 自行定义坐标系 上一页 下一页 本章目录 方法一：通过窗体对象的ScaleTop、ScaleLetf、ScaleWidth和ScaleHeight四项属性来实现。 属性ScaleTop、ScaleLeft的值用于控制对象左上角的坐标，它们的缺省值均为0。 属性ScaleWidth、ScaleHeight的值可确定对象坐系X轴与Y轴的正向及最大值。 Form1.ScaleWidth = -500 Form1.ScaleHeight = -400 Form1.ScaleLeft = 200 Form1.ScaleTop = 250 则该窗体的坐标系如何？ * 例10.1在Form_Paint 事件中定义窗体的坐标系。 方法二、VB还提供了Scale方法来设置坐标系。Scale方法是建立用户坐标系最方便的方法，其语法如下： [对象.]Scale [(xLeft,yTop)-(xRight,yBotton)] 其中：对象可以是窗体、图形框或打印机；（xLeft,yTop）表示对象的左上角坐标值，（xRight,yBotton）为对象右下角坐标值。