Remplire un RTB au fur et a mesure en RTF

Question

Bonjour,

J'aimerais remplir un RTB (rich text box) au fur et &#224; mesure, donc a chaque fois que je clique sur un bouton deux lignes sajoute au format  rtf.

Private Sub Command1_Click()
rtb.TextRTF = rtb.TextRTF & "{\b oui \par}"
rtb.TextRTF = rtb.TextRTF & "{\b non \par}"
End Sub


Rien ne se passe, je dois faire une betise et vu que je n'ai jamais beaucoup travaillier avec le rtf... Vous savez m'aider? merci d'avance

mythic_kruger · Answer

Pour &#231;a mieux vaut cr&#233;er dans le module de formulaire une proc&#233;dure qui prendra le message en argument.
Pour un contr&#244;le rtb nomm&#233; RichText:
private sub Ajoute_Message(unMsg as string)
       With RichText
            .SelStart =  Len(RichText.text)
             .SelFontName = "arial" 
            .SelFontSize  = 12
            .SelBold =  1
             .SelColor = 10271221 
            .SelText  = unMsge
            .SelStart = Len(RichText.Text)
            .SelText = vbCrLf
        End With
end sub
Ainsi pour ajouter du texte au rtb il suffirra d'utiliser
Ajoute_Message "salut"
On peut passer d' autres valeurs en arguments comme la couleur, la taille...

comtention · Answer

Merci mais ne va pas dans mon cas, car moi je dois ajouter du texte en format rtf. Le champ qui re&#231;oi le texte n'a pas de formatage couleurs, police etc.

mythic_kruger · Answer

No comment.

comtention · Answer

J'ai ko dit une connerie?

mythic_kruger · Answer

Allons allons, si le formatage texte
n'int&#233;resse pas il faut passer outre...(Mieux vaut le connaitre et ne
pas l'utiliser, qu'en avoir besoin et pas l'avoir sous la main, lol
passons).



Analyses les propri&#233;t&#233;s SelText et SelStart du contr&#244;le RTF car ce contr&#244;le ActiveX ne fonctionne pas comme un TextBox de base! cf. plus haut.

Remplire un RTB au fur et a mesure en RTF

5 réponses

Discussions similaires