2015第9章 文件管理.pptVIP

第9章　文件管理 §9.1 公共对话框 5．“打印”对话框＊ 三、公共对话框的应用举例 §9．2　数据文件 Private Sub Command1_Click() CD1.Filter = 所有文件(*.*)|*.*|文本文件(*.txt)|*.txt CD1.ShowOpen RTB1.FileName = CD1.FileName End Sub Private Sub Command1_Click() CD1.ShowSave RTB1.SaveFile CD1.FileName, 1 End Sub Private Sub Form_Click() Dim i As Integer,jAs Integer, Msg As String Open Btest.Dat For Binary As #1 For i = 1 To 5 Put #1， ， i Next i Close #1 Msg = The data is : Open Btest.Dat For Binary As #1 For i = 1 To 5 Get #1， ， j Msg = Msg j Next i Close #1 MsgBox Msg Kill Btest.dat End Sub Private Sub Command1_Click() Dim S As String CD1.Filter = 所有文件（*.*）|*.*|文本文件(*.txt)|*.txt CD1.ShowOpen Open CD1.FileName For Input As #1 Text1.Text = Do While Not EOF(1) Line Input #1, S　　用Input #1, S效果会不同 Text1.Text = Text1.Text + S + vbCrLf Loop Close #1 End Sub Private Sub Command1_Click() Dim S As String CD1.Filter = 所有文件（*.*）|*.*|文本文件(*.txt)|*.txt CD1.ShowSave Open CD1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub * §9.1 公共对话框 §9.2　数据文件 §9.3 文件系统控件 §9.4 文件系统对象 * Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 对话框技术在软件中应用的非常广泛，如消息框MsgBox和输入框InputBox是两种最为简单的对话框。其次，“打开” 、“另存为” 、“颜色” 、“字体” 、“打印” 、“帮助”等对话框在软件中使用较多。为此，VB中提供了一个公用对话框控件，用于实现以上功能。 一、添加“公共对话框”控件 二、使用“公共对话框” 三、公用对话框的应用举例 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 一、添加“公共对话框”控件 公用对话框是一个外部控件，不在标准工具箱中，使用时需要设计者自己从部件中添加。具体方法为： 打开“部件”对话框 右击“工具箱”，选择“部件” “工程”主菜单选项中选择“部件” 2. 选择“MicroSoft Common Dialog Control 6.0” Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 二、使用“公共对话框” 　　“公用对话框”控件在程序运行时是一个不可见的控件。在程序代码中要用该控件的有关方法让其显示出指定格式的对话框。其方法有6种： 方　　　法 所显示的对话框 ShowOpen 显示“打开”对话框 ShowSave 显示“另存为”对话框 ShowColor 显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter