

FARKLI KAYDET (richtextbox örneği)

‘Formunuza componentslerden Rich textbox
‘kontrolünü ,commondiologbox kontrolünü
‘ve 1 adet buton ekleyin
‘Aşağıdaki kodları formunuza kopyalayın
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Kaydet"
CommonDialog1.Filter = "Rich Text Format|*.RTF|"
CommonDialog1.FileName = "adsız"
CommonDialog1.ShowSave
RichTextBox1.SaveFile CommonDialog1.FileName
End Sub
ALINTIDIR


