home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD154242242001.psc / modDX.bas < prev   
Encoding:
BASIC Source File  |  2001-02-23  |  1.8 KB  |  67 lines
  1. Attribute VB_Name = "DDraw"
  2. Dim dx As New DirectX7
  3. Dim dd As DirectDraw7
  4. Dim ddsPrimary As DirectDrawSurface7
  5. Dim ddsBack As DirectDrawSurface7
  6. Dim ddsSprite As DirectDrawSurface7
  7. Dim ddsCrossHair As DirectDrawSurface7
  8. Dim rectSprite As RECT, rectClearBuffer As RECT, rectCrosshair As RECT
  9.  
  10.  
  11. Public Sub Initialize(prmForm As Form)
  12.     'On Error GoTo ErrRoutine
  13.     
  14.     Dim ddsd As DDSURFACEDESC2
  15.     
  16.     ' Hide Mouse
  17.     Do Until ShowCursor(0) < 0
  18.     Loop
  19.     
  20.     ' Create direct draw object
  21.     Set dd = dx.DirectDrawCreate("")
  22.     
  23.     ' Set Coop level
  24.     Call dd.SetCooperativeLevel(prmForm.hWnd, DDSCL_ALLOWREBOOT Or DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE)
  25.     
  26.     ' Set display mode
  27.     Call dd.SetDisplayMode(SCREEN_WIDTH, SCREEN_HEIGHT, SCREEN_BPP, 0, DDSDM_DEFAULT)
  28.     
  29.     ' Set valid surface flags
  30.     ddsd.lFlags = DDSD_CAPS Or DDSD_BACKBUFFERCOUNT
  31.     
  32.     ' Set surface capabilities and back buffer count
  33.     ddsd.ddsCaps.lCaps = DDSCAPS_COMPLEX Or DDSCAPS_FLIP Or DDSCAPS_PRIMARYSURFACE
  34.     ddsd.lBackBufferCount = 1
  35.     
  36.     ' Create primary surface
  37.     Set ddsPrimary = dd.CreateSurface(ddsd)
  38.     
  39.     ' Set back buffer suface capabilities
  40.     Dim caps As DDSCAPS2
  41.     caps.lCaps = DDSCAPS_BACKBUFFER
  42.     
  43.     ' Create back buffer surface
  44.     Set ddsBack = ddsPrimary.GetAttachedSurface(caps)
  45.     
  46.     ' Set size of clear buffer rect
  47.     rectClearBuffer.Bottom = SCREEN_HEIGHT: rectClearBuffer.Right = SCREEN_WIDTH
  48.     
  49.     ' Set size of crosshair rect
  50.     rectCrosshair.Bottom = 32: rectCrosshair.Right = 32
  51.     
  52.  
  53.     ' Load tiles
  54.     Call LoadTiles
  55.     
  56.     
  57.     
  58.     ddsBack.SetForeColor (vbBlue)
  59.     
  60.     Exit Sub
  61.     
  62. ErrRoutineNEs
  63.     
  64. EcyU   imary surface
  65.     Set dN c   Set dN c  O  rof cSetAeDTH
  66.     
  67.     '  O  OaoeNetDisplayvir.Right = Xtiesr.BvtbD