Yapmak istediğim şey basılınca messagebox çıkacak Dosyanızı Kaydetmek İster misiniz diye soracak evet denilince kaydetme ekranını açacak ve kaydetmenin ardından RichTextBox u temizleyecek. Hayır denilirse sadece temizleyecek.
Sağdan soldan öğrendiklerimle aşağıdaki kodları oluşturdum. Ama deneme yapınca kırmızı olan yerde bir hata olduğunu söylüyor. Çalıştırıp evet deyince de kaydetmeden temizliyor. Sıkıntıyı nasıl düzeltebilirim ??
Dim mesaj As String
mesaj = "Dosyanızı kaydetmek ister misiniz ? "
Dim ahmet As Object
ahmet = MsgBox(mesaj, vbYesNo, "Dosyanız Silinecek!")
Dim dlg1 As SaveFileDialog = New SaveFileDialog
dlg1.Title = "Kaydet"
dlg1.Filter = "Zengin Metin Belgesi (*.rtf) |*.rtf"
If ahmet = vbYes Then
RichTextBox1.SaveFile(dlg1.FileName, RichTextBoxStreamType.RichText)
Else
RichTextBox1.Clear()
End If
If ahmet = vbNo Then
RichTextBox1.Clear()
End If
Sağdan soldan öğrendiklerimle aşağıdaki kodları oluşturdum. Ama deneme yapınca kırmızı olan yerde bir hata olduğunu söylüyor. Çalıştırıp evet deyince de kaydetmeden temizliyor. Sıkıntıyı nasıl düzeltebilirim ??
Dim mesaj As String
mesaj = "Dosyanızı kaydetmek ister misiniz ? "
Dim ahmet As Object
ahmet = MsgBox(mesaj, vbYesNo, "Dosyanız Silinecek!")
Dim dlg1 As SaveFileDialog = New SaveFileDialog
dlg1.Title = "Kaydet"
dlg1.Filter = "Zengin Metin Belgesi (*.rtf) |*.rtf"
If ahmet = vbYes Then
RichTextBox1.SaveFile(dlg1.FileName, RichTextBoxStreamType.RichText)
Else
RichTextBox1.Clear()
End If
If ahmet = vbNo Then
RichTextBox1.Clear()
End If