home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c480 / 21.ddi / ANIMATE.FR_ / ANIMATE.bin (.txt)
Encoding:
Visual Basic Form  |  1993-02-14  |  3.2 KB  |  84 lines
  1. Animate
  2. MCI Animation Theater
  3. Form3%
  4. MMControl1
  5.     MMControl
  6. Frame1
  7. Frame3
  8. 8((((((((((((((((((((((((((((((((((((((((((((((((((((((((
  9. Picture1
  10. Frame2
  11. 9)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
  12. AL_FILE
  13. &File
  14. AI_OPEN
  15. &Open...
  16. AI_SEPARATOR
  17. AI_EXIT
  18. &Exit
  19.     HwndFrame
  20. CurtainFlag
  21. AI_EXIT_Click
  22. Animate^
  23. AI_OPEN_Click
  24. OpenDlg
  25.     CMDialog1
  26. FilterIndex
  27. Flags
  28. OFN_READONLY
  29. OFN_FILEMUSTEXIST
  30. CancelErrorf
  31. FileNameS
  32. Action
  33. mmcontrol1
  34. Modeo
  35. MCI_MODE_NOT_OPEN'
  36. Command
  37. caption
  38. DialogCaption
  39. MCIERR_DEVICE_OPEN
  40. DeviceType
  41.     MCI_ERROR{
  42. OpenCurtain
  43. DisplayErrorMessageBox
  44. MCI_EXIT
  45.     Form_Load
  46. Form_Unload
  47. Cancel3
  48. MCITest
  49. frame2
  50. frame3
  51. Picture1
  52. Visible
  53. WaitForEventsToFinish
  54. hWndDisplay
  55. Picture1_GotFocus
  56. GetFocus*
  57. AI_EXIT_Click
  58. AI_OPEN_Click
  59.  Display the "File Open..." dialog.
  60.  No file selected in the "File Open..." dialog.,
  61.  If the device is already open, close it.i
  62. Close
  63.  Open the device with the new filename.t
  64. Attempt to open the Animation device
  65. If the open faild, try the MMMovie device name
  66. MMMovie
  67. Close
  68.  If the curtains haven't been opened, open them.
  69.  Play the movie into the picture control.n
  70. Form_Load
  71. Form_Unload
  72. CLOSE
  73. OpenCurtain
  74.  This subroutine moves the frame controls slightly
  75.  to the left and right to simulate curtains opening.
  76.  Display the picture control.u
  77.  Set the focus to the picture control, so that the
  78.  hwnd for the picture control can be retrieved.t
  79.  Play the movie in this control rather than playing
  80.  the movie in a default popup window.r
  81.  Once the curtain is opened, don't open it again.n
  82. Picture1_GotFocus
  83.  The movie is played into this control. 
  84.