Comment puis créer un Compteur en Utilisant un Fichier ?
Utilisez ce code dan Votre Form_Load par exemple :
Source / Exemple :
Private Sub Form_Load()
' Les lignes suivantes sont le compteur d'utilisation</font>
Dim Compteur As Integer
On Error Resume Next
Open "c:\nom du fichier" For Input As #1
Input #1, Compteur
Close #1
Compteur = Compteur + 1
Open "c:\nom du fichier" For Output As #1
Print #1, Compteur
Close
If Compteur >= 10 Then End 'si le nbre d'éxécutions est > à 10 le prog stoppe.</font>
' Seul inconvénient: il faut connaitre l'emplacement du répertoire où
l'on veut créer le fichier.Le mieux serait de créer une entrée
dans la base de registre.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.