Je programme en ce moment la nouvelle version de mon petit notepad office 2007 -like (notepad.net), et je rencontre un bug lors de l'application de style (italique, gras, souligné, barré...) sur un texte sélectionné composé de plusieurs tailles et police différentes. J'obtiens systématiquement une erreur.
Voila mon code (uniquement pour gras, les autres sont pareils) en sachant qu'avant d'utiliser les Xor j'utilisait un autre code avec des conditions et que je rencontrait le même problème :
Private Sub btn_Bold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Bold.Click
Try 'definition du forme courant et du forme nouveau Dim currentFont As Font = Getrtb.SelectionFont Dim newFontStyle As FontStyle
'on ajoute forme courant au nouveau forme pour ne pas perder ce mise en forme newFontStyle = FontStyle.Bold Xor currentFont.Style
'on applique notre nouveau mise en forme Getrtb.selectionfont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle) Catch ex As System.Exception End Try End Sub
Petite question subsidiaire pour les amateurs :
Savez vous comment je pourrais avoir un appercu des polices dans ma richtextbox quand je passe la souris sur mes polices dans ma combobox ? Comme dans word 2007. Et également comment je pourrais afficher les police de ma combobox avec leur propre police ? aussi comme dans word 2007
Merci d'avance à tous ceux qui pourront m'apporter leur aide !
Message édité par moimael le 25-06-2008 à 16:11:13
Marsh Posté le 25-06-2008 à 16:10:09
Salut tous le monde !
Je programme en ce moment la nouvelle version de mon petit notepad office 2007 -like (notepad.net), et je rencontre un bug lors de l'application de style (italique, gras, souligné, barré...) sur un texte sélectionné composé de plusieurs tailles et police différentes.
J'obtiens systématiquement une erreur.
Voila mon code (uniquement pour gras, les autres sont pareils) en sachant qu'avant d'utiliser les Xor j'utilisait un autre code avec des conditions et que je rencontrait le même problème :
Private Sub btn_Bold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Bold.Click
Try
'definition du forme courant et du forme nouveau
Dim currentFont As Font = Getrtb.SelectionFont
Dim newFontStyle As FontStyle
'on ajoute forme courant au nouveau forme pour ne pas perder ce mise en forme
newFontStyle = FontStyle.Bold Xor currentFont.Style
'on applique notre nouveau mise en forme
Getrtb.selectionfont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
Catch ex As System.Exception
End Try
End Sub
Petite question subsidiaire pour les amateurs :
Savez vous comment je pourrais avoir un appercu des polices dans ma richtextbox quand je passe la souris sur mes polices dans ma combobox ? Comme dans word 2007.
Et également comment je pourrais afficher les police de ma combobox avec leur propre police ? aussi comme dans word 2007
Merci d'avance à tous ceux qui pourront m'apporter leur aide !
Message édité par moimael le 25-06-2008 à 16:11:13