Hej.
Den här koden har jag lagt in i en module:
Declare Function 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 As Long, ByVal xSrc As Long, _
ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Public Const SRCPAINT = &HEE0086
Public Const SRCAND = &H8800C6
Public RetVal As Long
Här är ett utklipp från subrutinen form_keycode:
Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
X = X + 1
RetVal = BitBlt(ruta.hDC, 0, 0, 32, 32, karta.hDC, X * 32, Y * 32, SRCCOPY)
RetVal = BitBlt(ruta.hDC, 0, 0, 24, 32, alexMask.hDC, a * 24, 32, SRCAND)
RetVal = BitBlt(ruta.hDC, 0, 0, 24, 32, alexSprite.hDC, a * 24, 32, SRCPAINT)
'ruta.PaintPicture alex, 0, 0, 24, 32, a * 24, 32, 24, 32
ruta.Left = 32 * X
a = a + 1
If a = 3 Then
a = 0
End If