débutant pb de enregistrement succesif....

Question

Bonjour, bon voila mon probl&#232;me c'est que j'ai &#233;cri les lignes de codes suivantes qui fonctionnent tr&#232;s bien (c'est pour faire une capture d'&#233;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&#232;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'&#224; 100.bmp .

Mais j'en suis incapable alors si quelqu'un voulai bien me taper un petit code ce serai vraiment trop sympa!!!!!!!!!!!!!!!
merci

Gobillot · Answer

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

yohan49 · Answer

tu fais un timer

une varible public dans un module nome num&#233;ro

dans ton timer

SavePicture Clipboard.GetData, "c:" & num&#233;ro & ".bmp"
num&#233;ro = num&#233;ro + 1

puis tu regle ton timer a l'interval de prise de vue que tu veux 

pas du : )

zwarul · Answer

merci

Débutant pb de enregistrement succesif....

3 réponses