إضافة رد

  #1  
قديم 04-15-2010, 02:17 PM
الصورة الرمزية MOHAMED
MOHAMED MOHAMED غير متواجد حالياً

الإدارة والدعم الفني

 
تاريخ التسجيل: Mar 2010
المشاركات: 363
Icon13 التعامل مع الأدوات (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

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

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


توقيع : MOHAMED

لا إله إلا الله محمد رسول الله

رد مع اقتباس
  #2  
قديم 04-15-2010, 06:46 PM
microtop microtop غير متواجد حالياً
مشرف
 
تاريخ التسجيل: Feb 2010
المشاركات: 470
افتراضي

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


توقيع : microtop

رد مع اقتباس
  #3  
قديم 04-15-2010, 07:16 PM
الصورة الرمزية MOHAMED
MOHAMED MOHAMED غير متواجد حالياً

الإدارة والدعم الفني

 
تاريخ التسجيل: Mar 2010
المشاركات: 363
افتراضي

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


توقيع : MOHAMED

لا إله إلا الله محمد رسول الله

رد مع اقتباس
إضافة رد


« الموضوع السابق | الموضوع التالي »
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
الدرس 9: التعامل مع الأحداث وتنسيقها دورة ال c# khaledbelal دورة CSharp 2008 من منتدى فيجوال بيسك للعرب 3 10-31-2010 07:28 PM
الدرس 7: التعامل مع الملفات دورة الـ c# khaledbelal دورة CSharp 2008 من منتدى فيجوال بيسك للعرب 4 10-13-2010 07:04 PM
الدرس السابع : الماكرو والنمطية + الأدوات المساعدة لقواعد البيانات + عناصر تحكم Activex + بدء تشغيل القاعدة khaledbelal دورة Microsoft Access 2003 من منتدى يابدوو 0 03-28-2010 06:51 PM
الدرس الحادي عشر : التعامل مع ملفات XML - دورة CSharp 2005 khaledbelal دورة CSharp 2005 من منتديات المشاغب 0 03-22-2010 04:10 PM
الدرس 16: تصميم الأدوات الخاصة دورة c# khaledbelal دورة CSharp 2008 من منتدى فيجوال بيسك للعرب 0 02-13-2010 03:11 AM

استضافة الحياة

الساعة الآن 04:38 PM.


Powered by vBulletin® v3.8.4, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. , TranZ By Almuhajir
النسخة الفضية
Ads Management Version 3.0.1 by Saeed Al-Atwi

SlamDesignzslamDesignzEdited by Riad Al-Ganah Team - جميع الحقوق محفوظة لشبكة رياض الجنة

Privacy Policy Valid XHTML 1.0 Transitional By SlamDesignz Valid CSS Transitional By SlamDesignz