第9章-文件管理visual-basic.pptVIP

第9章　文件管理 §9.1 公共对话框 5．“打印”对话框＊ 三、公用对话框的应用举例 §9.1 公共对话框　　回顾 §9．2　数据文件 §9．2　数据文件 　回顾 第9章　文件管理　　回顾 作业： 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， 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， ， i Msg = Msg i Next i Close #1