تقييم الموضوع :
  • 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
جزاك الله خيرا فى انتظارك او اى احد من الاخوة جزاكم الله خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية انشاء الباركود المتألق9 3 51 منذ 7 دقيقة مضت
آخر رد: المتألق9
  كيفيةاعادة المعلومات الي الجدول بعد مسح ما بداخل RichTextBox khaled12345 3 78 23-05-17, 12:37 AM
آخر رد: khaled12345
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 116 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  [VB.NET] أرجو المساعدة في تصحيح الاكواد محمود البكري 2 77 01-05-17, 04:45 PM
آخر رد: محمود البكري
  [SQL] مشكلة في الاكواد عزوز هزازي 1 90 22-03-17, 03:44 PM
آخر رد: abdualla
  [سؤال] انشاء ازرار مع تعيين حدث النقر لكل زر bidaya 7 213 25-02-17, 10:06 PM
آخر رد: bidaya
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 131 25-02-17, 06:31 PM
آخر رد: khodor1985
  كيف يمككني انشاء الحدث KeyPress IBCompany 5 149 24-02-17, 08:03 PM
آخر رد: مساعدة
  [VB.NET] ابغي كود او شرح مفصل مع الاكواد 0theghost0 0 90 13-02-17, 12:53 PM
آخر رد: 0theghost0
  كيفية ادراج نص في اداة RichTextBox مع الاحتفاظ بالنص soper 3 162 25-01-17, 02:23 PM
آخر رد: مساعدة

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


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