在access中使用动画ActiveX控件-82077802
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 综合其它


在access中使用动画ActiveX控件

发表时间:2009/8/19 16:29:55 评论(0) 浏览(8333)  评论 | 加入收藏 | 复制
   
摘 要: 在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 文件。


Access软件网交流QQ群(群号:198465573)
 
 相关文章
ActiveX控件批量注册器(一)  【纵云梯  2012/3/3】
ActiveX控件批量注册器(二)  【纵云梯  2012/3/6】
“与 OLE 服务器或 ActiveX 控件通讯时出现问题”解决办...  【宏鹏  2012/6/27】
[Access文章](ACCESS与OLE服务器或ActiveX控...  【漏蛧尐魚℡  2013/2/21】
快速开发平台--#429 ExportToExcel() Acti...  【麥田  2013/6/21】
常见问答
技术分类
相关资源
文章搜索
关于作者

82077802

文章分类

文章存档

友情链接