Autosave

Résolu
nuttyfbr Messages postés 57 Date d'inscription mardi 31 août 2004 Statut Membre Dernière intervention 8 octobre 2006 - 21 janv. 2005 à 19:20
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 - 21 janv. 2005 à 20:04
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
A voir également:

3 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
21 janv. 2005 à 20:03
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
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
21 janv. 2005 à 20:02
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.
0
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
21 janv. 2005 à 20:04
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.
0