Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de pantalla de VB, pidiendo una respuesta. La imagen que generé usando el código está en blanco. Quiero capturar toda la pantalla de la computadora.

Problema de pantalla de VB, pidiendo una respuesta. La imagen que generé usando el código está en blanco. Quiero capturar toda la pantalla de la computadora.

'Su bitbit se usa incorrectamente. El siguiente es el código modificado:

Opción explícita

Tipo privado PALETTEENTRY

peRed As Byte

. peGreen como byte

peBlue como byte

peFlags como byte

Tipo final

Tipo privado LOGPALETTE

palVersion Como entero

palNumEntry Como entero

palPalEntry(255) Como PALETTEENTRY

Tipo final

GUID de tipo privado

Datos1 Siempre

Datos2 Como Entero

Datos3 Como Entero

Datos4(7) Como Byte

Tipo de Fin

Const privada RASTERCAPS mientras = 38

Const privada RC_PALETTE mientras = &H100

Const privada SIZEPALETTE mientras = 104

Tipo privado RECT

Izquierda Mientras Largo

Arriba Mientras Largo

Derecha Mientras Largo

Abajo Mientras Largo

EndType

p>

Función de declaración privada CreateCompatibleDC Lib "GDI32" (ByVal hDC siempre y cuando)

Función de declaración privada CreateCompatibleBitmap Lib "GDI32" (ByVal hDC mientras,_

ByVal nWidth As Long, ByVal nHeight As Long) As Long

Función de declaración privada GetDeviceCaps Lib "GDI32" (ByVal hDC As Long, ByVal _

iCapabilitiy As Long) As Long

Función de declaración privada GetSystemPaletteEntries Lib "GDI32" (ByVal hDC As Long. _

ByVal hDC As Long, _

ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries _

Como PALETTEENTRY) Mientras

Función de declaración privada GetSystemPaletteEntries mientras

Función de declaración privada GetSystemPaletteEntries mientras p>Declaración privada

e Función CreatePalette Lib "GDI32" (lpLogPalette como LOGPALETTE) _

Siempre

Función de declaración privada SelectObject Lib "GDI32" (ByVal hDC Mientras, ByVal hObject _

As Long) As Long

Función de declaración privada BitBlt Lib "GDI32" (ByVal hDCDest As Long, ByVal XDest As _

Long, ByVal YDest As Long, ByVal nWidth As Largo, ByVal nHeight Mientras, _

ByVal hDCSrc Mientras, ByVal XSrc Mientras, ByVal YSrc Mientras, ByVal dwRop _

Mientras) Mientras

Función de declaración privada DeleteDC Lib "GDI32" (ByVal hDC siempre) mientras

Función de declaración privada GetForegroundWindow Lib "user32" () mientras

Función de declaración privada SelectPalette Lib " GDI32" (ByVal hDC Mientras, ByVal hPalette _

Mientras, ByVal bForceBackground Mientras) Mientras

Función de declaración privada RealizePalette Lib "GDI32" (ByVal hDC Mientras) Como Long

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

上篇: Programación de tonos 下篇: ¿Cuánto tiempo lleva dominar wincc?

Artículos populares