Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 597 fois - Téléchargée 69 fois
Private Sub Command1_Click() Dim a Dim IsBold As Boolean Dim IsUnderline As Boolean Dim IsItalic As Boolean On Error Resume Next IsItalic = False IsUnderline = False IsBold = False For a = 0 To Len(RichTextBox1.Text) + 2 RichTextBox1.SelStart = a If RichTextBox1.SelStart = Len(RichTextBox1.Text) Then IsBold = False: IsUnderline = False: IsItalic = False 'Mettre en Gras If RichTextBox1.SelBold = True And IsBold = False Then IsBold = True: Text1.SelText = "<B>" If RichTextBox1.SelBold = False And IsBold = True Then IsBold = False: Text1.SelText = "</B>" 'Mettre en souligner If RichTextBox1.SelUnderline = True And IsUnderline = False Then IsUnderline = True: Text1.SelText = "<U>" If RichTextBox1.SelUnderline = False And IsUnderline = True Then IsUnderline = False: Text1.SelText = "</U>" 'Mettre en italic If RichTextBox1.SelItalic = True And IsItalic = False Then IsItalic = True: Text1.SelText = "<I>" If RichTextBox1.SelItalic = False And IsItalic = True Then IsItalic = False: Text1.SelText = "</I>" If Asc(Mid(RichTextBox1.Text, a + 1, 1)) = vbKeyReturn Then Text1.SelText = "<br>" Else Text1.SelText = Mid(RichTextBox1.Text, a + 1, 1) If a = Len(RichTextBox1.Text) - 1 Then Text1.SelText = "</I>": Text1.SelText = "</U>": Text1.SelText = "</B>" Next End Sub
1 févr. 2002 à 18:20
9 oct. 2001 à 10:13
8 oct. 2001 à 17:22
avec le code :"RichTextBox1.SelStart a" les balises sont décalé d'un cran vers la droite. remplacer par : "RichTextBox1.SelStart a + 1"
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.