Código de captura de pantalla de VB
Captura de pantalla de VB, guardar en archivo de mapa de bits
'Sección de declaración
Opción explícita
Const privada SRCCOPY = &HCC0020
Función de declaración privada BitBlt Lib "gdi32" (ByVal hDestDC mientras, ByVal X mientras, ByVal Y mientras, ByVal nWidth mientras, ByVal nHeight mientras, ByVal hSrcDC mientras, ByVal xSrc mientras, ByVal ySrc mientras , ByVal dwRop As Long) As Long
Función de declaración privada GetDesktopWindow Lib "user32" () As Long
Función de declaración privada GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Función de declaración privada ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
'Parte del código del formulario
Private Sub Form_Load( )
Me.AutoRedraw = True
End Sub
Subcomando privado1_Click()
CopyScreen "d:\1. bmp"
End Sub
Sub CopyScreen(FileName As String)
Dim w As Long, h As Long
Dim hwndSrc As Long
Atenuar hSrcDC siempre
hwndSrc = GetDesktopWindow()
hSrcDC = GetWindowDC(hwndSrc)
w = Screen.Width \ Screen. TwipsPerPixelX
h = Screen.Height \ Screen.TwipsPerPixelY
Llamar a BitBlt(hdc, 0, 0, w, h, hSrcDC, 0, 0, SRCCOPY)
Llame a ReleaseDC(hwndSrc, hSrcDC)
SavePicture Me.Image, FileName
End Sub
Guarde la captura de pantalla completa en el nombre de archivo especificado Archivo de mapa de bits
CopyScreen(FileName As String)
El parámetro FileName puede ser la ruta completa del nombre del archivo