Die Verwendung von GetLockedPixel und SetLockedPixel ist sehr einfach. Mit diesen Funktionen kann ein Pixel einer Surface direkt verändert werden. So können Fading, Alpha Blending und andere tolle Effekte erreicht werden. Ein paar werden hier erklärt. Die Verwendung von solchen Effekten wertet ein Spiel ungemein auf, aber die Performance lässt dadurch sehr nach.
 
Die Funktion SetLockedPixel liefert im 16bit Modus einen 16bit Farbwert (siehe DirectDraw und 16bit Farben).
 
Doch bevor auf eine Surface direkt zugegriffen werden kann, muss diese mit Lock gesperrt werden. Nach erfolgter Bearbeitung muss die Surface wieder mit Unlock entsperrt werden. Es darf nur auf Pixel innerhalb des gesperrten Bereiches zugegriffen werden. Ein Zugriff außerhalb dieses Bereiches führt unweigerlich zum Absturz des Programms.

Lock(r As RECT, desc As DDSURFACEDESC2, flags As CONST_DDLOCKFLAGS, hnd As Long)

Mit dieser Funktion wird eine Surface gesperrt. Übergeben wird das zu sperrende Rechteck r (siehe Datentyp RECT unter Grundlagen). Mit desc wird die Surfacebeschreibung übergeben (siehe Datentyp DDSURFACEDESC2 unter Grundlagen). Über flags wird festgelegt, wie die Surface gesperrt werden soll (zB. ReadOnly oder WriteOnly). Das Argument hnd ist nicht aktiv und wird auf 0 gesetzt.

Dim destrect As RECT
Dim BmpDesc As DDSURFACEDESC2
        
BmpDesc.lFlags = DDSD_CAPS Or DDSD_HEIGHT Or _
  DDSD_WIDTH Or DDSD_PIXELFORMAT
BmpDesc.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
    
BmpDesc.lWidth = 436
BmpDesc.lHeight = 72
    
'die Bilder werden für ReadOnly gelockt
bmpBild1.Lock destrect, BmpDesc, DDLOCK_WAIT Or _
  DDLOCK_READONLY, 0
bmpBild2.Lock destrect, BmpDesc, DDLOCK_WAIT Or _
  DDLOCK_READONLY, 0
'das Ergebnis-Bild wird für WriteOnly gelockt
bmpErgebnis.Lock destrect, BmpDesc, DDLOCK_WAIT Or _
  DDLOCK_WRITEONLY, 0

'freigeben aller Bilder mit Unlock
bmpBild1.Unlock destrect
bmpBild2.Unlock destrect
bmpErgebnis.Unlock destrect

Sub Fade()
  Dim destrect As RECT
  Dim BmpDesc As DDSURFACEDESC2
  Dim Pixel As Long
  Dim x As Integer
  Dim y As Integer
  Dim PixelRGB As cRGB
  Dim einbyte As Single

  On Error GoTo ErrEnd

  BmpDesc.lFlags = DDSD_CAPS Or DDSD_HEIGHT Or _
     DDSD_WIDTH Or DDSD_PIXELFORMAT
  BmpDesc.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN

  BmpDesc.lWidth = 73
  BmpDesc.lHeight = 85

   'das erste Bild wird für ReadOnly gelockt
  bmpBild1.Lock destrect, BmpDesc, DDLOCK_WAIT Or _
    DDLOCK_READONLY, 0
   'das zweite Bild wird für WriteOnly gelockt
  bmpBild2.Lock destrect, BmpDesc, DDLOCK_WAIT Or _
    DDLOCK_WRITEONLY, 0
   'alle Pixels werden der Reihe nach vom Bild1 eingelesen und in
   'die Farbanteile aufgeteilt. Jeder Farbanteil wird reduziert
   'bzw. erhöht. Der neue Farbwert wird dann in das Bild2
   'geschrieben.

  For y = 0 To 84
     For x = 0 To 72
        Pixel = bmpBild1.GetLockedPixel(x, y)
        PixelRGB = GetRGB16(Pixel)
        einbyte = PixelRGB.r
        If einbyte > 0 Then einbyte = einbyte - counter
        If einbyte < 0 Then einbyte = 0
        If einbyte > 31 Then einbyte = 31
        PixelRGB.r = einbyte
        einbyte = PixelRGB.g

        If Mode16 = Mode565 Then
          If einbyte > 0 Then einbyte = einbyte - (counter * 2)
        Else
          If einbyte > 0 Then einbyte = einbyte - counter
        End If
          If einbyte < 0 Then einbyte = 0
          If einbyte > GruenMax Then einbyte = GruenMax
          PixelRGB.g = einbyte
          einbyte = PixelRGB.b
          If einbyte > 0 Then einbyte = einbyte - counter
          If einbyte < 0 Then einbyte = 0
          If einbyte > 31 Then einbyte = 31
          PixelRGB.b = einbyte
          bmpBild2.SetLockedPixel x, y, Get16BitColor(PixelRGB)
      Next x
  Next y
   'freigeben beider Bilder mit Unlock
  bmpBild1.Unlock destrect
  bmpBild2.Unlock destrect
  Exit Sub

ErrEnd:
  running = False
End Sub

Sub AlphaBlending()
  Dim destrect As RECT
  Dim BmpDesc As DDSURFACEDESC2
  Dim Pixel1 As Long
  Dim Pixel2 As Long
  Dim ZielRGB As cRGB
  Dim x As Integer
  Dim y As Integer

  On Error GoTo ErrEnd

  BmpDesc.lFlags = DDSD_CAPS Or DDSD_HEIGHT Or _
    DDSD_WIDTH Or DDSD_PIXELFORMAT
  BmpDesc.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN

  BmpDesc.lWidth = 436
  BmpDesc.lHeight = 72

   'die Bilder werden für ReadOnly gelockt
  bmpBild1.Lock destrect, BmpDesc, DDLOCK_WAIT Or _
    DDLOCK_READONLY, 0
  bmpBild2.Lock destrect, BmpDesc, DDLOCK_WAIT Or _
    DDLOCK_READONLY, 0
   'das Ergebnis-Bild wird für WriteOnly gelockt
  bmpErgebnis.Lock destrect, BmpDesc, DDLOCK_WAIT Or _
    DDLOCK_WRITEONLY, 0

   'alle Pixel werden der Reihe nach vom Bild1 und Bild2 eingelesen
   'und in die Farbanteile aufgeteilt. Jeder Farbanteil wird neu
   'berechnet und dann wieder zu einem Farbwert kombiniert.
   'Der neue Farbwert wird dann in das Bild2 geschrieben.
  For y = 0 To 72
    For x = 0 To 436
      Pixel1 = bmpBild1.GetLockedPixel(x, y)
      Pixel2 = bmpBild2.GetLockedPixel(x, y)
      RGBBild1 = GetRGB16(Pixel1)
      RGBBild2 = GetRGB16(Pixel2)

       'Berechnen der Ziel-RGB-Farbe
      ZielRGB.r = (RGBBild1.r * BlendStatus + RGBBild2.r * _
         (100 - BlendStatus)) \ 100
      ZielRGB.g = (RGBBild1.g * BlendStatus + RGBBild2.g * _
         (100 - BlendStatus)) \ 100
      ZielRGB.b = (RGBBild1.b * BlendStatus + RGBBild2.b * _
         (100 - BlendStatus)) \ 100

      bmpErgebnis.SetLockedPixel x, y, Get16BitColor(ZielRGB)
    Next x
  Next y
   'freigeben aller Bilder mit Unlock
  bmpBild1.Unlock destrect
  bmpBild2.Unlock destrect
  bmpErgebnis.Unlock destrect
  Exit Sub

ErrEnd:
  running = False
End Sub