AIDEZ MOI !! SVP §§

cs_julian Messages postés 21 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 6 juin 2002 - 8 janv. 2002 à 14:41
Louhichi007 Messages postés 7 Date d'inscription mercredi 24 décembre 2008 Statut Membre Dernière intervention 4 avril 2009 - 8 janv. 2009 à 17:24
Est-il possible d'écrire du texte dans un controle rich text box à la fin ou apres le texte qui est déja dans le controle.
il faudrait un truc comme EOF (pour les fichiers) mais pour le controle rich text box.
MERCI si vous avez la reponse !!!!!!!!!!!!

4 réponses

cs_Crazyht Messages postés 1522 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 21 août 2010 8
8 janv. 2002 à 15:15
Euh???

Rich1.text = rich1.text & "nouveua texte"

ca marche poa ?????????????

A++
Hervé
0
cs_julian Messages postés 21 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 6 juin 2002
8 janv. 2002 à 15:26
-------------------------------
Réponse au message :
-------------------------------
le pb cé ke le texte ke je recupere il y a qq mots en gras.
Donc je devrai ecrire: rtb = rtb.textRTF & "new text"; mais je ne peux pas assembler du textRTF et du new text tout court.
Est ce ke tu comprend ?
cé pas tres facil et ça me prend la tête.
0
sabdel12 Messages postés 1 Date d'inscription mercredi 5 mars 2008 Statut Membre Dernière intervention 20 mars 2008
20 mars 2008 à 16:21
sss
0
Louhichi007 Messages postés 7 Date d'inscription mercredi 24 décembre 2008 Statut Membre Dernière intervention 4 avril 2009
8 janv. 2009 à 17:24
Oui c'est possible mon ami ;
tu veux ajouter un texte  aprés le texte préced
Exemple: Text1 as richTextBox
                 Cmd02 as commonDialog
  FFichier ,TxtData as string
CmdInsert as commandButtan

dans l'événement click de CMDINSRET
cmd02.cancelerror=true
On error goto EX00
EX00:exit sub
cmd02.filter="Fichier texte(*.txt) |*.txt|fichier rtf(*.rtf)|*.rtf|"
cmd02.showopen
FFichier=cmd02.filename
open FFichier for input as #1
do while not EOF(1)
input#,txtData
loop
text1.seltext=txtData
Close#1
0
Rejoignez-nous