Visual Basic'te NotePad Yapmak

Bugün sizlerle Visual Basic'te kaydetme ve açma fonksiyonlu bir NotPad, yani Not Defteri yapmayı öğreneceğiz.

Merhaba Arkadaşlar

Bugün sizlerle Visual Basic'te kaydetme ve açma fonksiyonlu bir NotPad, yani Not Defteri yapmayı öğreneceğiz.

İlk olarak formumuza bir Rich Text Box, 9 buton, 1 Save Dialog ve 1 Open Dialog ekleyelim.

Butonlarımızın ismi sırayla şöyle olsun: Kaydet, Aç, Kes, Kopyala, Yapıştır, Temizle, Geri Al, İleri Al, Hepsini Seç.

Kaydet butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


Try

            Dim d1g As SaveFileDialog = New SaveFileDialog

            d1g.Title = "Save"

            d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"

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

                RichTextBox1.SaveFile(d1g.FileName, RichTextBoxStreamType.RichText)

            End If

        Catch ex As Exception



        End Try



Aç butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


Try

            Dim d1g As OpenFileDialog = New OpenFileDialog

            d1g.Title = "Open"

            d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"

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

                RichTextBox1.LoadFile(d1g.FileName)

            End If

        Catch ex As Exception



        End Try



Kes butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


RichTextBox1.Cut()



Kopyala butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


RichTextBox1.Copy()



Yapıştır butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


RichTextBox1.Paste()



Temizle butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


RichTextBox1.Clear()



Geri Al butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


RichTextBox1.Undo()



İleri Al butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


RichTextBox1.Redo()



Hepsini Seç butonuna çift tıklayalım ve kod bölümüne şunları yazalım:


RichTextBox1.SelectAll()



Bu dersimizin sonuna geldik. Bir dahaki dersimizde görüşmek üzere...
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Teşekkür ederim emeğine sağlık , iyi bir çalışma . Peki bunun Renk Değiştirme Yazı Tipi Filan onları nasıl yapabilirz?
Font Değiştirme ------------------------------------------- Dim dlg As New FontDialog dlg.ShowEffects = True dlg.FontMustExist = True dlg.Font = RichTextBox1.SelectionFont If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.SelectionFont = dlg.Font RichTextBox1.Focus() End If ------------------------------------------- Renk Değiştirme İlk önce Public Class\'ın altına şunu yaz: Dim ozelrenk As Integer() = {} Sonra şu kodları renk değiştirme butonuna yaz: -------------------------------------------- Dim dlg As New ColorDialog dlg.AllowFullOpen = True dlg.CustomColors = ozelrenk dlg.AnyColor = True If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then ozelrenk = dlg.CustomColors RichTextBox1.SelectionColor = dlg.Color RichTextBox1.Focus() End If --------------------------------------------

Yukarı Git