imprime ecran

Question

s'il vous plais je veux creer un bouton qui me permet de faire un imprime ecran de la forme c tres tres urgent merci

violent_ken · Answer

Salut !
Le code ci dessous permet de sauvegarder la capture d'écran en "c:\screen.bmp"
Le code nécessite une picturebox (picture1)

Mets çà dans une form :

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function BitBlt Lib "gdi32.dll" ( _
     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.dll" () As Long

Private Declare Function GetDC Lib "user32.dll" ( _
     ByVal hwnd As Long) As Long

Private Const SRCCOPY As Long = &HCC0020

Public Sub shot()
    Dim path As String
    path = "c:\screen.bmp"
    Picture1.AutoRedraw = True
    Picture1.Width = Screen.Width
    Picture1.Height = Screen.Height
    BitBlt Picture1.hDC, 0&, 0&, Screen.Width, Screen.Height, GetDC(GetDesktopWindow()), 0&, 0&, SRCCOPY
    SavePicture Picture1.Image, path
End Sub


et quand tu clique sur ton bouton, tu mets
private sub command1_click()
shot
end sub

et voilà @+

violent_ken · Answer

Cela marche pour la capture de l'écran.
Pour la capture de la form seulement, un peu d'imagination...
@+

violent_ken · Answer

Tiens http://www.vbfrance.com/code.aspx?id=3729
pour t'éviter de chercher
@+

cs_CanisLupus · Answer

Salut,
Si c'est en vb6, pour une form, pourquoi pas un simple : Me.PrintForm ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

salut,
me.printform? ce n'est pas directement pour imprimer?
PCPT

Imprime ecran

5 réponses

Discussions similaires