home *** CD-ROM | disk | FTP | other *** search
/ Media Share 13 / mediashare_13.zip / mediashare_13 / ZIPPED / PROGRAM / VBEYES10.ZIP / EYES.FRM (.txt) < prev    next >
Visual Basic Form  |  1994-01-26  |  11KB  |  113 lines
  1. Form15
  2. Picture9
  3. Picture8
  4. Picture7
  5. Picture6
  6. Picture5
  7. Picture4
  8. Picture3
  9. Picture2
  10. Picture1
  11. @    Form_Load`
  12. GetCursorPos
  13. lpRect
  14. lrect
  15. lpPoint
  16. lpoint-
  17. Right
  18. Bottom
  19. Form_Click@
  20. Form_Resizeb
  21. Form1|
  22. WindowStateQ
  23.     DrawWidth
  24. Width
  25. Height
  26. Eyes1
  27. Caption
  28. Cursor
  29. DoEyes
  30. Fill_Desktop
  31. Control
  32. DeskF
  33.     ChipWidth
  34.     DeskWidthV
  35. ChipHeight
  36. DeskHeight    
  37. xloopO
  38. yloop
  39. hSrcDC
  40. hDestDCe
  41. ScaleWidthV
  42. ScaleHeight
  43. Screenw
  44. MousePointer
  45. Visibleq
  46. times
  47. dwRop
  48. BitBlt
  49. CurrentXm
  50. ITop!
  51. ILeft
  52. IBottom
  53. IRight
  54. CurrentY
  55. GetWindowRect
  56. Irect
  57. sRect
  58. winSize
  59. hwndSrc
  60. GetDesktopWindow
  61. GetDC6
  62. YSrc`
  63. nWidth
  64. nHeight
  65. Picture1
  66.     ReleaseDCz
  67. Sector
  68.     OldSector
  69.     ThenEyes1
  70. @    GetSector
  71. Skipit
  72. CaseSector
  73. Picture
  74. Picture2
  75. Picture3L
  76. Picture4;
  77. Picture5u
  78. Picture6[
  79. Picture7e
  80. Picture8
  81. Picture9
  82. Picture1_Click
  83. Form_DblClick
  84. Form_Paint
  85. Form_Activate
  86. Form_Unload
  87. Cancel
  88. Title
  89. Eyes\
  90.  Global Variable Used to Determine Cursor Position's Sector
  91. Form_Load
  92. Hide the Normal Form Off the Screen Boundaries
  93. Form_Resize
  94. Declare Cursor Structure & OldSector
  95.  Quit Program if Not IconicO
  96.  If Iconic State
  97. Get the Current Cursor Position 
  98. Save the Last Sector Numbert
  99. Determine the New Sector Number
  100.  Skip Icon Paint if Same Sector as Beforet
  101.  Update Icon with New Sector Picture
  102. Return Processing Back to Windowsu
  103. GetSector
  104.    This Subroutine determines the sector number associated with the cursor position
  105.    There are 9 possible sectors, number 5 being the icon itselfr
  106.    | 01 | 02 | 03 |
  107.    | 04 |icon| 06 |
  108.    | 07 | 08 | 09 |
  109.  Declare Icon Structuren
  110. Find Size of Icone
  111. Find X Sectorn
  112. Find Y Sector
  113.