تغییرات فونت ریچ باکس

[sysman_20]

با سلام
من می خواستم Buld Or Italic بودن ریچ باکس را بدون استفتده از فونت دیالوگ تغییر دهم.
چند روش را امتحان کردم اما جواب نداد.
لطفا مرا راهنمایی کنید.

[Qermezkon]

Try

            If e.Control And e.KeyValue = 221 Then

                SpinEdit1.Value += 1

            ElseIf e.Control And e.KeyValue = 219 Then

                SpinEdit1.Value -= 1

            ElseIf e.Control And e.KeyValue = 66 Then

                F = New Font(txtdesc.SelectionFont.FontFamily.Name, txtdesc.SelectionFont.Size, FontStyle.Bold)

                txtdesc.SelectionFont = F

            ElseIf e.Control And e.KeyValue = 73 Then

                F = New Font(txtdesc.SelectionFont.FontFamily.Name, txtdesc.SelectionFont.Size, FontStyle.Italic)

                txtdesc.SelectionFont = F

            ElseIf e.Control And e.KeyValue = 85 Then

                F = New Font(txtdesc.SelectionFont.FontFamily.Name, txtdesc.SelectionFont.Size, FontStyle.Underline)

                txtdesc.SelectionFont = F

            ElseIf Not e.Control Then

                F = New Font(FontEdit1.Text, SpinEdit1.Value, FontStyle.Regular)

                txtdesc.SelectionFont = F

                txtdesc.SelectionColor = ForeColor.Color

            End If

        Catch ex As Exception



        End Try

[Qermezkon]

زحمت تبديل به سي پارپ رو خودت بكش.

[hasan_esfahan]

 

richTextBox1.Font.Bold = true;

richTextBox1.Font.Underline = true;