سؤال في خاصية تنسيق النص كما في برنامج الوورد

Private Sub FindAndChangeFont(ByVal ptxtRichTextBox As RichTextBox, ByVal pstrFind As String)
        Try
            If ptxtRichTextBox IsNot Nothing Then
                Dim fntFont As System.Drawing.Font = New Font("Verdana", 10.0F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, 178, False)
                Dim i As Integer = ptxtRichTextBox.Find(pstrFind)
                Dim j As Integer = pstrFind.Length
                ptxtRichTextBox.[Select](i, j)
                ptxtRichTextBox.SelectionFont = fntFont
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    'استدعاء الفانكتشن   

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RH.Text = "www.arabteam2000.com"
        Dim strFind As String = "arabteam2000"
        FindAndChangeFont(RH, strFind)
    End Sub

يبدو ان الامر اصبح واضح

يبقى عليك تغيير fntFont الى ما تريد

و يمكن كذلك:

FindAndChangeFont(RH, RH.SelectedText)

احذف باقي الاكواد في button1 و ضع الكود السابق

وذلكك لتغيير الخط الخاص بالكلمة المحددة

أخي الكريم جزاك الله خيرا

لكن ليس هذا ما اريده

البرنامج كما هو مرفق به ثلاثة أزرار

Bold , Italic , Underline

أريد عندما أكتب أي كلمة في التكست أستطيع أن أقوم بأي عملية تنسيق عليها كما هو بالضبط في برنامج الوورد

وللعلم أنا عندي كود كل زر على حدة ويعمل جيدا لكن عندما أستخدم زر مثلا بعد الآخر فإنه يلغي خاصية الأول

كما هو بالمثال المرفق الآتي :

Bold.rar

Dim fntFont As System.Drawing.Font = New Font("Verdana", 10.0F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, 178, False)

اخي انت مبرمج

التعديل يكون بتغيير احد الخصائص في الكود السابق و تثبيت الخصائص الخصائص الاخرى

tornado320 كتب:

Dim fntFont As System.Drawing.Font = New Font("Verdana", 10.0F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, 178, False)

اخي انت مبرمج

التعديل يكون بتغيير احد الخصائص في الكود السابق و تثبيت الخصائص الخصائص الاخرى

أخي الكريم

في المشاركة الثانية لي أرفقت البرنامج وبه أكواد كل زر سواء لعمل Bold أو Italic أو Underline لكن المشكلة هي أنني عندما أعمل مثلا Bold لكلمة ما ثم أضغط Italic فإنها تتحول إلى Italic لكن Regular وليس Bold

يمكنك أن تجرب بنفسك وتكتب أي كلمة وتقوم بعمل تنسيق لها عن طريق هذه الأزرار ستجد أن كل زر سيلغي ما قبله

وأنا لا استطيع تطبيق ما أريده على الكود الذي وضعته أنت

أرجو أن يكون اتضح قصدي هذه المرة

جرب هذا الكود:

Me.theRichTextBox.SelectionFont = New Font(FontFamily, size, FontStyle.Bold)
'makes the text bold.
Me.theRichTextBox.SelectionFont = New Font(FontFamily, size, FontStyle.Bold Or FontStyle.Italic)
'makes the text bold and italic

اذا لم ينجح عدله الى

thisrichtextbox.SelectionFont = New Font(thisrichtextbox.Font.FontFamily, Me.Font.Size, FontStyle.Bold)

Dim d As Boolean

        d = RH.SelectionFont.Bold

        If d = False Then
            RH.SelectionFont = New Font(RH.Font.FontFamily, Me.Font.Size, FontStyle.Italic)
        Else
            RH.SelectionFont = New Font(RH.Font.FontFamily, Me.Font.Size, FontStyle.Italic Or FontStyle.Bold)
        End If

هذا الكود للزر الخاص ب مائل

اكتب باقي الاكواد على نفس النمط

و يضمن لك عدم رجوع الخط الى عادي

جزاك الله خيرا أخي

سأجرب الكود وأخبرك بالنتائج