Sauvegarder contenu textbox ????

VinceTheNewbieInVb - 19 oct. 2001 à 21:58
 int19h - 20 oct. 2001 à 20:30
Salut. Comment fait ton pour sauvegarder le contenu d'une textbox apres fermeture du programme ??? :question)
Merci d'avance

7 réponses

bein plusieurs solutions s'offre à toi...
La plus facile a mettre en oeuvre ... le principe meme de la sauvegarde d'informations, c'est de créer un fichier dans lequel tu mettras c'ke tu veux, ici en l'occurence le contenu de ton control TextBox...

Une deuxieme solution serait de stocker ces info dans la base de registre...
0
VinceTheNewbieInVb
19 oct. 2001 à 22:52
Merci mais je suis vraiment nouveau lol.
Comment fait t'on pour : "créer un fichier dans lequel tu mettras c'ke tu veux" ?
0
Salut

Creation avec la fontion OPEN :

' Ouvre le fichier en ecriture
open "c:\fichier.txt" for output as #1
Print #1, "Bonjour"
Print #1, "Ligne 2"
Print #1, "Essai de fichier"
close

Note : avec output, si le fichier existe, il est ecrase, on pert tout ce qu'il y a dedant. S'il n'existe pas, il est crée.

' Lecture du fichier :
Dim Ligne(100) as string
Open "c:\fichier.txt" for input as #1
a=0
do until eof(1)
' Lire une ligne complet
Line input #1, Ligne(a)
a=a+1
loop
close

' Ici on a les infos dans Ligne(x)

Mais attention, ceci n'est qu'un PETIT exemple de la fonction open, il y'a bien d'autre chose : get, put, eof, lof, loc, seek, free, append, binary

a+

Int19h
0
VinceTheNewbieInVb
20 oct. 2001 à 13:48
Merci pour l'info mais j'ai encore du mal lol

Prenons un exemple concret : je veut mettre le contenu d'un fichier teste dans un textbox comment dois-je faire ?

Par contre la sauvegarde ça marche super !

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
VinceTheNewbieInVb
20 oct. 2001 à 13:48
Merci pour l'info mais j'ai encore du mal lol

Prenons un exemple concret : je veut mettre le contenu d'un fichier texte dans un textbox comment dois-je faire ?

Par contre la sauvegarde ça marche super !

Merci
0
En admettant que le fichier c:\blabla.toto existe ...

---- Form ----

Private Sub Form_Load()
Dim TxtLine As String
Open "c:\blabla.toto" For Input As #1
Do While Not EOF(1)
Line Input #1, TxtLine
Text1.Text = Text1.Text & TxtLine & vbCrLf
Loop
End Sub

---- Fin ----

Et voila le contenu de ton fichier blabla.toto est dans ton textbox ... ca fait un peu notepad mais bon :)
0
Salut

La version super rapide de chargement :

Open "c:\blabla.toto" For Input As #1
Text1 = Input(Lof(1), #1)
close

C'est presque instantaner si le fichier n'est pas trop gros.

a+

Int19h
0
Rejoignez-nous