Autosave

Résolu
Signaler
Messages postés
57
Date d'inscription
mardi 31 août 2004
Statut
Membre
Dernière intervention
8 octobre 2006
-
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
Hello; J'aurais besoins de savoir comment faire pour que deux labels se
sauvegardent automatiquement toutes les minutes ...





Pour plus d'info demandez moi





Merci


NuttyKizzy

3 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
1 Timer nommé Timer1

2 Labels nommés Label1 et Label2







Private Sub Form_Load()

Timer1.Interval = 60000

Timer1.Enabled = True

End Sub





Private Sub Timer1_Timer()

Dim numFile As Long



numFile = FreeFile


Open "C:\sauvegarde.txt" For Output As #numFile


Print #numFile, Label1.Caption


Print #numFile, Label2.Caption



Close #numFile




End Sub

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
1 Timer nommé Timer1

2 Labels nommés Label1 et Label2







Private Sub Form_Load()

Timer1.Interval = 60000

End Sub





Private Sub Timer1_Timer()

Dim numFile As Long



numFile = FreeFile


Open "C:\sauvegarde.txt" For Output As #numFile


Print #numFile, Label1.Caption


Print #numFile, Label2.Caption



Close #numFile




End Sub

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
ATTENTION, le deuxième code est légèrement différent du premier. Voir Form_Load.


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.