منتدى رياض الجنة - Riad Al-Ganah - التعامل مع الأدوات (RichTextBox) لمبرمجى VB.NET2005

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته
التعامل مع الأدوات
نبدأ على بركة الله بالأداة RichTextBox
التعامل معها ليس المقصود به تغيير حجمها وتجميلها ولكن الأكواد التى تجعلك تتعامل بطريقة صحيحة مع الأداة فى أى مشروع لك ...
نبدأ ببعض الأكواد وفائدتها
تنبيه : لا تحاول إزالة rg1 فى أى كود فهو متغير لا يستغنى عنه .. وإذا تساءلت عن rg1 فهو اختصار لجملة Riad Al-Ganah + رقم 1 ..

الكود 1 : فتح ملف باستخدام الأداة RichTextBox

اقتباس:

'لكى لا نضيع الكثير من الوقت نعلن بمتغير عن أداة جديده وهى OpenFileDialog
Dim rg1 As New OpenFileDialog
rg1.Title="فتح ملف"
'الكود التالى يتضمن الصيغ أو الامتدادت المسموح بفتحها بواسطة OpenFileDialog لعرضها فى RichTextBox
rg1.Filter="Rich Files|*.rtf|Text Files|*.txt"
If rg1.Filename="" Then Exit Sub
RichTextBox1.LoadFile(rg1.Filename)

الكود 2 : حفظ ملف باستخدام الأداة RichTextBox

اقتباس:

Dim rg2 As New SaveFileDialog
rg2.Title="حفظ ملف"
rg2.Filter="Rich Files|*.rtf|Text Files|*.txt"
If rg2.Filename="" Then Exit Sub
RichTextBox1.Savefile(rg2.filename)

الكود 3 : نسخ المحدد فى RichTextBox ود بسيط جداً

اقتباس:

RichTextBox1.Copy

الكود 4 : لصق المنسوخ فى RichTextBox

اقتباس:

RichTextBox1.Paste

الكود 5 : قص المحدد فى RichTextBox

اقتباس:

RichTextBox.Cut

الكود 6 : تحديد الكل فى RichTextBox

اقتباس:

RichTextBox1.SelectAll

الكود 7 : التعداد النقطى للـ RichTextBox

اقتباس:

Me.RichTextBox1.BulletIndent = 10
'مع العلم أن 10 حجم النقطة
Me.RichTextBox1.SelectionBullet = True

الكود 8 : إزالة التعداد النقطى للـ RichTextBox

اقتباس:

Me.RichTextBox1.SelectionBullet = False

الكود 9 : تغيير الخط فى RichTextBox

اقتباس:

Dim FontDialog1 As New FontDialog
If Not Me.RichTextBox1.SelectionFont Is Nothing Then
FontDialog1.Font = Me.RichTextBox1.SelectionFont
Else
FontDialog1.Font = Nothing
End If
FontDialog1.ShowApply = True
If FontDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.RichTextBox1.SelectionFont = FontDialog1.Font
End If

الكود 10 : تغيير اللون فى RichTextBox

اقتباس:

Dim ColorDialog1 As New ColorDialog
ColorDialog1.Color = Me.RichTextBox1.ForeColor
If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.RichTextBox1.SelectionColor = ColorDialog1.Color

End If
الكود 11 : جعل الخط مائل فى RichTextBox

اقتباس:

If Not Me.RichTextBox1.SelectionFont Is Nothing Then
Dim currentFont As System.Drawing.Font = Me.RichTextBox1.SelectionFont
Dim newFontStyle As System.Drawing.FontStyle
If Me.RichTextBox1.SelectionFont.Italic = True Then
newFontStyle = FontStyle.Regular
Else
newFontStyle = FontStyle.Italic
End If
Me.RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
End If

الكود 12 : وضع خد تحت المحدد فى RichTextBoX
If Not Me.RichTextBox1.SelectionFont Is Nothing Then

اقتباس:

Dim currentFont As System.Drawing.Font = Me.RichTextBox1.SelectionFont
Dim newFontStyle As System.Drawing.FontStyle
If Me.RichTextBox1.SelectionFont.Underline = True Then
newFontStyle = FontStyle.Regular
Else
newFontStyle = FontStyle.Underline
End If
Me.RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)

End If
الكود 13 : إدراج صورة فى RichTextBox

اقتباس:

Dim OpenFileDialog1 As New OpenFileDialog
OpenFileDialog1.Title = "إدراج صورة"
OpenFileDialog1.DefaultExt = "rtf"
OpenFileDialog1.Filter = "Bitmap Files|*.bmp|JPEG Files|*.jpg|GIF Files|*.gif"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = "" Then Exit Sub
Try
Dim strImagePath As String = OpenFileDialog1.FileName
Dim img As Image
img = Image.FromFile(strImagePath)
Clipboard.SetDataObject(img)
Dim df As DataFormats.Format
df = DataFormats.GetFormat(DataFormats.Bitmap)
If Me.RichTextBox1.CanPaste(df) Then
Me.RichTextBox1.Paste(df)
End If
Catch ex As Exception
MessageBox.Show("امتداد الصورة غير معروف", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

الكود 14 : المحاذاة فى RichTextBox

اقتباس:

'محاذاة لليسار
Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
'محاذة لليمين
Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
'محاذاة للوسط
Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center

الكود 15 : لعمل الإعادة فى RichTextBox

اقتباس:

If RichTextBox1.CanRedo Then RichTextBox1.Redo()

الكود 16 : لعمل التراجع فى RichTextBox

اقتباس:

RichTextBox1.Undo

الكود 17 : لتغيير الخلفية فى RichTextBox

اقتباس:

Dim ColorDialog1 As New ColorDialog
ColorDialog1.Color = Me.BackColor
If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
RichTextBox1.BackColor = ColorDialog1.Color
End If

أرجو حين نقل الدرس ذكر المصدر لأن الدرس متعوب فيه والله تعالى أعلم بذلك ...
فقط ضع العبارة التالية حين نقل الدرس
المصدر : منتدى رياض الجنة

والسلام عليكم ورحمة الله وبركاته