بعض استخدامات الاداة RichTextBox فى الفجوال بيسك 6
صفحة 1 من اصل 1 • شاطر
بعض استخدامات الاداة RichTextBox فى الفجوال بيسك 6
كاتب الموضوع : BADRMEDIA مع بعض التعديل
أداة RichTextBox الشهيرة كلنا تعاملنا معها ونعرف أنها تمتاز عن أداة TextBox بأنها تمكنا من التعامل مع النصوص المنسقة
لنري كيف نتعامل معها
بداية قم بوضع أداة RichTextBox على الفورم من صندوق الأدوات ثم ضع زر أمر Button
1_ فتح الملفات النصية :
لو أحببنا أن نفتح ملف نصي بامتداد TXT من مسار محدد يكون الأمر كما فى الكود السابق حيث نحدد مسار الملف ونحدد نوع الملف ...كما فى الكود التالى :
- الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.LoadFile("C:\BADRMEDIA.txt", RichTextBoxStreamType.PlainText)
End Sub
2_ SaveFile نحفظ نص فى ملف محدد ....كما نري فى الكود نحدد المسار الذى نحفظ فيه ونحدد نوع الملف
- الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.SaveFile("C:\vb4arab.txt", RichTextBoxStreamType.PlainText)
End Sub
لابد أن يكون نوع الملف متوافق مع الملف فمثلا عندما نقوم بتحميل ملف RTF وهو الامتداد الشهير لابد أن نحدد نوع الملف RichText
- الكود:
RichTextBox1.LoadFile("C:\vb4arab.rtf", RichTextBoxStreamType.RichText)
وكذلك الحفظ
- الكود:
RichTextBox1.SaveFile("C:\vb4arab.rtf", RichTextBoxStreamType.RichText)
3_ معرفة عدد السطور ...وذلك باستخدام الكود التالى :
- الكود:
MessageBox.Show(RichTextBox1.Lines.Length.ToString())
4_ تنسيق لون حروف معينة و الخطوط
ذلك أمر سهل كل ما فى الأمر أن تحدد حروف وتكتب فى حدث زر مثلاً أن يقوم بتلوينها باللون الأحمر
- الكود:
RichTextBox1.SelectionColor = Color.Red
كما نري حروف او كلمات تكون بخط مختلف مثلما يحدث فى برامج تنسيق النصوص سنقوم بتعريف متغير من نوع FontStyle باسم style ونحدد له بعض الخصائص مثل أن الخط Bold ثم نسند للنص المحدد عن طريق الخاصية SelectionFont خط جديد بالاستايل الجديد.....كما يلى :
- الكود:
Dim style As FontStyle
style = FontStyle.Bold
RichTextBox1.SelectionFont = New Font("Impact", 16, style)
5_ البحث عن نص :
- الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' نقوم بتعريق متغير نصي ونسند له قيمة نص نبحث عنه
Dim SearchStr As String = "ABC"
' نقوم بتعريق متغير رقمي وسيحمل قيمة مكان النص الذى نحصل عليه من البحث
Dim FindPost As Integer
' قمنا بعملية البحث عن طريق الأمر Find
' اعطينا موضع النتيجة للبحث للمتغير
FindPost = RichTextBox1.Find(SearchStr)
If FindPost > -1 Then
' قمنا بعمل تحديد للنص من بدايته حتى طوله الحرفي
RichTextBox1.Select(FindPost, SearchStr.Length)
RichTextBox1.Focus()
End If
End Sub
6_ لنفرض أنك حددت نص وتريد عند مغادرة الأداة أن يظل النص محدد كل ما عليك أم تسند للخاصية HideSelection القيمة False
- الكود:
RichTextBox1.HideSelection = False
لنعرف مثلاً من أى نقطة بدأ التحديد للنص مثلاً نظهر ذلك فى رسالة
- الكود:
MessageBox.Show(RichTextBox1.SelectionStart.ToString())
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
رد: بعض استخدامات الاداة RichTextBox فى الفجوال بيسك 6
جزاكم الله خيرا
م/موسي- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد