高校教师教学资料制作技能提升3.ppt

⒈插入“控件（Windows Media Player）”的方法 2003： 方法1 执行“命令（插入/对象/Windows Media Player）” 显示为“图标”或“播放器界面” 方法2 在“控件工具栏”选击“其他控件/Windows Media Player” 显示为“播放器界面” ⒈插入“控件（Windows Media Player）”的方法 2007： 选择“工具选项卡（开发工具）” 单击“工具栏（控件）”中的“工具（　）” 单击“Windows Media Player” 显示为“播放器界面” ⒉“控件（Windows Media Player）”的交互界面设置与其控制 ⑴“属性”设置 ⑵“程序”设置 ⑴“属性”设置 右击“控件”，选择“属性” 在弹出“对话框（属性）”中单击“自定义”右侧 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 ⑵