PDA

View Full Version : سوال: تغییرات فونت ریچ باکس



sysman_20
چهارشنبه 05 فروردین 1388, 13:45 عصر
با سلام
من می خواستم Buld Or Italic بودن ریچ باکس را بدون استفتده از فونت دیالوگ تغییر دهم.
چند روش را امتحان کردم اما جواب نداد.
لطفا مرا راهنمایی کنید.:گیج:

Qermezkon
چهارشنبه 05 فروردین 1388, 13:52 عصر
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
چهارشنبه 05 فروردین 1388, 13:53 عصر
زحمت تبديل به سي پارپ رو خودت بكش.

hasan_esfahan
چهارشنبه 05 فروردین 1388, 13:53 عصر
richTextBox1.Font.Bold = true;
richTextBox1.Font.Underline = true;