VİSUAL BASİCTE KAYDET-AÇ-KES-KOPYALA-YAPIŞTIR-TEMİZLE-GERİ AL-İLERİ AL-HEPSİNİ SEÇ KOMUTLARI

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

Kod:

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:

Kod:

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:

Kod:

RichTextBox1.Cut()

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

Kod:

RichTextBox1.Copy()

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

Kod:

RichTextBox1.Paste()

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

Kod:

RichTextBox1.Clear()

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

Kod:

RichTextBox1.Undo()

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

Kod:

RichTextBox1.Redo()

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

Kod:

RichTextBox1.SelectAll()