Visual Basic'te NotePad Yapmak

[yaolan]

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch HEMEN TIKLA!

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...

 

[OptiMistics]

Teşekkürler.

 

[yaolan]

Ben Teşekkür Ederim