cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 2013
-
21 févr. 2007 à 20:11
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 2013
-
22 févr. 2007 à 12:36
Bonjours, j'ai de nouveaux problêmes.
Toujours avec mon application MDI.
Dans mon form child appellé Form2, j'ai un richtextbox. Grace au menu du form parent, j'ai la possibilité d'enregistrer le contenu du richtextbox mais voila, le fichier se crée mais il n'y a rien dedans. Voila le code qui doit faire se. Pouvez-vous, si vous le pouvez, trouver l'erreur:
'Ouverture boite de dialogue saveFile
If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then
'écriture du contenue du richtextbox dans le fichier
FSys = CreateObject("Scripting.FileSystemObject")
MonFic = FSys.CreateTextFile(SaveFileDialog1.FileName)
edit = Form2.RichTextBox1.Text
With MonFic
.writeLine(edit)
End With
MonFic.close()
End If
'Ouverture boite de dialogue saveFile
If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then
'écriture du contenue du richtextbox dans le fichier
FSys = CreateObject("Scripting.FileSystemObject")
MonFic = FSys.CreateTextFile(SaveFileDialog1.FileName)
edit = Form2.RichTextBox1.Text
Open MonFic for append as #1 ' Remplace MonFic par ex : 'c:\123.txt'
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 20132 21 févr. 2007 à 20:37
Salut, merci pour ta réponse mais bon, sa ne fonctionne pas, et puis, je crois que tu a mis ce code en VB6, je suis en .Net mais c'est pas grave, j'ai essayé de le mettre en .Net, e script est parfait mais il y a toujours le même bugs.
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 20132 21 févr. 2007 à 21:18
En claire, tu me demande si c'est un Windows piraté? Biensure que non, j'ai pas que sa à faire, et puis, si je piratait, je prendrait VB6 qui, il parait, est beaucoup mieux. Sinon, tu me demande si il faut que je choisisse une session pour ouvrir Windows? Et bien non, je suis seu sur mon ordi.
Bref, revenons à notre sujet.
'Ouverture boite de dialogue saveFile
If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then
'écriture du contenue du richtextbox dans le fichier
Form2.RichTextBox1.SaveFile(SaveFileDialog1.Filename)
End If
@+
N'oubliez pas d'accepter la réponse si elle a réglé votre problème
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 20132 21 févr. 2007 à 21:51
Ralala, on y est presque. Maintenant, il me met du texte dans les fichiers (rtf ou pas) et en mettant n'importe quel texte dans le RichTextBox, dans le fichier, je trouve sa:
{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17\par
}
Je ne sais pas ce que sa veut dire à par Microsoft Sans Serif mais bon... lol