Setting the font size of the selected text of a RichTextBox

Setting the font size of the selected text of a RichTextBox

' Set the specified font size to the selection of a RichTextBox' Example: SetFontSize(richTextBox1, 16)Public Sub SetFontSize(ByVal rtb As RichTextBox, ByVal fontSize As Single)    ' if the selection length is > 0, work char by char    If rtb.SelectionLength > 0 Then        Dim selStart As Integer = rtb.SelectionStart        Dim selLength As Integer = rtb.SelectionLength        Dim currFont As System.Drawing.Font        Dim i As Integer        For i = 0 To selLength - 1            ' select 1 char            rtb.Select(selStart + i, 1)            ' get the current font            currFont = rtb.SelectionFont            ' create and assign to the char a new font             ' with the new style            rtb.SelectionFont = New Font(currFont.FontFamily, fontSize, _                currFont.Style)        Next        ' reselect the original selection        rtb.Select(selStart, selLength)    Else        rtb.SelectionFont = New Font(rtb.SelectionFont.Name, fontSize, _            rtb.SelectionFont.Style)    End IfEnd Sub


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist