بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
التعامل مع الأدوات
نبدأ على بركة الله بالأداة 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 ود بسيط جداً
الكود 4 : لصق المنسوخ فى RichTextBox
الكود 5 : قص المحدد فى RichTextBox
الكود 6 : تحديد الكل فى RichTextBox
الكود 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
الكود 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
|
أرجو حين نقل الدرس ذكر المصدر لأن الدرس متعوب فيه والله تعالى أعلم بذلك ...
فقط ضع العبارة التالية حين نقل الدرس
المصدر :
منتدى رياض الجنة
والسلام عليكم ورحمة الله وبركاته