电影播放器的设计与实现.doc

利用The Vidio Media Player控件设计和实现电影播放器 眸 眸 （凝眸小学，天水，741400） 摘要：The Vidio Media Player控件一个完美的电影播放器控件，支持多种文件格式，只要编写数行代码就可以实现一般播放器的大部分功能。为了体现代码的易读性和界面的直观性，本文应用了最拙劣的界面，旨在让读者能从最基础的知识入手。 关键字：Visual Basic 2008；The Vidio Media Player； Using controls of The Vidio Media Player design and program movie player Mou mou (Ningmou Primary School 741400) 【Abstract】Control of The Vidio Media Player is a beautiful movie player one . A hand of codes achieve most of function with medio player.Inorder to achieve legibility and visual.This paper apply most unskilled interface.The key is leting reader throw into foundation knowledge。 【Keyword】Visual Basic 2008；The Vidio Media Player； 1. 前言 播放器对于用电脑的人来说，都不陌生。上网的用户可以从国内外网站上下载非常优秀的播放器。但是学习了编程语言后，自己可以试着编写属于自己的播放器，虽然不一定完美，但可以作为自己的作品。而本文就是通过The Vidio Media Player 控件实现简单播放。 2. 实例 2.1创建工程文件 创建一个“标准的EXE”工程，命名为“利用The Vidio Media Player控件设计和实现电影播放器”。通过在控件箱中单击“右键”，选择“选择项”，然后通过页面中的com组件，选中“ ”，点击“确定”后，将The Vidio Media Player控件加入到了控件工具箱中。然后在窗体form1属性面板将name属性改为movie。 在窗体上添加1个listbox控件、1个vidio medio player控件、2个tackbar控件、3个标签控件、1个复选框、1个时钟控件和11个button按钮控件。控件值如下所示图1—1。 控件名 属性 属性值 Form Name Movie Listbox Name Listbox1 Trackbar Name Trackbar1 Timer Name Timer1 Vidio Player Name myplayer Button Name Button1 Text 播放 Button Name Button2 Text 上一首 Button Name Button3 Text 下一首 Button Name Button4 Text 停止 Button Name Button5 Text 全屏 Button Name Button6 Text 退出 Button Name Button7 Text 清空 Button Name Button8 Text CD Button Name Button9 Text 打开文件 Button Name Button10 Text 音量加 Button Name Button11 Text 音量减 Label Name Label1 Label Name Label2 Label Name Label3 3.编写代码 （1）窗体代码 Imports System.IO Imports System.Text Imports System.IO.FileInfo Public Class movie Public Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Private Declare Function CDdoor Lib winmm.dll Alias mciSendStringA (ByVal lpstrCommand As String, ByVal lpstrRet