home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD15673312001.psc / CGuide.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-02-18  |  1.5 KB  |  70 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CGuide"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. Private sdGuide As DDSURFACEDESC2
  17. Public dsGuide As DirectDrawSurface7
  18. Private recGuide As RECT
  19.  
  20. Private m_XPos As Long
  21. Private m_YPos As Long
  22.  
  23. Private Sub Class_Initialize()
  24. Dim Key As DDCOLORKEY
  25.  
  26. sdGuide.lFlags = DDSD_CAPS
  27. sdGuide.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
  28. Set dsGuide = ddMain.CreateSurfaceFromFile(App.Path & "\guide.BMP", sdGuide)
  29. recGuide.Bottom = sdGuide.lHeight
  30. recGuide.Right = sdGuide.lWidth
  31. Key.low = 0
  32. Key.high = 0
  33. dsGuide.SetColorKey DDCKEY_SRCBLT, Key
  34.  
  35. XPos = 290
  36. YPos = 10
  37. End Sub
  38.  
  39. Public Property Get XPos() As Long
  40. XPos = m_XPos
  41. End Property
  42. Public Property Let XPos(vNewVal As Long)
  43. m_XPos = vNewVal
  44. End Property
  45.  
  46. Public Property Get YPos() As Long
  47. YPos = m_YPos
  48. End Property
  49. Public Property Let YPos(vNewVal As Long)
  50. m_YPos = vNewVal
  51. End Property
  52.  
  53. Public Property Get DestRect() As RECT
  54. DestRect.Bottom = YPos + RECTO.Bottom
  55. DestRect.Right = XPos + RECTO.Right
  56. DestRect.Top = YPos
  57. DestRect.Left = XPos
  58. End Property
  59.  
  60. Public Property Get RECTO() As RECT
  61. RECTO = recGuide
  62. End Property
  63.  
  64. Public Sub ShiftDown()
  65. YPos = YPos + SPEED + ShiftSpeed
  66. If YPos > 480 Then YPos = -100
  67. End Sub
  68.  
  69.  
  70.