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 Membre 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 Membre Dernière intervention 23 décembre 2008 - 21 janv. 2005 à 20:04
3 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
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
Membre
Dernière intervention
23 décembre 2008
24
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
Membre
Dernière intervention
23 décembre 2008
24
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.