Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 272 fois - Téléchargée 22 fois
''' <summary> ''' Met en gras le texte sélectionné du richtextbox (chp_contenu1) ''' </summary> Private Sub BoutonGras_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoutonGras.Click Dim newFontStyle As System.Drawing.FontStyle Dim currentFont As System.Drawing.Font = chp_contenu1.SelectionFont If chp_contenu1.SelectionFont.Bold = True Then newFontStyle = FontStyle.Regular Else newFontStyle = FontStyle.Bold End If chp_contenu1.SelectionColor = Color.Black chp_contenu1.SelectionFont = New Font(currentFont.FontFamily, 10, newFontStyle) End Sub ''' <summary> ''' Met en italic le texte sélectionné du richtextbox (chp_contenu1) ''' </summary> Private Sub Bouton_Italic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_Italic.Click Dim newFontStyle As System.Drawing.FontStyle Dim currentFont As System.Drawing.Font = chp_contenu1.SelectionFont If chp_contenu1.SelectionFont.Italic = True Then newFontStyle = FontStyle.Regular Else newFontStyle = FontStyle.Italic End If chp_contenu1.SelectionColor = Color.Black chp_contenu1.SelectionFont = New Font(currentFont.FontFamily, 10, newFontStyle) End Sub ''' <summary> ''' style rtf qui représente ma balise h3 ''' </summary> Private Sub Bouton_titre3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_titre3.Click Dim currentFont As System.Drawing.Font = chp_contenu1.SelectionFont Dim TailleH3 As Integer = 10 Dim IndexSelection As Integer = chp_contenu1.SelectionStart Dim TailleSelection As Integer = chp_contenu1.SelectionLength 'copy richtextbox pour recuperer la mise en forme du caractère suivant Dim Gest_RichTB As New RichTextBox Gest_RichTB.Rtf = chp_contenu1.Rtf Dim charSuivant As Char Gest_RichTB.SelectionStart = IndexSelection + TailleSelection Gest_RichTB.SelectionLength = 1 charSuivant = Gest_RichTB.SelectedText If chp_contenu1.SelectionFont.Size = 10 Then TailleH3 = 14 chp_contenu1.SelectionColor = Color.BlueViolet Else chp_contenu1.SelectionColor = Color.Black End If chp_contenu1.SelectionFont = New Font(currentFont.FontFamily, TailleH3, FontStyle.Regular) 'retour à la ligne après If charSuivant <> Chr(10) Then chp_contenu1.SelectedText += vbCrLf 'Si pas premier caractère If IndexSelection > 0 Then chp_contenu1.SelectionStart = IndexSelection - 1 chp_contenu1.SelectionLength = 1 'Retour à la ligne avant chp_contenu1.SelectedText = chp_contenu1.SelectedText.Replace(Chr(10), "") & vbCrLf End If End Sub ''' <summary> ''' recupere le contenu de la rictextbox (contenu1) et traduction en xhtml ''' </summary> Private Function RTF_To_XHTML() As String Dim Str_XHTML As String = "" Dim IsCaractereBold As Boolean = False Dim IsCaractereH3 As Boolean = False Dim IsCaractereItalic As Boolean = False Dim IsSuivanth3 As Boolean = False Dim NextPara_close As Boolean = False 'un paragraphe est il ouvert Dim TaillerichBox As Integer = chp_contenu1.Text.Length 'Nb de caractères à traiter Dim CharSelected As String = "" 'caratères sélectionnés Dim CharPrecedent As Char = "" 'caractère précédent chp_contenu1.DeselectAll() 'aucune sélection dans la richtextbox 'Traitement du premier caractère ****************************************************** 'selection du caractère Premier chp_contenu1.SelectionStart = 0 chp_contenu1.SelectionLength = 1 'Recup Premier caractère CharSelected = chp_contenu1.SelectedText 'si pas titre alors ouverture paragraphe sinon traitement If (chp_contenu1.SelectionColor <> Color.BlueViolet) Then Str_XHTML += "<p>" NextPara_close = True Else Str_XHTML += "<h3>" IsCaractereH3 = True End If If chp_contenu1.SelectionFont.Bold = True Then Str_XHTML += "<strong>" IsCaractereBold = True ElseIf chp_contenu1.SelectionFont.Italic = True Then Str_XHTML += "<em>" IsCaractereItalic = True End If CharPrecedent = CharSelected Str_XHTML += CharSelected 'Traitement des autres caractères For x As Integer = 1 To TaillerichBox + 1 'copy richtextbox pour suivant Dim Gest_RichTB As New RichTextBox Gest_RichTB.Rtf = chp_contenu1.Rtf Dim charSuivant As Char 'selection du caractère x chp_contenu1.SelectionStart = x chp_contenu1.SelectionLength = 1 CharSelected = chp_contenu1.SelectedText 'caractère suivant Gest_RichTB.SelectionStart = x + 1 Gest_RichTB.SelectionLength = 1 charSuivant = Gest_RichTB.SelectedText If CharSelected = Chr(10) Then If Gest_RichTB.SelectionColor = Color.BlueViolet Then IsSuivanth3 = True End If If NextPara_close Then Str_XHTML += "</p>" & vbCrLf NextPara_close = False If Not IsSuivanth3 Then Str_XHTML += vbCrLf & "<p>" NextPara_close = True IsSuivanth3 = False End If Else If IsCaractereH3 Then Str_XHTML += "</h3>" IsCaractereH3 = False End If If Gest_RichTB.SelectionColor <> Color.BlueViolet Then Str_XHTML += vbCrLf & "<p>" NextPara_close = True End If End If Else If chp_contenu1.SelectionColor = Color.BlueViolet And Not IsCaractereH3 Then Str_XHTML += "<h3>" & CharSelected IsCaractereH3 = True ElseIf chp_contenu1.SelectionFont.Bold And Not IsCaractereBold Then Str_XHTML += "<strong>" & CharSelected IsCaractereBold = True ElseIf Not Gest_RichTB.SelectionFont.Bold And IsCaractereBold Then Str_XHTML += CharSelected & "</strong>" IsCaractereBold = False ElseIf chp_contenu1.SelectionFont.Italic And Not IsCaractereItalic Then Str_XHTML += "<em>" & CharSelected IsCaractereItalic = True ElseIf Not Gest_RichTB.SelectionFont.Italic And IsCaractereItalic Then Str_XHTML += CharSelected & "</em>" IsCaractereItalic = False Else Str_XHTML += CharSelected End If End If Next If IsCaractereBold Then Str_XHTML += "</strong>" If IsCaractereItalic Then Str_XHTML += "</em>" If IsCaractereH3 Then Str_XHTML += "</h3>" If NextPara_close Then Str_XHTML += "</p>" Return Str_XHTML.Replace("<p></p>", "") End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.