[ali.alfoly]

الكود النهائى لتكبير وتصغير الخط مع المحافظه على نوع واستايل الخط المستخدم

تكبير

كود :

[/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]

وجارى عمل باقى الاكواد