[وعد مولود]

دوال التعامل مع Rich textbox

RichTextBox1.Clear()

Open:

Try

Dim dlg As OpenFileDialog = New OpenFileDialog

dlg.Title = "Open"

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

If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

 RichTextBox1.LoadFile(dlg.FileName)

End If

Catch ex As Exception : End Try

Save:

Try

Dim dlg As SaveFileDialog = New SaveFileDialog

dlg.Title = "Save"

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

If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

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

End If

Catch ex As Exception : End Try

Undo:

RichTextBox1.Undo()

Redo:

RichTextBox1.Redo()

Cut:

RichTextBox1.Cut()

Copy:

RichTextBox1.Copy()

Paste:

RichTextBox1.Paste()

Clear:

RichTextBox1.Clear()

Select All:

RichTextBox1.SelectAll()

Colour:

Try

Dim dlg As FontDialog = New FontDialog

dlg.Font = RichTextBox1.Font

If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then

 RichTextBox1.Font = dlg.Font

End If

Catch ex As Exception : End Try

Font:

Try

Dim dlg As ColorDialog = New ColorDialog

dlg.Color = RichTextBox1.ForeColor

If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then

 RichTextBox1.ForeColor = dlg.Color

End If

Catch ex As Exception : End Try

---

لحذف أي ملف وكل الملفات الموجودة في مسار معين

kill ( "C:\path\*.*" )