Sujet Précédent Sujet Suivant

Pb utilisation des rich text box util ou po?

Rastacana Messages postés 55 Date d'inscription vendredi 20 octobre 2000 Statut Membre Dernière intervention 19 juin 2002 - 28 mai 2002 à 09:05
Rastacana Messages postés 55 Date d'inscription vendredi 20 octobre 2000 Statut Membre Dernière intervention 19 juin 2002 - 29 mai 2002 à 08:25

Voila j ai un fichier test.txt ke je vou posterais dans l apres midi comme sa vous pourrez tester.
Le pb est que ce fichier est un fichier d edition et je veut le convertir en .rtf de maniere a lui specifier la police car si la police >7 tt se retrouve decallé une fois faxé.
j ai essayer avec se code de passer par une Rich text box de manier a lui specifier la police cela fonctionne a l ecran.
Cependant a la fin du programme il enregistre un fichier filefax.rtf dont la police n est pas mis en memoire c a d qu il met par default 10.
Comment puis je fire il faut vraiment que la police soit inf a 7 ou 8.
je vous mets l exemple de mon code et vous post mon test.txt cette aprem en fichier a telecharger ou en copier collé.
Merci de m aider je pietine Or c est pour mon stage help...
Private Sub Command1_Click()
'Déclaration des variables locales
Dim ficprinc As String, Temp As String, Temp2 As String, msg3 As String, Ligne As String, Namecie As String, Temp1 As String
Dim Nbfic As Integer, Cpteur As Integer, Cptlig As Integer, x As Integer
Dim Ind As Long, Ind2 As Long, Numfic As Long
'j ai copier coller toute mes variable komme un bourrin elle ne sont pas toute util

ficprinc = "c:\mes documents\Nico\test.txt"
Open ficprinc For Input As #1
Do Until EOF(1)
Line Input #1, Ligne
Temp = Temp + Ligne
Temp = Temp + Chr$(13) + Chr$(10)
Loop

rt.Text = Temp

rtf.SelStart = 0
rtf.setlenght = Len(Temp)

rtf.SelFontName = "Time new roman"
rtf.SelFontSize = 6
rtf.SelBold = True

rtf.SelStart = 1
rtf.sellenght = 0

Temp = rtf.Text

Open "c:\mes documents\nico\FileFax.rtf" For Output As #2
Print #2, Temp

Close #1
Close #2
End Sub ^_^

Si vous desirez le fichier test.txt donner moi votre mail je vous l envoie ds la journée

A voir également:

Pb utilisation des rich text box util ou po?
Roulettechat text - Forum C / C++ / C++.NET
Message box - Conseils pratiques -Visual Basic / VB.NET
Combo box html ✓ - Forum PHP
Jlabel center text - Forum Java
Comment labelliser des textes - Forum Javascript / DHTML

1 réponse

Réponse 1 / 1

Rastacana Messages postés 55 Date d'inscription vendredi 20 octobre 2000 Statut Membre Dernière intervention 19 juin 2002
29 mai 2002 à 08:25

Personne ne peut m aider?^_^

Discussions similaires

Retour à la ligne dans une text box

Vérifier qu'une text box n'est pas vide

Charger une image dans un picture box a partir de nom saisie dans le text box

text to speech et le francais :(

coder un Tchat comme roulettechat.fr/chat/texte.php