在access中使用动画ActiveX控件

时　间:2009-08-19 16:29:55
作　者:   ID：4070  城市：杭州
摘　要: 在Access中使用动画ActiveX控件
正　文:

      与动画 ActiveX 控件，可以播放.avi 文件，Microsoft Access 窗体上。 在设计视图中打开该窗体时, 可以看到该控件 ； 但是，在窗体视图中该控件隐藏直到您播放.avi 文件与控件关联。 动画控件的一个常见用途是提供动画与命令按钮。 如果您放置命令按钮的顶部动画控件，却使用按钮的单击事件来调用 打开 和 方法，该动画控件的按钮显示动画效果。
动画 ActiveX 控件支持.avi 文件的只有两种： 解压缩的.avi 的文件和使用运行长度编码压缩的.avi 文件。 不播放声音组件的.avi 文件。
如果该动画控件使用一种不受支持的文件格式，则您将收到以下错误信息：
无法打开 AVI 文件
示例 1： 使用命令按钮的动画效果的动画控件
启动 Microsoft Access，并创建一个新的空白数据库，调用 animate.mdb。
创建新窗体不基于任何表或查询在设计视图中。
在 插入 菜单中上, 单击 ActiveX 控件 。
在 插入 ActiveX 控件 对话框选择 Microsoft 动画控件，6.0 版 ，然后单击 确定 。
设置动画控件的下列属性：
   Animation control
   -----------------
   Name: an1
   Visible: No
   Left: 1"
   Top: .5"
   Width: 1"
   Height: 1"
     
将一个命令按钮添加到窗体，并设置下列属性：
   Command button
   --------------
   Name: cmd1
   Caption: Play Animation
   Left: 1"
   Top: .5"
   Width: 1"
   Height: 1"
   OnClick: [Event Procedure]
     
命令按钮的 OnClick 事件过程中键入以下代码：
Private Sub cmd1_Click()
Dim AviFile As String
' Type the full path to the .avi file on the following line.
AviFile = "path and filename"
   With an1
      .Visible = True
      .AutoPlay = True
      .Open AviFile
   End With
End Sub
      
注意 ： 为代码正常运行所必须插入正确的路径和.avi 文件的文件名。
将该窗体保存为 frmAnimate，然后切换到窗体视图。
单击命令按钮，请注意，.avi 文件播放命令按钮的顶部。

示例 2 中： 选择，并播放的动画文件
按照 1 到 3 示例 1 中。
在 插入 菜单中上, 单击 ActiveX 控件 。
在 插入 ActiveX 控件 对话框选择 Microsoft 动画控件，6.0 版 ，然后单击 确定 。
将动画控件的 Name 属性设置为 An2 中。
在 插入 菜单中上, 单击 ActiveX 控件 。
在 插入 ActiveX 控件 对话框选择 Microsoft Common Dialog Control 6.0 ，然后单击 确定 。
将公共对话框控件的 Name 属性设置为 Cd2 中。
将一个命令按钮添加到窗体，并设置下列属性：
   Command button
   --------------
   Name: cmd2
   Caption: Select & Play
   OnClick: [Event Procedure]
     
命令按钮的 OnClick 事件过程中键入以下代码：
Private Sub cmd2_Click()
   With Cd2
      .Filter = "avi (*.avi)|*.avi"
      .ShowOpen
   End With
   With An2
      .AutoPlay = True
      .Open Cd2.FileName
   End With
End Sub
     
将该窗体保存为 frmSelectPlay，然后切换到窗体视图。
单击命令按钮。
请注意一个 打开 对话框，并允许您选择.avi 文件，然后在窗体上播放.avi 文件。