تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب بعض الاكواد فى انشاء محرر RichTextBox
#1
السلام عليكم ورحمة الله وبركاتة
اريد ان اكواد الازرار المحددة فى الصورة

[ATTACH=CONFIG]2999[/ATTACH]
مع ملاحظه لو اخترت Bold وكان الخط مائل اريده ان يصبح مائل وعريض
واذا كان Bold وضغط على Bold يصبح عادى
وهكذا لكل الازرار
وجزاكم الله خير


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
الحمد لله قدرت اوصل لكود زر التكبير والتصغير

إقتباس :Me.RichTextBox_rtf.SelectionFont = New Font(Me.RichTextBox_rtf.SelectionFont.FontFamily, Me.RichTextBox_rtf.SelectionFont.Size + 1)

إقتباس : Me.RichTextBox_rtf.SelectionFont = New Font(Me.RichTextBox_rtf.SelectionFont.FontFamily, Me.RichTextBox_rtf.SelectionFont.Size - 1)
الرد }}}
تم الشكر بواسطة:
#3
الكود النهائى لتكبير وتصغير الخط مع المحافظه على نوع واستايل الخط المستخدم

تكبير

كود :
[/b] Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.RichTextBox_rtf.SelectionFont = New Font(Me.RichTextBox_rtf.SelectionFont.FontFamily, Me.RichTextBox_rtf.SelectionFont.Size + 1, Me.RichTextBox_rtf.SelectionFont.Style)
    End Sub[b]

تصغير

كود :
[/b] Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Me.RichTextBox_rtf.SelectionFont = New Font(Me.RichTextBox_rtf.SelectionFont.FontFamily, Me.RichTextBox_rtf.SelectionFont.Size - 1, Me.RichTextBox_rtf.SelectionFont.Style)
    End Sub[b]

وجارى عمل باقى الاكواد
الرد }}}
تم الشكر بواسطة:
#4
تفضل أخي

كود :
Private Sub SetBold(ByVal Rbox As RichTextBox)
        If Rbox.SelectedText IsNot Nothing Then
            Dim CurrFont As Font = Rbox.SelectionFont
            Dim BoldStyle As FontStyle
            If Rbox.SelectionFont.Bold = True Then
                BoldStyle = FontStyle.Regular
            Else
                BoldStyle = FontStyle.Bold
            End If
            BoldStyle += CurrFont.Style
            Rbox.SelectionFont = New Font(CurrFont.FontFamily, CurrFont.Size, BoldStyle)
        End If
    End Sub


    Private Sub SetItalic(ByVal Rbox As RichTextBox)
        If Rbox.SelectedText IsNot Nothing Then
            Dim CurrFont As Font = Rbox.SelectionFont
            Dim ItalicStyle As FontStyle
            If Rbox.SelectionFont.Italic = True Then
                ItalicStyle = FontStyle.Regular
            Else
                ItalicStyle = FontStyle.Italic
            End If
            ItalicStyle += CurrFont.Style
            Rbox.SelectionFont = New Font(CurrFont.FontFamily, CurrFont.Size, ItalicStyle)
        End If
    End Sub


    Private Sub SetUnderline(ByVal Rbox As RichTextBox)
        If Rbox.SelectedText IsNot Nothing Then
            Dim CurrFont As Font = Rbox.SelectionFont
            Dim UnderlineStyle As FontStyle
            If Rbox.SelectionFont.Underline = True Then
                UnderlineStyle = FontStyle.Regular
            Else
                UnderlineStyle = FontStyle.Underline
            End If
            UnderlineStyle += CurrFont.Style
            Rbox.SelectionFont = New Font(CurrFont.FontFamily, CurrFont.Size, UnderlineStyle)
        End If
    End Sub


    ' كيفية الاستخدام


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SetBold(Me.RichTextBox1)
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SetItalic(Me.RichTextBox1)
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SetUnderline(Me.RichTextBox1)
    End Sub


****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#5
اخ kslawy
الاخ يريد عندما يكون الخط عريض ويضغط على bold فانه يصبح عادي
فمثال ذالك
فيجب ان يستخدم اداة checkbox
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته
الحمد لله عرفت اعملها
كود :
Private Sub RichTextBox_rtf_Font_Style(ByVal My_Style As Integer)
        '
        Dim Font_Style As New FontStyle
        Dim Txt_Font As Font = Me.RichTextBox_rtf.SelectionFont
        '
        If Me.RichTextBox_rtf.SelectionFont.Bold And My_Style <> 1 Then Font_Style += FontStyle.Bold
        If Me.RichTextBox_rtf.SelectionFont.Italic And My_Style <> 2 Then Font_Style += FontStyle.Italic
        If Me.RichTextBox_rtf.SelectionFont.Strikeout And My_Style <> 3 Then Font_Style += FontStyle.Strikeout
        If Me.RichTextBox_rtf.SelectionFont.Underline And My_Style <> 4 Then Font_Style += FontStyle.Underline
        '
        Select Case My_Style
            Case 1
                If Not Txt_Font.Bold Then Font_Style += FontStyle.Bold
            Case 2
                If Not Txt_Font.Italic Then Font_Style += FontStyle.Italic
            Case 3
                If Not Txt_Font.Strikeout Then Font_Style += FontStyle.Strikeout
            Case 4
                If Not Txt_Font.Underline Then Font_Style += FontStyle.Underline
        End Select
        '
        Me.RichTextBox_rtf.SelectionFont = New Font(Txt_Font.FontFamily, Txt_Font.Size, Font_Style)
        '
    End Sub

هذا هو الصب
واكواد الازرار

سميك بولد
كود :
RichTextBox_rtf_Font_Style(1)

مائل
كود :
RichTextBox_rtf_Font_Style(2)

تحته خط
كود :
RichTextBox_rtf_Font_Style(4)

وسطه خط
كود :
RichTextBox_rtf_Font_Style(3)

هل يوجد حالات اخرى
الرد }}}
تم الشكر بواسطة:
#7
اخى kslawy فعلا ممتاز والله بس جاء متاخر ههههه جزاك الله خير
طيب فى كود مش عارف اعمله
وهو كود الحذف وايضا كود وضع رابط على النص
انظر الصورة

[ATTACH=CONFIG]3005[/ATTACH]


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم
هذا كود حذف المحدد من النص
RichTextBox1.SelectedText = String.Empty ' or ""
اما اضافة رابط فساجربها
الرد }}}
تم الشكر بواسطة:
#9
جزاك الله خيرا فى انتظارك او اى احد من الاخوة جزاكم الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود انشاء نسخة احتياطية محمد بن عطية 1 131 21-02-24, 09:59 PM
آخر رد: atefkhalf2004
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  ما هو اختصار هذه الاكواد justforit 4 450 22-01-24, 03:10 PM
آخر رد: salamandal
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  مشكلة فى انشاء تقرير خالد كامل1 4 220 04-01-24, 10:04 PM
آخر رد: خالد كامل1
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  انشاء واجهات برنامج شؤون الموظفين والرواتب شمسـ لا تغيب 5 12,850 27-09-23, 10:05 PM
آخر رد: melad2002
  سؤال عن طريقة انشاء شجرة عائلة ابو انس 2 447 10-07-23, 09:58 PM
آخر رد: ابو انس
  لماذا يتم انشاء العديد من كائنات الاتصال ابو محمد محمد محمد 12 964 27-04-23, 01:54 PM
آخر رد: ابو محمد محمد محمد

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم