Gráficos API de VB

Función de declaración pública 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 Mientras, ByVal xSrc Mientras, ByVal ySrc Mientras, _

ByVal dwRop Mientras) Mientras

Public Const srcopy = & >'Primero debe cargar la imagen externa en Imagen1 (imagen con nombre), luego usar la API para copiar el área especificada en Imagen2 (tanque con nombre)

Public Sub RotaFill(tanque como objeto, imagen como objeto , R como entero)

tank.Picture = LoadPicture("")

Para i = 500To1000

Para j = 500 a 1000

Tanque BitBlt .hDC, j,i, 1, 1, pic.hDC, j, i, srcopy Siguiente j

Siguiente i

End Sub

'Este es un código similar al que usé implementar la copia cuando hice Tank Battle. Pero hay muchas desventajas. Más tarde cambié mi enfoque.

Zhang Zhichen