Débutant pb de enregistrement succesif....

Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008
- - Dernière réponse : 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
Afficher la suite 

3 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
31 mars 2015
19
0
Merci
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
382
Date d'inscription
samedi 22 janvier 2005
Statut
Membre
Dernière intervention
13 août 2011
7
0
Merci
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
0
Merci
merci