home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / FX / FX.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1992-10-12  |  10.5 KB  |  250 lines
  1. Graphics Special Effects
  2. System
  3. ww{www
  4. ww{www
  5. Form1
  6. Label1
  7. }This application demonstrates how you can produce "special effects" using picture boxes and bitmaps. Thanks to Tito Messerli!
  8. System
  9. Timer1
  10. EffectButton
  11. Automatic Demo
  12. System
  13. EffectButton
  14. VRotate
  15. System
  16. EffectButton
  17. HRotate
  18. System
  19. Label2
  20. Rotation
  21. System
  22. EffectButton
  23. Explode
  24. System
  25. EffectButton
  26. Implode
  27. System
  28. EffectButton
  29. Combo
  30. System
  31. Label2
  32. Explode
  33. System
  34. EffectButton
  35. Right
  36. System
  37. EffectButton
  38. System
  39. EffectButton
  40. System
  41. EffectButton
  42. System
  43. Label2
  44. System
  45. EffectButton
  46. Right
  47. System
  48. EffectButton
  49. System
  50. EffectButton
  51. System
  52. EffectButton
  53. System
  54. Label2
  55. Overlay
  56. System
  57. EffectButton
  58.     Vert Open
  59. System
  60. EffectButton
  61. Vert Close
  62. System
  63. EffectButton
  64. Hor Open
  65. System
  66. EffectButton
  67.     Hor Close
  68. System
  69. Label2
  70. Curtains
  71. System
  72. WorkPicture
  73. System
  74. SourcePicture
  75. UUUUUUUUUUUUUUUUUUUUUUU
  76. UUUUUUUUUUUUUUUUUUUUUP
  77. UUUUUUUUUUUUUUUUUUUUU
  78. UUUUUUUUUUUUUUUUUUUP
  79. UUUUUUUUUUUUUUUUUUU
  80. UUUUUUUUUUUUUUUUUP
  81. UUUUUUUUUUUUUUUUU
  82. UUUUUUUUUUUUUUUP
  83. UUUUUUUUUUUUUUU
  84. UUUUUUUUUUUUUP
  85. UUUUUUUUUUUUU
  86. UUUUUUUUUUUP
  87. UUUUUUUUUUU
  88. UUUUUUUUUP
  89. UUUUUUUUU
  90. UUUUUUUP
  91. UUUUUUU
  92. UUUU    
  93. UUUUUP
  94. UUUUP
  95. UUUUP
  96. UUUUU
  97. UUUUP
  98. UUUUU    
  99. UUUUUP
  100. UUUUUP
  101. UUUUUP
  102. UUUUUU    
  103. UUUUUUP
  104. UUUUUUP
  105. UUUUUUP
  106. UUUUUUU    
  107. UUUUUUUP
  108. UUUUUUUP
  109. UUUUUUUP
  110. UUUUUUUU    
  111. UUUUUUUUP
  112. UUUUUUUUP
  113. UUUUUUUUP
  114. UUUUUUUUU    
  115. UUUUUUUUUP
  116. UUUUUUUUUP
  117. UUUUUUUUUP
  118. UUUUUUUUUU    
  119. UUUUUUUUUUP
  120. UUUUUUUUUUP
  121. UUUUUUUUUUP
  122. UUUUUUUUUUU    
  123. UUUUUUUUUUUP
  124. UUUUUUUUUUU
  125. UUUUUUUUUUUP
  126. UUUUUUUUUUP
  127. UUUUUUUUUUP
  128. UUUUUUUUUU
  129. UUUUUUUUUUP
  130. UUUUUUUUUP
  131. UUUUUUUUUP
  132. UUUUUUUUU
  133. UUUUUUUUUP
  134. UUUUUUUUP
  135. UUUUUUUUP
  136. UUUUUUUU
  137. UUUUUUUUP
  138. UUUUUUUP
  139. UUUUUUUP
  140. UUUUUUU
  141. UUUUUUUP
  142. UUUUUUP
  143. UUUUUUP
  144. UUUUUU
  145. UUUUUUP
  146. UUUUUP
  147. UUUUUP
  148. UUUUU
  149. UUUUUP
  150. UUUUP
  151. UUUUU    
  152. UUUUP
  153. UUUUUP
  154. UUUUP
  155. UUUUUUU    
  156. UUUUUUUP
  157. UUUUUUUUU    
  158. UUUUUUUUUP
  159. UUUUUUUUUUU    
  160. UUUUUUUUUUUP
  161. UUUUUUUUUUUUU    
  162. UUUUUUUUUUUUUP
  163. UUUUUUUUUUUUUUU    
  164. UUUUUUUUUUUUUUUP
  165. UUUUUUUUUUUUUUUUU    
  166. UUUUUUUUUUUUUUUUUP
  167. UUUUUUUUUUUUUUUUUUU    
  168. UUUUUUUUUUUUUUUUUUUP
  169. UUUUUUUUUUUUUUUUUUUUU    
  170. UUUUUUUUUUUUUUUUUUUUUP
  171. UUUUUUUUUUUUUUUUUUUUUUU    
  172. System
  173. SourcePicture
  174. """""""
  175. """"" 
  176. """""
  177. System
  178. DestPicture
  179. System
  180. WorkPicture2
  181. System
  182.     SourceBox
  183. Red X
  184. System
  185.     SourceBox
  186. Green X
  187. System
  188. ClearButton
  189. Clear
  190. System
  191.     EndButton
  192. System
  193. EffectInProgress
  194. EndButton_Click
  195. ClearButton_Click
  196. DestPicture
  197. EffectButton_Click
  198. Index
  199. WhichBox
  200.     SourceBox
  201. Value;
  202.     MhVRotate
  203. SourcePicture
  204. WorkPicture
  205. WorkPicture2H
  206.     MhHRotatee
  207.     MhExploder
  208. MhStretchBlt
  209.     MhImplode
  210. MhPushRight
  211. MhPushLeft
  212. MhPushUp
  213. MhPushDown
  214. MhOverlayRight
  215. MhOverlayLeft
  216. MhOverlayUp
  217. MhOverlayDown
  218. MhVCurtainOpen#
  219. MhVCurtainCloseK
  220. MhHCurtainOpen
  221. MhHCurtainClose
  222. Timer1`
  223. Enabledp
  224. Interval
  225. False
  226. Timer1_Timer
  227. WhichEffect
  228. Visible
  229. EffectButton
  230. MhTrue
  231. MhFalse$
  232. EndButton_Click
  233. ClearButton_Click
  234. EffectButton_Click
  235.  Figure out which bitmap to use for the effect
  236.  Which effect?
  237.  Make sure we have something to implode!
  238.  Make sure we have something to implode!
  239.  Make sure we have something over which to open
  240.  Make sure we have something over which to close
  241.  Make sure we have something over which to opene
  242.  Make sure we have something over which to close
  243.  Automatic demo
  244.  Toggle the checked box so we get correct boxo
  245.  Toggle the checked box 
  246. Timer1_Timer
  247.  Avoid error on SetFocus statement
  248.  If an effect is running, simply waito
  249.  Otherwise, start the next one
  250.