Débutant pb de enregistrement succesif....

zwarul Messages postés 35 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 3 août 2008 - 11 juil. 2005 à 18:37
zwarul Messages postés 35 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 3 août 2008 - 11 juil. 2005 à 19:13
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

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
11 juil. 2005 à 18:48
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
0
yohan49 Messages postés 380 Date d'inscription samedi 22 janvier 2005 Statut Membre Dernière intervention 13 août 2011 8
11 juil. 2005 à 18:50
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 : )
0
zwarul Messages postés 35 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 3 août 2008
11 juil. 2005 à 19:13
merci
0