Red de conocimiento informático - Problemas con los teléfonos móviles - Tome una captura de pantalla del área y guárdela como código vb ````

Tome una captura de pantalla del área y guárdela como código vb ````

Función de declaración privada GetDC Lib "user32" (ByVal hwnd As Long) mientras

Función de declaración privada ReleaseDC _

Lib "user32" (ByVal hwnd As Long, _

ByVal hdc As Long) As Long

Función de declaración privada BitBlt _

Lib "gdi32" (ByVal hDestDC As Long, _

ByVal X As Largo, _

ByVal Y As Long, _

ByVal nWidth As Long, _

ByVal nHeight As Long, _

ByVal hSrcDC Mientras, _

ByVal xSrc Mientras, _

ByVal ySrc Mientras, _

ByVal dwRop Mientras) Mientras

Función de declaración privada StretchBlt _

Lib "gdi32" (ByVal hdc As Long, _

ByVal X As Long, _

ByVal Y As Long, _

ByVal nWidth Mientras, _

ByVal nHeight Mientras, _

ByVal hSrcDC Mientras, _

ByVal xSrc Como Largo, _

ByVal ySrc Mientras Largo, _

ByVal nSrcWidth Mientras Largo, _

ByVal nSrcHeight Mientras Largo, _

ByVal dwRop As Long) As Long

'Primero, agregue un cuadro de imagen en el formulario PictureBox El nombre del control es Imagen1

'Intercepte la ubicación especificada del tamaño especificado de la región y guárdela en el archivo c.NET:\1.bmp

Private Sub Form_Load()

Atenuar hDCtmp siempre

Atenuar w, h, X, Y p>

w = 300 'Ancho de la porción de pantalla a capturar

h = 300 'Alto de la porción de pantalla a capturar

X = 300 'Horizontal coordenada/borde izquierdo Izquierda

Y = 300 ' Coordenada vertical/parte superior del límite superior

Me.p>

hDCtmp = GetDC(0)

Imagen1.BorderStyle = 0

Imagen1.AutoRedraw = True

Imagen1.Width = w * Screen.hdc, 0, 0, w, h, hDCtmp, X, Y, vbSrcCopy)

> ReleaseDC 0, hDCtmp

Guardar imagen.