Function ScrSht(dev As Direct3DDevice8, d3dx As D3DX8, strFileName As String) _
  As Boolean
On Error GoTo errhandler
Dim Surf As Direct3DSurface8
Dim Palette As PALETTEENTRY
Dim r As RECT, w As Long, h As Long
Dim DispMode As D3DDISPLAYMODE
dev.GetDisplayMode DispMode
w = DispMode.Width
h = DispMode.Height
Set Surf = dev.CreateImageSurface(w, h, D3DFMT_A8R8G8B8)
dev.GetFrontBuffer Surf
GetWindowRect Form1.hwnd, r 'Trage hier noch das richtige Ziel ein!!!!
d3dx.SaveSurfaceToFile strFileName, D3DXIFF_BMP, Surf, Palette, r
ScrSht = True
Exit Function
errhandler:
ScrSht = False
End Function

..oO°*Kondome schützen nicht vor Geschlechtsverkehr*°Oo..
Alles was man zur DirectX8 Programmierung braucht
Visual Basic auf USB-Stick

Beitrag wurde zuletzt am 01.09.08 um 08:47:08 editiert.