Private Sub mnuOpen_Click()
CommonDialog1.ShowOpen
F$ = CommonDialog1.FileName
If Right(F, 3) = "rtf" Then
RichTextBox1.LoadFile F
ElseIf Right(F, 3) = "txt" Then
Open F For Input As #1
N& = LOF(1)
S$ = Input(N, 1)
Text1.Text = S
Close 1
End If
End Sub
Private Sub mnuSave_Click()
F$ = CommonDialog1.FileName
If F = "" Then
MnuSaveAs_Click
Else
RichTextBox1.SaveFile F, rtfRTF
End If
End Sub
Private Sub mnuSaveAs_Click()
CommonDialog1.ShowSave
F$ = CommonDialog1.FileName
RichTextBox1.SaveFile F, rtfRTF
End Sub
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|