OVH Cloud OVH Cloud

richtextbox

1 réponse
Avatar
mimi
bonjour,
Je voudrais savoir s'il est possible d'ajouter dans 1=20
richtextbox, plusieurs donn=E9es comprises dans une=20
variable. En fait je voudrais r=E9cup=E9rer les donn=E9es d'un=20
recordset et les affich=E9es dans le RTB =E0 la place de les=20
mettre dans une listebox. =20
merci d'avance
mimi

1 réponse

Avatar
François Picalausa
Bonjour/soir,

Tout comme dans un textbox:

If Richtextbox.Text <> "" Then 'ajoute une retour à la ligne
Richtextbox.Text = Richtextbox.Text & vbNewLine
End If

'vbNewLine = vbCrLf
Richtextbox.Text = Richtextbox.Text & "Une Ligne" & vbCrlf & _
VariableString & vbNewLine & ...

Mais on y perd les informations de formattage.
Il est possible de mettre la sélection à la fin et de définir le seltext,
pour ne pas perdre celà:

Richtextbox.SelStart = Len(Richtextbox.Text)
Richtextbox.SelLenght = 0
If Richtextbox.Text <> "" Then 'ajoute une retour à la ligne
Richtextbox.SelText = vbNewLine
Richtextbox.SelStart = Len(Richtextbox.Text)
Richtextbox.SelLenght = 0
End If

Richtextbox.SelText = "Une Ligne" & vbCrlf & _
VariableString & vbNewLine & ...

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"mimi" a écrit dans le message de
news:05ca01c3d8f4$5d3d1590$
bonjour,
Je voudrais savoir s'il est possible d'ajouter dans 1
richtextbox, plusieurs données comprises dans une
variable. En fait je voudrais récupérer les données d'un
recordset et les affichées dans le RTB à la place de les
mettre dans une listebox.
merci d'avance
mimi