ACC97: Example Using Animation ActiveX Control in MS Access 97

Example 1: Using the Animation Control to Animate a Command Button

1. Copy Firework.avi from the \Clipart\Mmedia folder on your Microsoft Office 97 Professional Edition compact disc to your computer hard drive.
2. Start Microsoft Access and create a new blank database called Animate.mdb.
3. Create a new form not based on any table or query in Design view.
4. Add a command button to the form, and set the following properties:

         Command button
         --------------
         Name: cmd1
         Caption: Play Animation
         Left: 1"
         Top: .5"
         Width: 1"
         Height: 1"
         OnClick: [Event Procedure]
   					

5. Type the following code in the command button's OnClick event procedure:

         Private Sub cmd1_Click()
            With An1
               .Visible = True
               .AutoPlay = True
               ' Type the full path to Firework.avi on the following line.
               .Open "Firework.avi"
            End With
         End Sub
   					

6. On the Insert menu, click ActiveX Control.
7. In the Insert ActiveX Control dialog box, select Microsoft Animation Control, version 5.0, and then click OK.
8. Set the following properties for the animation control:

         Animation control
         -----------------
         Name: an1
         Visible: No
         Left: 1"
         Top: .5"
         Width: 1"
         Height: 1"
   					

9. Save the form as frmAnimate, and then switch to Form view.
10. Click the Command button and note that the Firework.avi file plays.

Example 2: Selecting and Playing an Animation File

1. Follow steps 1 through 3 in Example 1.
2. Add a command button to the form, and set the following properties:

         Command button
         --------------
         Name: cmd2
         Caption: Select && Play
         OnClick: [Event Procedure]
   					

3. Type the following code in the command button's OnClick event procedure:

         Private Sub cmd2_Click()
            With cd2
               .Filter = "avi (*.avi)|*.avi"
               .ShowOpen
            End With
            With an2
               .AutoPlay = True
               .Open cd2.FileName
            End With
         End Sub
   					

4. On the Insert menu, click ActiveX Control.
5. In the Insert ActiveX Control dialog box, select Microsoft Animation Control, version 5.0, and then click OK.
6. Set the Name property of the animation control to an2.
7. On the Insert menu, click ActiveX Control.
8. In the Insert ActiveX Control dialog box, select Microsoft Common Dialog Control, version 5.0, and then click OK.
9. Set the Name property of the common dialog control to cd2.
10. Save the form as frmSelectPlay, and then switch to Form view.
11. Click the command button. Note that an Open dialog box appears and enables you to select the Firework.avi file, and then the .avi plays on the form.