équivalent VB6 d'enregistrer txtBox

Résolu
Kofinou Messages postés 42 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   1
 
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   Statut Membre Dernière intervention   1 204
 
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   Statut Membre Dernière intervention   1
 
Merci beaucoup !
:)
Tout fonctionne très bien :)
Thanks
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
De rien

Merci de mettre le post en résolu.

Bonne continuation

;o)
0
Kofinou Messages postés 42 Date d'inscription   Statut Membre Dernière intervention   1
 
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   Statut Membre Dernière intervention   1
 
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   Statut Membre Dernière intervention   1 204
 
Re

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

;o)
0