Windows应用程序设计案例教程 湖南省教育科学“十一五”规划重点资助课题研究成果教材 教学课件 陈承欢 第4章 多媒体播放器应用程序设计.ppt

行 号 程 序 代 码 　 属 性 名 称 属 性 值 1 Dim objFile As OpenFileDialog = New OpenFileDialog Text 多媒体播放器 2 objFile.Filter = 媒体文件(所有类型)|*.*|MP3文件 (*.mp3)|*.mp3| _ Size 432, 328 3 Windows Media 文件 (*.wmv)|*.wmv|Windows 视频文件(*.avi)| _ MaximizeBox FALSE 表4-4 【打开】按钮btnOpen的Click事件过程的程序代码 （3）编写【切换到全屏模式】按钮 btnFull的Click事件过程的程序代码 该程序代码如下所示。 AxWindowsMediaPlayer1.fullScreen = True （4）编写【切换到完整模式】按钮 btnIntegrity的Click事件过程的程序代码 该代码如下所示。 AxWindowsMediaPlayer1.openPlayer(TextBox1.Text) （5）编写单选按钮rbNone的CheckedChanged事件过程的程序代码 该代码如下所示。 If rbNone.Checked = True Then AxWindowsMediaPlayer1.uiMode = None rbNone.ForeColor = Color.Magenta rbMini.ForeColor = SystemColors.ControlText rbFull.ForeColor = SystemColors.ControlText Else rbNone.ForeColor = SystemColors.ControlText End If （6）编写单选按钮rbMini的CheckedChanged事件过程的程序代码 该代码如下所示。 If rbMini.Checked = True Then AxWindowsMediaPlayer1.uiMode = Mini rbMini.ForeColor = Color.Magenta rbNone.ForeColor = SystemColors.ControlText rbFull.ForeColor = SystemColors.ControlText Else rbMini.ForeColor = SystemColors.ControlText End If （7）编写单选按钮rbFull的CheckedChanged事件过程的程序代码 该代码如下所示。 If rbFull.Checked = True Then AxWindowsMediaPlayer1.uiMode = Full rbFull.ForeColor = Color.Magenta rbNone.ForeColor = SystemColors.ControlText rbMini.ForeColor = SystemColors.ControlText Else rbFull.ForeColor = SystemColors.ControlText End If 2．调试、编译程序 （1）生成程序 （2）改变启动对象 在“窗体属性页”对话框中改变程序的启动对象为frmMediaPlayer。 4.5.4　【多媒体播放器】应用程序的测试 单击工具栏上的【启动】按钮，程序开始运行。 【多媒体播放器】的初始状态如图4-10所示，此时【多媒体播放器】的模式为“Full”。 图4-10　【多媒体播放器】运行的初始状态 单击单选按钮【Mini】，改变为“Mini”模式，【多媒体播放器】窗口如图4-11所示。 图4-11　“Mini”模式的【多媒体播放器】窗口 单击单选按钮【None】，改变为“None”模式，【多媒体播放器】窗口如图4-12所示。 图4-12　“None”模式的【多媒体播放器】窗口 单击【打开】按钮，即可弹出【打开】对话框，在该对话框中选择一个新的媒体文件“water.mid”，并且在【打开】对话框中单击【打开】按钮，【多媒体播放器】就会播放新的媒体文件，如图4-13所示。 图4-13　播放新的媒体文件 单击【切换到全屏模式】按钮，【多媒体播放器】将会切换到全屏模式。单击【切