capture d ecran ? pq ca marche po!!!

Question

Slt j utilise se code ds mon soft pour faire une capture d'ecran est ca m envoie ds le fichier l avant derniere capture d ecran pq???

Call keybd_event(vbKeySnapshot, 1, 0, 0) 'on lance virtuellement l'appuie sur la touche Impr écran Syst
SavePicture Clipboard.GetData(0), CommonDialog1.filename

TRAX44 · Answer

salut, 
le code à mettre c 

 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0, 0&, 0& 'envoie la code de la touche inpim ecran (la capture dans le press papier 

SavePicture Clipboard.GetData(), "c:	tm.bmp"
'enregistre la capture a l'adresse c:	tm.bmp
End Sub

TRAX44  :big)

pcpunch · Answer

dsl
mais erreur 380
valeur de propriete incorect
ton code est presque le mm que le mien???
mis a part :
keybd_event vbKeySnapshot, 0, 0&, 0&

pcpunch · Answer

erreur vien de getdata() il faut mettre getdata(0) mais c le mm probleme c tj avant derniere image qui est ds le fichier???

TRAX44 · Answer

nan dsl in fo pas de paranthèse du tt sa marche je vien de l'essayer

K@zuya · Answer

Moi je fait des captures d'écran comme ça:

il te fo une form avec 
autoredraw = true
borderstile = 0
visible = false
windowstate = 2

Dim hWnd&, hdc&
  hWnd& = GetDesktopWindow()
  hdc& = GetDC(hWnd&)
  BitBlt Form1.hdc, 0, 0, Screen.Width / 15, Screen.Height / 15, hdc&, 0, 0, SRCCOPY
  SavePicture Form1.Image, app.path & "\Screen.bmp"

K@zuya · Answer

et comme c'est pas tres clair, voici un exemple:

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Const SRCCOPY = &HCC0020
Private Const SRCAND = &H8800C6
Private Const SRCINVERT = &H660046

Private Sub Form_Load()

Dim hWnd&, hdc&
hWnd& = GetDesktopWindow()
hdc& = GetDC(hWnd&)
BitBlt Form1.hdc, 0, 0, Screen.Width / 15, Screen.Height / 15, hdc&, 0, 0, SRCCOPY
SavePicture Form1.Image, App.Path & "\Screen.bmp"
DoEvents
End

End Sub

stabe · Answer

Salut,

celà vient du fait que tu sauves ton image du presse papier avant qu'il ait fini de faire la copie d'écran (donc qu'il ait fini de mettre l'image dans le presse papier).

Il faut donc attendre qu'il ait fini de faire sa copie d'écran avant de sauver l'image.

Voici le code à utiliser :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
' copie d'écran
keybd_event vbKeySnapshot, 0, 0&, 0&
'attente que l'image soit finie de copiée
DoEvents
'enregistre l'image
SavePicture Clipboard.GetData(2), "c:	tm.bmp"

End Sub

djflo99 · Answer

oh la la, voici le code correcte et qu'il marche chez moi !!

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0, 0&, 0& 'envoie la code de la touche inpim ecran (la capture dans le press papier


SavePicture Clipboard.GetData(), ("C:\Documents and Settings\user\Bureau	tm.bmp")
'enregistre la capture a l'adresse c:	tm.bmp
End Sub

et le bingo !

Capture d ecran ? pq ca marche po!!!

8 réponses

Discussions similaires