équivalent VB6 d'enregistrer txtBox
Résolu
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.
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.
4 réponses
-
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 ! :)
-
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)
-
Merci beaucoup !
:)
Tout fonctionne très bien :)
Thanks -
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.
