كودالحفظ((save))وال((save As))

كود الحفظ

((save as)):

SaveFileDialog1.DefaultExt = "rtf"

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

richexample.SaveFile(SaveFileDialog1.FileName)

End If

Name = SaveFileDialog1.FileName

اما ال((save)):

If Name = "" Then

saveas.PerformClick()

Else

richexample.SaveFile(Name)

End If