[理学]第七章文件.pptVIP

即创建具有对话框特征的窗体。 例 4.10 (P113)建立一个运行程序的对话框。 属性设置 常数 值 含义 vbNormal 0 常规（默认） vbReadOnly 1 只读 vbHidden 2 隐藏 vbSystem 3 系统 vbArchive 4 上次备份后，文件已经改变 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Combo1_Click() File1.Pattern = Combo1.Text End Sub Private choicedfile As String Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_Click() If Right(Dir1.Path, 1) = \ Then choicedfile = Dir1.Path + File1.filename Else choicedfile = Dir1.Path + \ + File1.filename End If End Sub 1.文件的复制、更名、删除和属性设置 FileCopy 源文件，目标文件 Name 旧文件名 As 新文件名 Kill 文件名 例1：用 Print语句 向顺序文件写入数据 例2：用 Write语句 向顺序文件写入数据 例3：向顺序文件读出数据追加记录 例4：用Input语句从顺序文件读出数据 例5：用LineInput语句从顺序文件读出数据 例6：用Input函数从顺序文件读出数据 Private Sub Command1_Click() destfile = InputBox(请输入复制目的文件, 复制文件) FileCopy fn, destfile End Sub Private Sub Command2_Click() newname = InputBox(请输入新文件名, 重新命名) Name fn As newname End Sub Private Sub Command3_Click() msg1 = 你要删除的文件： killedfile X = MsgBox(msg1, vbYesNoCancel + vbQuestion, 数据检查框) If X = vbYes Then Kill choicedfile End If End Sub Private Sub Command1_Click() Dim s1 As String CD1.ShowSave Open CD1.filename For Output As #1 Print #1, Visual; Basic; _ ; Computer Close #1 End Sub 文件的内容： VisualBasicComputer 数据之间无分隔符 Print #1, Visual， Basic”， _ ”， Computer 每个数据占据一个输出区 文件的内容： Visual Basic Computer 提示： 一个WRITE语句输出到文件为一行 文件的内容： Visual Basic Computer Private Sub Command1_Click() Dim s1, s2, s3, s4, s5 As String s1 = Visual s2 = Basic s3 = s4 = Computer CD1.ShowSave Open CD1.f