第16章 文件访问和管理16.1文件基本类和异常16.2 文件打开/保存控件16.3 文件打印/预览控件16.4 编制“记事本”程序16.1 文件基本类和异常n.NET文件类：表16-1n.NET文件异常：表16-2n.NET文件访问机制：文件流n文件流：一系列字节，也叫字节流。n字节流类：FileStreamn文件种类：文本文件、二进制文件n文本文件字节流类：n读文件时使用StreamReadern写文件时使用StreamWritern二进制文件字节流类：n读文件时使用BinaryStreamReadern写文件时使用BinaryStreamWritern读文件步骤：n确定文件是否存在n打开文件n创建读流：StreamReader、BinaryReadern使用reader方法读文件n关闭文件16.1 文件基本类和异常n写文件步骤：n打开文件n如果文件已经存在，应确定是覆盖文件还是在原 来文件后添加新数据n创建写流：StreamWriter、BinaryWritern使用Write方法写文件n关闭文件16.1 文件基本类和异常n名称空间： Imports System.IOnFile类：用于打开文件，成员见表16-3。n打开文件方法：使用Open、OpenText方法n关闭文件方法：使用Close方法nFileStream类：用于得到被打开文件的字节流。nFileMode枚举：用于指定打开文件的模式。枚举值 见表16-4。nFileAccess枚举：用于指定文件操作模式。枚举值 有Read、Write、ReadWrite。16.1 文件基本类和异常n.NET文件访问操作方法灵活、多样：本章只介绍最 简单的方法。n代码示范1： Dim fs As FileStream fs=File.OpenText(“a.txt”) fs.Close()16.1 文件基本类和异常n代码示范2： Dim fs As FileStream Tryfs=File.OpenText(“a.txt”)fs.Close() Catch ex As FileNotFoundExceptionMsgBox(“文件不存在。”) End Try16.1 文件基本类和异常n代码示范3： Dim fs As FileStream Tryfs=File.Open(“a.txt”， FileMode.Open) Catch ex As FileNotFoundExceptionfs=File.Open(“a.txt”， FileMode.Create，_ FileAccess.ReadWrite) End Try fs.Close()16.1 文件基本类和异常nStreamReader类：用于读取文件。n示范代码：假设有文本框TextBox1，将文件a.txt打 开并读入到TextBox1中。 Dim fs As StreamReader Tryfs=File.OpenText(“a.txt”)TextBox1.Text=fs.ReadToEndfs.Close() Catch ex As FileNotFoundExceptionMsgBox(ex.Message) End Try16.1 文件基本类和异常nStreamReader类：用于读取文件。n示范代码：可以用StreamReader类的构造函数来 打开文件 TryDim fs As New StreamReader (“a.txt”)TextBox1.Text=fs.ReadToEndfs.Close() Catch ex As IOExceptionMsgBox(ex.Message) End Try16.1 文件基本类和异常nStreamWriter类：用于写出文件。n示范代码：假设有文本框TextBox1，将TextBox1 中内容写到文件a.txt中。 Dim fs As StreamWriter Tryfs=File.OpenText(“a.txt”， FileMode.Create)fs.Write(TextBox1.Text)fs.Close() Catch ex As IOExceptionMsgBox(ex.Message) End Try16.1 文件基本类和异常nStreamWriter类：用于写出文件。n示范代码：可以用StreamWriter类的构造函数来打 开文件 TryDim fs As New StreamWriter (“a.txt”)fs.Write(TextBox1.Text)fs.Close() Catch ex As IOExceptionMsgBox(ex.Message) End Try16.1 文件基本类和异常16.2 文件打开/保存控件nOpenFileDialog控件：图16-4，用于打开文件。nSaveFileDialog控件：图16-5 ，用于保存文件。n重要属性：nInitialDirectory：对话框打开时的初始路径nFilter：对话框文件类型下拉列表中的选项nFileName：对话框文件名栏目中的文件名n打开方法：ShowDialogn返回值：nDialogResult .OKnDialogResult .CancelnOpenFileDialog示范代码： Dim fd As New OpenFileDialog() fd.Filter=“All files|*.*|Text Files|*.txt” fd.InitialDirectory=“C:” If fd.ShowDialog=DialogResult . OK THenDim fs As New StreamReader (fd.FileName)TextBox1.Text=fs.ReadToEndfs.Close() End If16.2 文件打开/保存控件nSaveFileDialog示范代码： Dim fd As New SaveFileDialog() fd.Filter=“All files|*.*|Text Files|*.txt” fd.InitialDirectory=“C:” If fd.ShowDialog=DialogResult . OK THenDim fs As New StreamWriter (fd.FileName)fs.Write(TextBox1.Text)fs.Close() End If16.2 文件打开/保存控件16.3 文件打印/预览控件nPrintDialog控件：用于打印文件。nPrintPreviewDialog控件：用于预览打印文件。nPageSetupDialog控件：用于设置打印页面。n打开方法：ShowDialogn返回值：nDialogResult .OKnDialogResult .Canceln属性Document：指定要打印的文件，是PrintDocument类。nPrintDocument类：n定义对象方法1：使用下列语句 Imports System.Drawing.Printing Dim PrintDocument1 As New PrintDocumentn定义对象方法2：从工具箱添加（推荐使用）nPrintPage事件：真正的打印/预览过程，代码必须 自编，主要使用Graphics（第十七章）。n说明：如果用方法2，可以在代码窗口建立 PrintPage的处理过程，如同建立一个控件的Click 事件处理过程一样。如果使用方法1，必须将事件处 理过程的名字、参数、Handles子句全部手工输入。16.3 文件打印/预览控件nPagePrint示范代码：Dim p As New Pen(System.Drawing.Color.Red, 3)Dim f As New Font(“宋体“, 16, FontStyle.Bold)Dim b As New SolidBrush(System.Drawing.Color.Blue)Dim bm As New Bitmap(“a.jpg“)e.Graphics.DrawImage(bm, 10, 20)e.Graphics.DrawLine(p, 10, 20, 190, 200)e.Graphics.DrawString(“Hello“, f, b, 10, 20)e.Graphics.FillRectangle(b, 60, 60, 90, 100)n说明：把打印机当成可以绘图的白纸，使用绘图工具将要打印 的内容画上去，这样可以使用任何打印机打印任何要打印的内 容。n注意：使用e.Graphics16.3 文件打印/预览控件n打印示范代码： Dim pd As New PrintDialog() pd.Document=PrintDocument1 指定打印文件 If pd.ShowDialog=DialogResult . OK ThenPrintDocument1.Print() 调用PagePrint过程。 End If16.3 文件打印/预览控件n预览示范代码： Dim pd As New PrintPreviewDialog() pd.Document=PrintDocument1 指定打印文件 If pd.ShowDialog=DialogResult . OK ThenPrintDocument1.Print() 调用PagePrint过程。 End If16.3 文件打印/预览控件n页面设置示范代码： Dim pd As New PageSetupDialog() pd.Document=PrintDocument1 指定打印文件 If pd.ShowDialog=DialogResult . OK ThenPrintDocument1.DefaultPageSettings =pd.PageSettings修改打印设置。 End If16.3 文件打印/预览控件n新建项目，使用 Imports Systems.IOn设置Form1.Text=”记事本”n增加主菜单：-文件编辑查找格式 其它-新建 复制查找滚动条 时间/日期打开 剪切查找下一个自动换行 关于保存 删除字体打印 粘贴颜色打印预览 全选背景色页面设置退出-n设置菜单项“滚动条” 属性：Checked=Truen设置菜单项“自动换行” 属性：Checked=True16.4 编制“记事本”程序n增加文本框TextBox1，设置属性n允许多行：MultiLines=Truen使之与窗体四周对齐：Dock=Filln“新建”菜单项“Click”事件代码： TextBox1.Text=”n“打开”菜单项“Click”事件代码： 见本章OpenFileDialog示范代码n“保存”菜单项“Click”事件代码： 见本章SaveFileDialog示范代码n“退出”菜单项“Click”事件代码： Me.C