Débutant pb de enregistrement succesif....

Signaler
Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008
-
Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008
-
Bonjour, bon voila mon problème c'est que j'ai écri les lignes de codes suivantes qui fonctionnent très bien (c'est pour faire une capture d'écran).

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
....
______________________________________
Call keybd_event(VK_SNAPSHOT, 0, 0&, 0&)

SavePicture Clipboard.GetData, "c:\1.bmp"

Mais mon problème c'est que j'aimerai que ces lignes tournes en boucles, mais que par contre le nom du fichier d'enregistrement lui change, disons que je veux faire faire 100 fois la boucle et obtenir 100 fichier image bmp portant les noms 1.bmp, 2.bmp, 3.bmp j'usqu'à 100.bmp .

Mais j'en suis incapable alors si quelqu'un voulai bien me taper un petit code ce serai vraiment trop sympa!!!!!!!!!!!!!!!
merci

3 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
25
Dim i As Integer









For i = 1 To 100

Call keybd_event(VK_SNAPSHOT, 0, 0&, 0&)

SavePicture Clipboard.GetData, "c:" & i & ".bmp"

DoEvents

Next


Daniel
Messages postés
380
Date d'inscription
samedi 22 janvier 2005
Statut
Membre
Dernière intervention
13 août 2011
7
tu fais un timer

une varible public dans un module nome numéro

dans ton timer

SavePicture Clipboard.GetData, "c:" & numéro & ".bmp"
numéro = numéro + 1

puis tu regle ton timer a l'interval de prise de vue que tu veux

pas du : )
Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008

merci