NotePad Programı Yapımı - Visual Basic

ads

ads

Bu derste NotePad Yapmayı anlatacağız  Kaydetme ve açma özellikli  bir NotePad ( not defteri ) yapmayı öğreneceğiz.


Form'a eklenecek araçlarımız;

1 Adet   Rich Text Box 9 tane button 1 adet Save Dialog ve bir tane de Open Dialog ekleyiniz.

Form'a gerekli araçlarımızı ekledikten sonra Button'larımızı isimlendirelim isimleri sırasıyla aşağıdaki gibi olsun.

* Kaydet
* Aç
* Kes
* Kopyala
* yapıştır
* temizle
* Geri al
* İleri al
* Hepsini seç

Kaydet Buttonuna  çift  tıklayın ve aşağıdaki kodları yazın

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ç Buttonuna çift tıklayın ve aşağıdaki kodu yazın.

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ıklayın ve aşağıdaki kodu yazın.

RichTextBox1.Cut()

Kopyala butonuna çift tıklayın ve aşağıdaki kodu yazın.

RichTextBox1.Copy()

Yapıştır butonuna çift tıklayın aşağıdaki kodu yazın

RichTextBox1.Paste()

Temizle butonuna çift tıklayın ve aşağıdaki kodu yazın.

RichTextBox1.Clear()

Geri Al butonuna çift tıklayın aşağıdaki kodu yazın.

RichTextBox1.Undo ()

İleri Al butonuna çift tıklayın aşağıdaki kodu yazın.

RichTextBox1.Redo()

Hepsini Seç butonuna çift tıklayın aşağıdaki kodu yazın..

RichTextBox1.SelectAll()

Kolay gelsin...

ads