Rich Textbox : comment faire ??

Question

Bonjour,

Voici un petit pb tout bête mais qui m'empoisonne depuis quelques temps : je veux remplir un rich textbox de façon automatique en appliquant des styles différents aux mots.
Par exemple, quel code faut-il utiliser pour obtenir ceci dans un rich textbox : (c'est le prog qui fait ça, pas l'utilisateur !)

Bonjour tout simple
Bonjour en gras
Bonjour en Italique

Merci à ceux qui m'aideront.

Renfield · Answer

De facon automatique ??

l'ordinateur doit bien savoir quel style doit être appliqué...

que veux tu ?

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

CocoMsa · Answer

Eh bien je veux écrire exactement ce qui suit avec les styles tels qu'ils sont : 

Bonjour normal
Bonjour en gras
Bonjour souligné
Bonjour en italique

Oublie le mot 'automatique' que j'ai utilisé dans mon 1er message. 
En réalité je veux remplir le rich text box avec une BD et je veux mettre les champs date en gras puis un champ en italique and so on .. => moi, je sais ce que je veux => je dirai au prog de le faire mais comment ... là est mon problème !!

cs_PROGRAMMIX · Answer

Voici un petit exemple qui, j'espère, sera assez "parlant".

Public Sub Ecrire()
    
    Dim Informations As String
    
    With MonRichTextBox
        
        'Efface les informations précédentes
        .Text = ""
        
        ‘Définition de la marge gauche de la première ligne d’un paragraphe ainsi que de celle du paragraphe dans son entièreté
        .SelHangingIndent = 100
        .SelIndent = 100
        
        .SelBold = True		‘pour metre en gras
        .SelFontSize = 14	‘taille de la police
        .SelColor = vbBlue	‘couleur de la police
                .SelAlignment rtfCenter   'alignement du texte (rtfLeft 0 (Valeur par défaut), rtfRight = 1, rtfCenter = 2)

        .SelText = « Bonjour »	‘Tape le texte
        .SelText = vbCrLf	‘Tape un retour chariot
        
        .SelStart = Len(.Text)	'Déplace le curseur
        
        'Tape un nouveau texte
        .SelFontSize = 10
        .SelItalic = True
        .SelColor = &H80FF& 'vbRed
        .SelText = "Informations au " & Date & vbCrLf & vbCrLf
        .SelItalic = False
 
    End With

End Sub

Programmix

CocoMsa · Answer

Que du bonheur !!
Merci beaucoup Programmix.

mathieumg · Answer

Merci beaucoup Programmix exactement ce que je cherchais :)

Mathieu M-G  :) 
http://www.qc-net.com

Rich Textbox : comment faire ??

5 réponses

Discussions similaires