在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 文件。
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access自定义函数命名为中文名...(09.20)
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)