home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD67456132000.psc / ModSurfaces.bas < prev   
Encoding:
BASIC Source File  |  2000-06-13  |  1.7 KB  |  57 lines
  1. Attribute VB_Name = "ModSurfaces"
  2. Public BackBuffer As DirectDrawSurface7
  3. Public View As DirectDrawSurface7
  4. Public Balls As DirectDrawSurface7
  5. Public Paddles As DirectDrawSurface7
  6. Public Table As DirectDrawSurface7
  7. Public Phrases As DirectDrawSurface7
  8.  
  9. Public ViewDesc As DDSURFACEDESC2
  10. Public BackBufferDesc As DDSURFACEDESC2
  11. Public BallsDesc As DDSURFACEDESC2
  12. Public PaddlesDesc As DDSURFACEDESC2
  13. Public TableDesc As DDSURFACEDESC2
  14. Public PhrasesDesc As DDSURFACEDESC2
  15.  
  16. Public BackBufferCaps As DDSCAPS2
  17.  
  18. Public ColorKey As DDCOLORKEY
  19.  
  20. Sub CreatePrimaryAndBackBuffer()
  21. Set View = Nothing
  22. Set BackBuffer = Nothing
  23.  
  24. ViewDesc.lFlags = DDSD_CAPS Or DDSD_BACKBUFFERCOUNT
  25. ViewDesc.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE Or DDSCAPS_FLIP Or DDSCAPS_COMPLEX
  26. ViewDesc.lBackBufferCount = 1
  27. Set View = DX_Draw.CreateSurface(ViewDesc)
  28.  
  29. BackBufferCaps.lCaps = DDSCAPS_BACKBUFFER
  30. Set BackBuffer = View.GetAttachedSurface(BackBufferCaps)
  31. BackBuffer.GetSurfaceDesc ViewDesc
  32.  
  33. BackBuffer.SetFontTransparency True
  34.  
  35. End Sub
  36.  
  37. Sub LoadAllPics()
  38. Dim Path As String
  39.  
  40. CreatePrimaryAndBackBuffer
  41.  
  42. Set Balls = Nothing
  43. Set Paddles = Nothing
  44. Set Table = Nothing
  45.  
  46. ModDX7.CreateSurfaceFromFile Balls, BallsDesc, App.Path & "\Graphics\Balls.bmp", 600, 50
  47. ModDX7.CreateSurfaceFromFile Paddles, PaddlesDesc, App.Path & "\Graphics\Batz.bmp", 50, 100
  48. ModDX7.CreateSurfaceFromFile Table, TableDesc, App.Path & "\Graphics\Table.bmp", 320, 240
  49. ModDX7.CreateSurfaceFromFile Phrases, PhrasesDesc, App.Path & "\Graphics\Phrases.bmp", 200, 60
  50.  
  51. ModDX7.AddColorKey BackBuffer, ColorKey, vbWhite, vbWhite
  52. ModDX7.AddColorKey Balls, ColorKey, vbWhite, vbWhite
  53. ModDX7.AddColorKey Phrases, ColorKey, vbWhite, vbWhite
  54.  
  55. End Sub
  56.  
  57.