équivalent VB6 d'enregistrer txtBox

Résolu/Fermé
Kofinou Messages postés 42 Date d'inscription samedi 13 mars 2010 Statut Membre Dernière intervention 18 septembre 2010 - 13 août 2010 à 10:55
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 13 août 2010 à 14:07
Bonjour,

Salut les gens

Je programme actuellement une application en VB6 et je suis comfronté à un petit problème. Je connais un peu le VB.NET et je suis en mesure de créer le code que je veux en VB.NET mais en VB6, je ne trouve pas l'équivalent.

Quelqu'un aurait-il l'équivalent de

Savefiledialog.Filter = "Fichiers TXT (*.txt) .txt"
If Savefiledialog.Showdialog = Windows.Forms.DialogResult.ok Then
Dim sw As New System.IO.StreamWriter(SaveFileDialog.FileName)
sw.WriterLine (maTextBox.Text)
sw.flush()
End If

en VB6 ?

Merci d'avances pour vos réponses et bonne journée.
Cordial.


A voir également:

4 réponses

Kofinou Messages postés 42 Date d'inscription samedi 13 mars 2010 Statut Membre Dernière intervention 18 septembre 2010 1
13 août 2010 à 12:02
En gros j'ai une Textbox avec du texte dedans et je veux enregistrer sous ce texte dans un fichier texte qui se créer en même temps. Voili voilou ! :)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 août 2010 à 12:08
Bonjour,

Pour écrire dans un fichier en VB6:

Dim fp As Integer

   fp = Freefile

   Open "C\Temp\monFichier.txt" For Append As #fp
   Print #fp, maTextBox.Text
   Close #fp


Append permet d'ajouter dans un fichier et créer le fichier s'il n'existe pas
Output permet d'écrire dans un fichier, écrase le fichier s'il existe.

;o)
0
Kofinou Messages postés 42 Date d'inscription samedi 13 mars 2010 Statut Membre Dernière intervention 18 septembre 2010 1
13 août 2010 à 13:39
Merci beaucoup !
:)
Tout fonctionne très bien :)
Thanks
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 août 2010 à 13:41
De rien

Merci de mettre le post en résolu.

Bonne continuation

;o)
0
Kofinou Messages postés 42 Date d'inscription samedi 13 mars 2010 Statut Membre Dernière intervention 18 septembre 2010 1
13 août 2010 à 13:45
Euh au passage j'ai une question:
J'essaye de faire entrer dans ma Textbox L'heure etc et quand j'écris dans le texte & VBA.Datetime.Hour & il me donne l'erreur à l'exécution "Cet argument n'est pas facultatif" en surlignant .Hour . Quelqu'un pourrait-il m'éclairer quand à la raison de cet erreur.
Merci
Cordial.
0
Kofinou Messages postés 42 Date d'inscription samedi 13 mars 2010 Statut Membre Dernière intervention 18 septembre 2010 1
13 août 2010 à 13:48
Voici mon code:
+ "[" & VBA.DateTime.Date & "|" & VBA.DateTime.Hour & ":" & VBA.DateTime.Minute & ":" & VBA.DateTime.Second & "]"

Je l'écris de facon à ce que cela me donne une heure celon ce format-ci:

[Date | 13:47:14]

Voila :)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 août 2010 à 14:07
Re

Now = jj/mm/yyyy hh:mm:ss
Date = jj/mm/yyyy
Time = hh:mm:ss

;o)
0