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
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
A voir également:
- Autosave
- Autosave vba - Forum Visual Basic 6
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
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.
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.
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
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.
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.
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
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.
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.