Option Explicit Private Sub Write_Click() '讀取On Error GoTo ErrHandler Form1.CommonDialog1.ShowOpen Dim OpenFile, MyString As String OpenFile = CommonDialog1.FileName Open OpenFile For Input As #1 Do While Not EOF(1) Line Input #1, MyString Text1.Text = Text1.Text & MyString & vbCrLf Loop Close #1 ErrHandler: Exit Sub End SubPrivate Sub Save_Click() '保存On Error GoTo ErrHandler Form1.CommonDialog1.ShowSave Dim SaveFile As String SaveFile = CommonDialog1.FileName Open SaveFile For Output As #1 Print #1, Text1.Text Close #1ErrHandler: Exit Sub End Sub
|
|
|
