Готовые решения и полезные коды на Visual Basic .NET (Часть-1) - Visual Basic .NET - Ответ 6802154

 
Dim style As FontStyle
 
'Кнопка Bold
With RTB
       If Not .SelectionFont Is Nothing Then
            Dim currentFont As Font = .SelectionFont
            If .SelectionFont.Bold = True Then
                 style = .SelectionFont.Style And Not FontStyle.Bold
                 .SelectionFont = New Font(.SelectionFont, style)
            Else
                  style = .SelectionFont.Style Or FontStyle.Bold
                 .SelectionFont = New Font(.SelectionFont, style)
            End If
      End If
End With
 
'Кнопка Italic
With RTB
            If Not .SelectionFont Is Nothing Then
                Dim currentFont As Font = .SelectionFont
                If .SelectionFont.Italic = True Then
                    style = .SelectionFont.Style And Not FontStyle.Italic
                    .SelectionFont = New Font(.SelectionFont, style)
                Else
                    style = .SelectionFont.Style Or FontStyle.Italic
                    .SelectionFont = New Font(.SelectionFont, style)
                End If
            End If
        End With
 
'Кнопка UnderLine
With RTB
            If Not .SelectionFont Is Nothing Then
                Dim currentFont As Font = .SelectionFont
                If .SelectionFont.Underline = True Then
                    style = .SelectionFont.Style And Not FontStyle.Underline
                    .SelectionFont = New Font(.SelectionFont, style)
                Else
                    style = .SelectionFont.Style Or FontStyle.Underline
                    .SelectionFont = New Font(.SelectionFont, style)
                End If
            End If
        End With