vb net Supprimer le style de police partielle dans la zone de texte riche

Question

J'ai une riche zone de texte que je veux pouvoir styler comme WORD etc avec BOLD, ITALIC, UNDERLINE et toute combinaison d'entre eux.
Je peux ajouter et supprimer le style dit BOLD avec le code ci-dessous et je peux également ajouter plusieurs styles, mais si j'ai plusieurs stylings ensemble et essayer d'enlever un rien ne se passe.

style Changer le code:

Private Sub Underline_Text(rtBox As RichTextBox) 
    Dim newStyle As FontStyle 
    If rtBox.SelectionFont.Style = FontStyle.Underline Then 
     newStyle = rtBox.SelectionFont.Style And Not FontStyle.Underline 
    Else 
     newStyle = rtBox.SelectionFont.Style Or FontStyle.Underline 
    End If 
    Dim newFont As New Font(rtBox.SelectionFont.Name, rtBox.SelectionFont.Size, newStyle) 
    rtBox.SelectionFont = newFont 
End Sub 

complet Code:

Private Sub rtbDesc_KeyDown(sender As Object, e As KeyEventArgs) Handles rtbDesc.KeyDown 
    If e.Control AndAlso Not e.Alt AndAlso Not e.Shift Then 
     Select Case e.KeyCode.ToString 
      Case "B" 
       Bold_Text(DirectCast(sender, RichTextBox)) 
       e.SuppressKeyPress = True 
      Case "I" 
       Italics_Text(DirectCast(sender, RichTextBox)) 
       e.SuppressKeyPress = True 
      Case "U" 
       Underline_Text(DirectCast(sender, RichTextBox)) 
       e.SuppressKeyPress = True 
      Case "R" 
       Reset_Text(DirectCast(sender, RichTextBox)) 
       e.SuppressKeyPress = True 
      Case "K" 
       Strikeout_Text(DirectCast(sender, RichTextBox)) 
       e.SuppressKeyPress = True 
     End Select 
    End If 
End Sub 
Private Sub Bold_Text(rtBox As RichTextBox) 
    Dim newStyle As FontStyle 
    If rtBox.SelectionFont.Style = FontStyle.Bold Then 
     newStyle = rtBox.SelectionFont.Style And Not FontStyle.Bold 
    Else 
     newStyle = rtBox.SelectionFont.Style Or FontStyle.Bold 
    End If 
    Dim newFont As New Font(rtBox.SelectionFont.Name, rtBox.SelectionFont.Size, newStyle) 
    rtBox.SelectionFont = newFont 
End Sub 
Private Sub Italics_Text(rtBox As RichTextBox) 
    Dim newStyle As FontStyle 
    If rtBox.SelectionFont.Style = FontStyle.Italic Then 
     newStyle = rtBox.SelectionFont.Style And Not FontStyle.Italic 
    Else 
     newStyle = rtBox.SelectionFont.Style Or FontStyle.Italic 
    End If 
    Dim newFont As New Font(rtBox.SelectionFont.Name, rtBox.SelectionFont.Size, newStyle) 
    rtBox.SelectionFont = newFont 
End Sub 
Private Sub Underline_Text(rtBox As RichTextBox) 
    Dim newStyle As FontStyle 
    If rtBox.SelectionFont.Style = FontStyle.Underline Then 
     newStyle = rtBox.SelectionFont.Style And Not FontStyle.Underline 
    Else 
     newStyle = rtBox.SelectionFont.Style Or FontStyle.Underline 
    End If 
    Dim newFont As New Font(rtBox.SelectionFont.Name, rtBox.SelectionFont.Size, newStyle) 
    rtBox.SelectionFont = newFont 
End Sub 
Private Sub Reset_Text(rtBox As RichTextBox) 
    Dim newFont As New Font(rtBox.SelectionFont.Name, rtBox.SelectionFont.Size, FontStyle.Regular) 
    rtBox.SelectionFont = newFont 
End Sub 
Private Sub Strikeout_Text(rtBox As RichTextBox) 
    Dim newStyle As FontStyle 
    If rtBox.SelectionFont.Style = FontStyle.Strikeout Then 
     newStyle = rtBox.SelectionFont.Style And Not FontStyle.Strikeout 
    Else 
     newStyle = rtBox.SelectionFont.Style Or FontStyle.Strikeout 
    End If 
    Dim newFont As New Font(rtBox.SelectionFont.Name, rtBox.SelectionFont.Size, newStyle) 
    rtBox.SelectionFont = newFont 
End Sub 

Comme toujours, votre aide est grandement appréciée!

Answer 1

Homme c'était un problème.

J'ai copié votre code et mis un point d'arrêt dans votre méthode Bold_Text. Ce que j'ai trouvé, c'est que votre instruction If ne vérifie pas la condition Bold and Underline. Voici le code que je voulais dire:

If rtBox.SelectionFont.Style = FontStyle.Underline Then 

Lorsque j'ai ajouté le point d'arrêt, en essayant d'enlever le gras, il a sauté cette condition et est allé à la clause Else parce que vous cochez seulement pour voir si elle est en gras, non gras et souligné. Ajouter un MessageBox avant l'instruction Si pour voir qu'il détecte à la fois audacieux et styles Souligné appliqués comme ceci:

MessageBox.Show(rtBox.SelectionFont.Style.ToString) 

Cela montre que rtBox.SelectionFont.Style est réglé sur « Gras, Souligné ».

Pour résoudre ce problème, j'ai utilisé ce code:

If (rtBox.SelectionFont.Style = FontStyle.Bold) OrElse (rtBox.SelectionFont.Style = (FontStyle.Bold Or FontStyle.Underline)) Then 

Voir this link pour un peu plus d'une explication.

L'énumération FontStyle est une énumération de drapeaux, de sorte que vous pouvez combiner les valeurs (en utilisant l'opérateur ou en VB.NET ...

Answer 2

Ce fut la façon dont je finalement résolu mon problème FWIW.
au lieu d'essayer toutes les combinaisons de styles je truc de Sylverac d'envoyer le style à une chaîne et de vérifier simplement le mot-clé du style en question dans cette chaîne retournée etc.

code:

Private Sub Bold_Text(rtBox As RichTextBox) 
    Dim newStyle As FontStyle 
    If InStr(rtBox.SelectionFont.Style.ToString, "Bold") Then 'Changed this line to search the string 
     newStyle = rtBox.SelectionFont.Style And Not FontStyle.Bold 
    Else 
     newStyle = rtBox.SelectionFont.Style Or FontStyle.Bold 
    End If 
    Dim newFont As New Font(rtBox.SelectionFont.Name, rtBox.SelectionFont.Size, newStyle) 
    rtBox.SelectionFont = newFont 
End Sub