home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / lowlevel / simple.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-31  |  4.7 KB  |  155 lines
  1. Form1
  2. Form1
  3. Form15D
  4. Timer1
  5. timer1_timer
  6. form1
  7. @    Form_Load
  8. timer1v
  9. Interval
  10. Caption
  11. ControlBoxU
  12.     MaxButtonp
  13.     MinButtonF
  14. Form_MouseDown
  15. ButtonL
  16. Shiftc
  17. Form_MouseMove
  18. NCallsj
  19. NumCalls|
  20. Form_MouseUp
  21. PrevInstance
  22. Width
  23. Height
  24. windowstaet
  25. WindowState
  26. Form_KeyDownJ
  27. KeyCode
  28. Form_KeyPress
  29. KeyAscii3
  30. Form_KeyUp:
  31. SetWindowPos
  32. SWP_NOMOVE<
  33. SWP_NO_SIZE
  34. FLAGS
  35. SWP_NOSIZEZ
  36. HWND_TOPMOST
  37. HWND_NOTOPMOST6
  38. Form_Resize
  39. MB_OK
  40. MAX_NUM_CALLSV
  41. randomLine
  42. BorderStyle
  43.     BackColorK
  44. colour{
  45. MousePointer]
  46. GetModuleHandle=
  47. lpModuleName
  48. GetClassWord
  49. nIndex
  50. ExtractIconv
  51. hInste
  52. lpszExeNameo
  53. hIconH
  54. DrawIcon
  55. GWW_HINSTANCE
  56. GCW_HMODULE
  57. Command1_Click
  58. picture1
  59. Picture$
  60. progName
  61. picture2
  62. AutoRedrawv
  63. KeyStops
  64. KeyHitStops
  65. MouseMoveStops
  66. Enabled(
  67. Command2_Click
  68. ATTR_DIRECTORY
  69. Form_Click
  70. ListSubDirsU
  71. Countc
  72. dirName
  73. List1
  74.     SaverType
  75. SAVER_ICONS
  76.     EndSelect
  77. SubDirs"
  78. SAVER_LINES
  79. SaverInited
  80. randomIcon
  81. Picture1_Click1
  82. Direcw
  83.     NumDirecs
  84. Command3_Click
  85. GetPrivateProfileStringj
  86. lpApplicationName
  87.     lpKeyName
  88.     lpDefault
  89. lpReturnedString6
  90. nSize
  91. lpFileName
  92. WritePrivateProfileString
  93. lpStringp
  94. lplFileName&
  95. INIGet
  96. vsINISection
  97. vsINIVar
  98.     vsDefault
  99. sINIFileA
  100. sRetStr
  101. EXEName
  102. INIPut
  103. vsValue
  104.     DrawWidth
  105.     SetCursor
  106. hCursor
  107.     GetCursor
  108. Form_Unload
  109. Cancel
  110. Form_Paint
  111. .. true if it has been
  112. APIs to hide mouse pointer
  113. holds the original mouse pointer handlel    
  114. Form_Load
  115. FORM_LOAD: First port of call for the application. Checks it is not runningg
  116. already and sets up basic form characteristics, etcs
  117. Stop a second copy of this program from being run concurrently...)
  118. Saver has not been initialised...
  119. Set up basic form properties....
  120. form1.BorderStyle = 0
  121.  ..theses
  122. form1.ControlBox = False   are set
  123. form1.MaxButton = False
  124.  at designe
  125. form1.MinButton = False
  126.  time..
  127. maximisedm
  128. black 
  129. form1.AutoRedraw = True   'optionalo
  130. Get rid of mouse pointer, and hold what it was previously...
  131. Drawing gets done by the timer...
  132. quarter second
  133. different random number sequence each time
  134. Form_MouseDown
  135. FORM_MOUSEDOWN: As for Form_MouseUp - 
  136. we don't 'End' until this is called twice.
  137. Form_MouseMove
  138. FORM_MOUSEMOVE: As for Form_MouseUp --
  139. we don't 'End' until this is called twice.
  140. Form_MouseUp
  141. FORM_MOUSEUP: First couple of mouse events are a result of loading
  142. the app - so we don't 'End' until this is called twice. 
  143. Form_Unload
  144. FORM_UNLOAD: Restore original cursor on the way out.
  145. Restore original cursor)
  146. timer1_timer
  147. TIMER1_TIMER - called every so often - simply does the bit of the drawing*
  148. Does initialisation first if SaverInited is falses
  149. a random colour - UK spelling not reserved in VB
  150. Clear screen initially and also periodically... 
  151. Hide the mouse pointer
  152. We've been called one more timet
  153. Get random coordinates, line colour and line width...
  154. Go draw it in the current form
  155.