Visual Basic 2010 Express Not Defteri Yapımı

AÇ A İKİ DEFA TIKLAYIP AÇILAN PENCEREYE AŞAĞIDAKİ KODLARI YAZIN

        OpenFileDialog1.ShowDialog()
        Dim a As String = OpenFileDialog1.FileName
        Dim b As String = File.ReadAllText(a)
        RichTextBox1.Text = b



ŞİMDİ KAYDET İŞLEMİNİ YAPALIM

KAYDETE İKİ DEFA TIKLAYIP AÇILAN KOD PENCERESİNE AŞAĞIDAKİ KODLARI YAZIN


Try
SaveFileDialog1.Filter = "Metin Belgesi (*.txt)|*.txt"
SaveFileDialog1.ShowDialog()
Dim a As String = SaveFileDialog1.FileName
File.WriteAllText(a, RichTextBox1.Text)
MsgBox("Kaydedildi!!!", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox("Hata" & ex.Message, MsgBoxStyle.Critical)
End Try

ŞİMDİ DE FARKLI KAYDET İŞLEMİNİ YAPALIM

FARKLI KAYDETE İKİ DEFA TIKLAYIP AÇILAN KOD PENCERESİNE AŞAĞIDAKİ KODLARI YAZIN


Try SaveFileDialog1.Filter = "Tüm Dosyalar (*.*)|*.*"
SaveFileDialog1.ShowDialog()
Dim a As String = SaveFileDialog1.FileName
File.WriteAllText(a, RichTextBox1.Text)
MsgBox("Kaydedildi!!!", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox("Hata" & ex.Message, MsgBoxStyle.Critical)
End Try

DÜZENE GEÇELİM

GERİ AL

    RichTextBox1.Undo()

KES

   RichTextBox1.Cut()

KOPYALA

RichTextBox1.Copy()

YAPIŞTIR

   RichTextBox1.Paste()

SAAT

     RichTextBox1.SelectedText = TimeOfDay

BİÇİME GEÇELİM

YAZI TİPİ

        FontDialog1.ShowDialog()
        RichTextBox1.Font = FontDialog1.Font





Gerekenler ; (HEPSİ 1 ADET)
Fontdialog
openfiledialog
savefiledialog
richtextbox
button

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest