التعامل مع الأدوات (RichTextBox) لمبرمجى VB.NET2005

[MOHAMED]

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

السلام عليكم ورحمة الله وبركاته
التعامل مع الأدوات
نبدأ على بركة الله بالأداة 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
أرجو حين نقل الدرس ذكر المصدر لأن الدرس متعوب فيه والله تعالى أعلم بذلك ...
فقط ضع العبارة التالية حين نقل الدرس
المصدر : منتدى رياض الجنة (montada.khaledbelal.net)

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

[microtop]

جزاك الله خيرا وبارك الله فيك اخى الكريم موضوع رائع
والى الامام ان شاء الله

[MOHAMED]

شكراً أخى الكريم لمرورك وإنه لشرف لى ,,,