|
|
|
随心所欲控制PowerPoint97中的背景音乐成都市大弯中学 郭 昕广汉市广汉中学 肖红梅 用PowerPoint制作课件，操作简单易学，为大多数中学教师所喜欢。但如何在PowerPoint课件中使用背景音乐，特别是使用可以随意控制的背景音乐则就不那么容易了。要为PowerPoint课件添加可以随意控制的背景音乐需用到Office提供的Activex控件，需要一定的编程基础。首先我们来学习添加控件及使用控件 1．向幻灯片中添加控件：先单击菜单“视图工具箱控件工具箱”，打开控件工具箱。控件工具箱中为我们提供了几种常用控件（将鼠标停放在控件上会自动显示控件名称），单击控件后在幻灯片中按着鼠标左键拖画即可添加该控件.除这几种常用控件外，PowerPoint还提供了很多“扩展”控件，只要单击控件工具箱右下角按钮即可选择其它控件。2．设置控件属性：选中控件后单击鼠标右键在快捷菜单中选中“属性”即可打开该控件的“属性面板”。在“属性面板”中允许我们修改控件的属性。3．为控件添加代码：双击控件即可打开代码窗口，在代码窗口中可以为控件添加任意可用的代码。在认识了控件后，现在我们就开始来装扮我们的课件吧。1.首先制作不带背景音乐的课件，并保存为“课件.ppt”,然后新建一文件并确保其只有一张幻灯片。通过菜单“插入对象”将“课件.ppt”插入到幻灯片中，并在“自定义动画播放设置”选中“放映”。2.添加控件并设置控件属性：控件 控件属性 控件功能说明 名称 其它属性 命令按钮 MusicOnOff Caption:关闭音乐 背景音乐的控制按钮 Windows Media Player Music FileName:d:music.midPlayCount:0Volume:-600 播放背景音乐设置循环播放 滚动条 ScrollBar Max:10;Min:0Value:6 调节音量高低 标签 Label Caption: 音量高低 标注滚动条功能 3.为控件添加代码:'单击按钮时暂停或播放音乐Private Sub MusicOnOff_Click() If MusicOnOff.Caption = "关闭音乐" Then Music.Pause '音乐暂停 MusicOnOff.Caption = "播放音乐" Else Music.Play '继续播放音乐 MusicOnOff.Caption = "关闭音乐" End IfEnd Sub'当滚动条位置改变时音量的高低也随之改变Private Sub ScrollBar_Change() Music.Volume = 150 * (ScrollBar.Value - 10)End Sub经过上面的工作后，现只需将Windows Media Player控件拖出幻灯片显示区外即可。若需为课件添加背景音乐随意更换功能可使用“对话框控件” (CommonDialog),这里不再赘述。详细文章见http://www.dawan.net/school/jyz/huaxue/jxyj/ |
|
