第二讲 课件中的多媒体与动画应用相关技术.pptVIP

⑴“属性”设置 右击“控件”，选择“属性” 在弹出“对话框（属性）”中单击“自定义”右侧 None Mini Full Invisible　 ⑵“程序”设置 None Mini Full (Default) Invisible 代码设置 WindowsMediaPlayer1.uiMode = “Full“ 其他：None、Mini、Invisible 注意：建议直接用“属性（Visible）”。 ⒊“控件（Windows Media Player）”对音频与视频文件的引用 由“控件对象”的“属性（URL）”设置（不能被嵌入） 方法一：“对话框（属性）”设置 右击“控件对象”，选择“属性命令” 在“文字框（URL）”中设置相对或绝对路径 方法二：代码设置 WindowsMediaPlayer1.URL = “Bee.avi WindowsMediaPlayer1.Controls.Play 注意：设置“相对路径”可能出现的问题与解决方法 ⒋ “控件（Windows Media Player）”引用音频与视频的播放、暂停与停止 播放： WindowsMediaPlayer1.Controls.Play 暂停： WindowsMediaPlayer1.Controls.Pause 停止： WindowsMediaPlayer1.Controls.Stop ⒌ “控件Windows Media Player”引用音频与视频的细微控制 ⑴设置“控件（Windows Media Player）”引用音频或视频的开始播放位置 ⑵设置“控件（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 ⑴设置“控件（Windows Media Player）”引用音频或视频的开始播放位置 ⑵设置“控件（Windows Media Player）”引用音频或视频的停止播放位置 基本思路： 利用延时语句 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 ⑵设置“控件（Windows Media Player）”引用音频或视频的停止播放位置 ⑶综合应用 开始时间 结束时间 ㈡基于“控件”的Flash动画控制 ⒈插入“控件（Shockwave Flash Object）”的方法 ⒉“控件（Shockwave Flash Object）”对Flash动画文件的引用 ⒊“控件（Shockwave Flash Object）”引用Flash动画的播放、暂停与停止 ⒋“控件（Shockwave Flash Object）”引用Flash动画的细微控制 ⒈插入“控件（Shockwave Flash Object）”的方法 2003： 方法1 执行“命令（插入/对象/ Shockwave