第二讲 课件中多媒体与动画应用技术.ppt

右击“控件”，选择“属性” 在弹出“对话框（属性）”中单击“自定义”右侧 None Mini Full Invisible　 None Mini Full (Default) Invisible 代码设置 WindowsMediaPlayer1.uiMode = “Full“ 其他：None、Mini、Invisible 注意：建议直接用“属性（Visible）”。 由“控件对象”的“属性（URL）”设置（不能被嵌入） 方法一：“对话框（属性）”设置 右击“控件对象”，选择“属性命令” 在“文字框（URL）”中设置相对或绝对路径 方法二：代码设置 WindowsMediaPlayer1.URL = “Bee.avi WindowsMediaPlayer1.Controls.Play 注意：设置“相对路径”可能出现的问题与解决方法 播放： WindowsMediaPlayer1.Controls.Play 暂停： WindowsMediaPlayer1.Controls.Pause 停止： WindowsMediaPlayer1.Controls.Stop ⑴设置“控件（Windows Media Player）”引用音频或视频的开始播放位置 ⑵设置“控件（Windows Media Player）”引用音频或视频的停止播放位置 ⑶综合应用 基本语句： WindowsMediaPlayer1.Controls.currentPosition = 开始位置对应秒数 注意： WMP.Controls.Play最好放在URL地址与开始位置语句之后 典型案例 If TextBox1.Text = Then MsgBox 请输入开始时间。 Else WindowsMediaPlayer1.URL = “Bee.avi WindowsMediaPlayer1.Controls.currentPosition = TextBox1.Text ‘设置开始播放视频的时间 WindowsMediaPlayer1.Controls.Play ‘开始播放视频 End If 基本思路： 利用延时语句 Dim StartTime, DelayTime As Double DelayTime = 5 ‘设定延迟时间（秒） StarTime = Timer 从系统当前时间取开始播放视频的时间 Do While Timer StarTime + DelayTime DoEvents 在系统当前时间没到达视频延迟启动时长时将控制让给其他程序 Loop 典型案例： If TextBox1.Text = Then MsgBox 请输入结束时间。 Else WindowsMediaPlayer1.url = “Bee.avi WindowsMediaPlayer1.Controls.Play 开始播放视频 StarTime = Timer ‘从系统当前时间取开始播放音频的时间 Do While Timer StarTime + TextBox1.Text DoEvents ‘在系统当前时间没到达视频播放时长时将控制让给其他程序 Loop WindowsMediaPlayer1.Controls.stop ‘停止播放视频 End If 开始时间 结束时间 ⒈插入“控件（Shockwave Flash Object）”的方法 ⒉“控件（Shockwave Flash Object）”对Flash动画文件的引用 ⒊“控件（Shockwave Flash Object）”引用Flash动画的播放、暂停与停止 ⒋“控件（Shockwave Flash Object）”引用Flash动画的细微控制 2003： 方法1 执行“命令（插入/对象/ Shockwave Flash Object ” 显示为“图标”或“播放器界面” 方法2 在“控件工具栏”选击“其他控件/ Shockwave Flash Object” 显示为“播放器界面” 2007： 选择“工具选项卡（开发工具）” 单击“工具栏（控件）”中的“工具（　）” 单击“Shockwave Flash Object” 显示为“播放器界面” 由“控件对象”的“属性（Movie）设置（不能被嵌入） 方法一：“对话框（属性）”设置 右击“控件对象”，选择“属性命令” 在“文字框（URL）”中设置相对或绝对路径 方法二：代码设置 ShockwaveFlash1.Movie = “Flower.wav ShockwaveFlash1.Play 注意：设置“相对路径”可能出现的问题与解决方法 播放： ShockwaveFlash1.Play 暂停： Sh