zhuan&&vb&WindowsMediaPlayer1属性分享
vb WindowsMediaPlayer1
windows media player
控件在我们编程时经常要用到，但是有很多属性及方法却不知道该怎么使用。现以 wmp 9.0控件为例说说其在 Delphi 7.0
中常用的属性与方法（JavaScript中用法几乎完全相同）。
假设此控件名为wmp
属性/方法名：
[基本属性]
指定媒体位置，本机或网络地址
播放器界面模式，可为Full, Mini, None, Invisible
playState:
播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪
enableContextMenu:B
启用/禁用右键菜单
fullScreen:
是否全屏显示
[controls]
wmp.controls //播放器基本控制
controls.currentPosition:
controls.currentPositionString:
当前进度，字符串格式。如“00:23”
controls.fastF
controls.fastR
[settings]
wmp.settings //播放器基本设置
settings.volume:
音量，0-100
settings.autoStart:B
是否自动播放
settings.mute:B
settings.playCount:
[currentMedia]
wmp.currentMedia //当前媒体属性
currentMedia.duration:
媒体总长度
currentMedia.durationString:
媒体总长度，字符串格式。如“03:24”
currentMedia.getItemInfo(const string);
获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信
息，"Description"=媒体内容描述，"Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类
型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string);
通过属性名设置媒体信息
currentMedia.name:
同 currentMedia.getItemInfo("Title")
[currentPlaylist]
wmp.currentPlaylist //当前播放列表属性
currentPlaylist.count:
当前播放列表所包含媒体数
currentPlaylist.Item[integer];
获取或设置指定项目媒体信息，其子属性同wmp.currentMedia
记得一个朋友问的，不知道能不能解决你的问题，我找了几个常用的属性和方法，你可以参考一下
＝＝＝＝＝＝＝＝＝＝WindowsMediaPlayer的常用属性和方法＝＝＝＝＝＝＝＝＝＝＝
[基本属性]
URL:string&&&&&&&&&&&&&&&&&&&&&&&&&&&&
可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean&&&&&&&&&&&&&&&&&
stretchToFit:boolean&&&&&&&&&&&&&&
非全屏状态时是否伸展到最佳大小
uMode:string&&&&&&&&&&&&&&&&&&&&&&&&&
播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer&&&&&&&&&&&&&&&&&&&&
当前控件状态，下面是三种基本状态：
3：正在播放
状态变化时会触发OnStatusChange事件
[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
controls.&&&&&&&
controls.&&&&&&&
controls.&&&&&&
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"
[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.duration&& Double
currentMedia.durationString 时间格式的字符串 "4:34"
[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。
MediaPlayer1.Play　　　　　　　　　　播放&&
MediaPlayer1.Stop　　　　　　　　　　停止&&
MediaPlayer1.Pause　　　　　　　　　
MediaPlayer1.PlayCount　　　　　　　　文件播放次数&&
MediaPlayer1.AutoRewind　　　　　　　是否循环播放&&
MediaPlayer1.Balance　　　　　　　　　声道&&
MediaPlayer1.Volume　　　　　　　　　音量&&
MediaPlayer1.Mute　　　　　　　　　　静音&&
MediaPlayer1.EnableContextMenu　　　　是否允许在控件上点击鼠标右键时弹出快捷菜单&&
MediaPlayer1.AnimationAtStart　　　　是否在播放前先播放动画&&
MediaPlayer1.ShowControls　　　　　　是否显示控件工具栏&&
MediaPlayer1.ShowAudioControls　　　　是否显示声音控制按钮&&
MediaPlayer1.ShowDisplay　　　　　　　是否显示数据文件的相关信息&&
MediaPlayer1.ShowGotoBar　　　　　　　是否显示Goto栏&&
MediaPlayer1.ShowPositionControls　　是否显示位置调节按钮&&
MediaPlayer1.ShowStatusBar　　　　　　是否显示状态栏&&
MediaPlayer1.ShowTracker　　　　　　　是否显示进度条&&
MediaPlayer1.FastForward　　　　　　　快进&&
MediaPlayer1.FastReverse　　　　　　　快退&&
MediaPlayer1.Rate　　　　　　　　　　快进／快退速率&&
MediaPlayer1.AllowChangeDisplaySize　是否允许自由设置播放图象大小&&
MediaPlayer1.DisplaySize　　　　　　　设置播放图象大小&&
　　　　1-MpDefaultSize　　　　　　　　　原始大小&&
　　　　2-MpHalfSize　　　　　　　　　　
原始大小的一半&&
　　　　3-MpDoubleSize　　　　　　　　　
原始大小的两倍&&
　　　　4-MpFullScreen　　　　　　　　　
　　　　5-MpOneSixteenthScreen　　　　　
屏幕大小的1/16&&
　　　　6-MpOneFourthScreen　　　　　　　屏幕大小的1/4&&
　　　　7-MpOneHalfScreen　　　　　　　　屏幕大小的1/2
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。问：VB 播放器问题 Windows Media Player控件我用VB编了个播放器，现在碰到一些问题解决不了，请高手帮忙。第一怎么把...答：看看这个：WindowsMediaPlayer播放Flashswf格式.pdf
问：用vb设计一个音乐播放器功能要求1选中一首播放后，其它的会自动按照顺序播放2当播放某首曲子时有歌词...答：这需要控件的，但一般控件都是由C++等面向对象程序软件做的。控件很难还是自己去学器吧
问：vb 音乐播放器要求有源码和窗体的详细谢谢好心人帮助答：去CSDN吧！里面都有源码。
问：VB做音乐播放器，播放列表怎么弄？用VB做了个MP3音乐播放器，但不会弄播放列表，高手请指点答：添加一个file，按钮，wmp控件，timer（这能制动播放下一首）Private Declare Function SHBrowseForFolder Lib"shell32"(lpbi As BrowseInfo)As Long Private...
问：用vb怎样编写多媒体播放器啊？答：本例设计了一个多媒体播放器，它能够播放W、MIDI和I。Private Sub Check2_Click()If Check2.Value=1 Then'关闭I的声音 MMControl1.Silent=True...
问：关于用VB做音乐播放器的问题！我现在这个音乐播放器支持以下格式：MP3（*.mp3）*.mp3WMA（*.wma）*.wma...答：所有支持的格式*.mp3; ;w
问：VB25中如何音乐我用VB25编了个小程序我想加一段音乐不知道怎么做请告诉我码谢谢答：播放 音乐声明：Declare Function MCISendString&Lib-MMSYSTEM-(ByVal LPSTRMAND$,ByVal LPSTRRETURNSTR As Any,ByVal WRETURNLEN%,ByVal HCALLBACK%)...
问：怎么用VB做个音乐播放器?我准备用VB做个播放可是我开始在学VB不知道从哪做起希望有谁能帮我音乐播放器...答：vb里面有个音乐播放器控件。好像是media两句码就可以搞定。
问：VB里如何嵌入音乐我想用VB编一个程序并且有音乐请问怎么做请说的具体点答：在VB开发环境中的单击“工程”→“部件”对话框中，添加MediaPlayer控件。如果要播放MP3，则至少要6.1以上版本的MediaPlayer控件(Windows中自带的就是这个...
问：VB音乐播放器希望哪位能帮我做个音乐播放器，能有个播放列表，点击播放列表的歌曲能播放...答：看看这个如何？我有实例源码。HI我提问者评价谢谢，发的东西我正在努力看
问：怎样用VB放音乐？已知一首歌的歌谱，希望计算机发出蜂鸣声来演奏。在GWBASIC和QBASIC中都可以用...答：我这里有一个，用VB编的钢琴软件，可以直接根据曲谱来奏。具体里面的码可以自己参考。如果你对VB比较熟悉的话，就可以根据曲谱，对其中的码进行修改，就...
问：怎样在VB做一个简单的音乐播放器啊？请问怎样做啊？我不太会的。要什麽工具，怎样拉工具，程式码都帮我写出来，我...答：Private Sub Dir1_Change()File1.Path=Dir1.Path End Sub Private Sub Drive1_Change()Dir1.Path=Drive1.Drive End Sub Private Sub File1_DblClick()Dim tmpF...
问：用VB如何才能编一个MP3播放器？请写出码。答：利用API函数[mciSendString]可以轻松实现MP3音乐的播放。下面这段程序实现了MP3播放的大部分常作，对其稍加修改，做一个1KB大小的MP3播放器轻而易举...
问：VB做音乐播放器的问题！&答：用WindowsMediaPlayer1作为播放器做的窗体上建立一个FileListBox一个WindowsMediaPlayer和一个 Timer控件在以下码运行即可歌曲数量 As Long Dim...
09-0808-3107-0509-06
01-2902-2110-0701-17
◇本站云标签下次自动登录
现在的位置:
& 综合 & 正文
如何在VB 6.0 sp6 中使用WindowsMediaPlayer控件?编写一个属于自己的多媒体播放器?
如何在VB 6.0 sp6 中使用WindowsMediaPlayer控件?编写一个属于自己的多媒体播放器?
具体步骤如下：
1、建立一个空窗体。
2、加入WindowsMediaPlayer控件（也可以完全由生成）,更名为Player
3、加入两个命令按钮：cmdPlay,cmdStop
4、sub cmdPlay_Clicked：
With Player
.uiMode = "none"
.URL = "D:/MUSIC/雨人.wma"
.Controls.PlayEnd With5、sub cmdStop_Clicked：
Player.Controls.Stop
6、运行一下看看效果。
更多的控制将在下文中介绍。
&&&&推荐文章:
【上篇】【下篇】基于WindowsMediaPlayer的音乐播放器
　作者: 漓江烟雨　编辑:
　　【IT168技术】闲来没事自己做了一个基于WindowsMediaPlayer的迷你音乐播放器，界面如下图　　功能简介：　　1.循环模式：顺不播放axWMusicPlayer.settings.setMode(&shuffle&, false); 　　全部循环axWMusicPlayer.settings.setMode(&loop&, true); &　　随机播放axWMusicPlayer.settings.setMode(&shuffle&, true); 　　2.模拟定时关机　　程序写到定时关机，具体的调用定时关机程序省略了，程序中相应地方有注解。定时关机代码 <span style="color: # private void 关机时间toolStripTextBox_KeyPress(object sender, KeyPressEventArgs e)<span style="color: #& {<span style="color: #&&&&&& if (e.KeyChar == (char)Keys.Enter && 关机时间toolStripTextBox.Text != &&)<span style="color: #&&&&&& {<span style="color: #&&&&&&&&&& try<span style="color: #&&&&&&&&&& {<span style="color: #&&&&&&&&&&&&& DateTime time = DateTime.Parse(关机时间toolStripTextBox.Text);&&<span style="color: #&&&&&&&&&&&&& TimeSpan span = new TimeSpan(time.Hour, time.Minute, <span style="color: #); <span style="color: #&&&&&&&&&&&&& if (pareTo(new TimeSpan(DateTime.Now.Hour, DateTime.Now.Minute, <span style="color: #)) == <span style="color: #) //当前关机时间<span style="color: #&&&&&&&&&&& {&&<span style="color: #&&&&&&&&&&&&& if (MessageBox.Show(&你设定的关机时间是当前计算机时间，是否直接关机？&, &提示&, MessageBoxButtons.YesNo, rmation) == DialogResult.OK)<span style="color: #&&&&&&&&&&&&&&& {<span style="color: #&&&&&&&&&&&&&&&&&&& MynotifyIcon.Icon = Icon.ExtractAssociatedIcon(PathBase + &\\Images\\& + &ShutDown_notifyIcon.ico&);<span style="color: #&&&&&&&&&&&&&&&&&&& //<span style="color: # //调用关机程序<span style="color: # //<span style="color: #&&&&&&&&&&&&&&&& }<span style="color: #&&&&&&&&&&&&&&&& else<span style="color: #&&&&&&&&&&&&&&&& {<span style="color: #&&&&&&&&&&&&&&&&&&&& return;<span style="color: #&&&&&&&&&&&&&&&& }<span style="color: #&&&&&&&&&&&& }<span style="color: #&&&&&&&&&&&& if (pareTo(new TimeSpan(DateTime.Now.Hour, DateTime.Now.Minute, <span style="color: #)) & <span style="color: #) //过去关机时间<span style="color: #&&&&&&&&&&& {<span style="color: #&&&&&&&&&&&&&&& MessageBox.Show(&此时间已是过去时间，设定无效&, &提示&, MessageBoxButtons.OK, rmation);<span style="color: #&&&&&&&&&&&&&&& return;<span style="color: #&&&&&&&&&&& }<span style="color: #&&&&&&&&&&&& if (pareTo(new TimeSpan(DateTime.Now.Hour, DateTime.Now.Minute, <span style="color: #)) & <span style="color: #) //有效关机时间 <span style="color: #&&&&&&&&&&&& {<span style="color: #<span style="color: #&&&&&&&&&&&&&&& ShutDownTime = 关机时间toolStripTextBox.T<span style="color: #&&&&&&&&&&&&&&& MessageBox.Show(&成功设置定时关机，计算机将于&& + ShutDownTime + &&关机&& *︶︵︶*&, &提示&, MessageBoxButtons.OK, rmation);<span style="color: #&&&&&&&&&&&&&&& this.关机时间toolStripTextBox.Visible = false;<span style="color: #&&&&&&&&&&&&&&& this.取消定时关机QToolStripMenuItem.Visible = true;<span style="color: #<span style="color: #&&&&&&&&&&&&&&& //<span style="color: # //调用关机程序<span style="color: # //<span style="color: #&&&&&&&&&&&& }<span style="color: #&&&&&& }<span style="color: #&&&&&& catch<span style="color: #&&&&& {<span style="color: #&&&&&&& MessageBox.Show(&日期格式不正确，请重新输入。&, &提示&, MessageBoxButtons.OK, rmation);<span style="color: #& &&&&& return;<span style="color: #&& &&& }<span style="color: #&&&& }<span style="color: #&&& if (e.KeyChar == (char)Keys.Enter && 关机时间toolStripTextBox.Text == &&)<span style="color: #&&& {<span style="color: #&&&&&&& 关机时间toolStripTextBox.Visible = false;<span style="color: #&&& }<span style="color: #& }&&&&&&&&& 3.歌曲列表信息保存在XML文件中添加歌曲保存代码 <span style="color: # private void btnList_Click(object sender, EventArgs e) //添加歌曲<span style="color: #& {<span style="color: #&&&&& openFileDialog1.Title = &添加歌曲&;<span style="color: #&&&&& openFileDialog1.FileName = &&; <span style="color: #&&&&& openFileDialog1.Multiselect = true;<span style="color: #&&&&& openFileDialog1.Filter = &Mp3文件|*.mp3|Wav文件|*.wav|Wma文件|*.wma|Wmv文件|*.wmv|所有格式|*.*&;<span style="color: #&&&& openFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyMusic); <span style="color: #& && try<span style="color: #&&&& {<span style="color: # &&& if (openFileDialog1.ShowDialog() == DialogResult.OK)<span style="color: #&&&& {<span style="color: #&&&&&&& //IsCreateXmlFile();<span style="color: #& &&&&& XmlDocument xmldoc = new XmlDocument();<span style="color: #&&&&&&& xmldoc.Load(xmlfile);<span style="color: #&&&&&&& XmlNode root = xmldoc.SelectSingleNode(&MusicList&);<span style="color: #&&&&&&& string[] FileNamesList = openFileDialog1.FileN<span style="color: #&&&&&&& foreach (string file in FileNamesList)<span style="color: #&&&&&&& {<span style="color: #&&&&&&&&&&& string filename= Path.GetFileName(file).Substring(<span style="color: #,Path.GetFileName(file).LastIndexOf('.'));<span style="color: #&&&&&&&&&&& axWMusicPlayer.currentPlaylist.appendItem(axWMusicPlayer.newMedia(file));<span style="color: #&&&&&&&&&&&& XmlElement newelement = xmldoc.CreateElement(&MusicProperty&);<span style="color: #&& &&&&&&&&& newelement.SetAttribute(&MusicUrl&, file);<span style="color: #&&&&&&&&&&&& newelement.SetAttribute(&MusicName&, filename);<span style="color: #&&&&&&&&&&&& newelement.SetAttribute(&LikeCount&, &<span style="color: #&);<span style="color: #&&&&&&&&&&&& root.AppendChild(newelement);<span style="color: #&&&&&&&&&&&& Application.DoEvents();<span style="color: #&&&&&&&& }<span style="color: #&&&&&&&&&&&& xmldoc.Save(xmlfile);<span style="color: #&&&&&& }<span style="color: #&&&& }<span style="color: #&&&& catch(Exception ex)<span style="color: #&&& {<span style="color: #&&&&&&&& MessageBox.Show(ex.Message, &提示&, MessageBoxButtons.OK, rmation);<span style="color: #&&&& }<span style="color: #& }　　4.主界面上的喜爱按钮实现的是歌曲排列顺序　　&& 在下次启动程序后，程序会自动将喜爱点击次数多的歌曲排到前面喜爱按钮事件 1 private void btnFavorite_Click(object sender, EventArgs e) //喜爱2&&&&&&&& {3&&&&&&&&&&&& if (axWMusicPlayer.currentMedia != null)4&&&&&&&&&&&& {5&&&&&&&&&&&&&&&& XmlDocument doc = new XmlDocument();6&&&&&&&&&&&&&&&& doc.Load(xmlfile); 7&&&&&&&&&&&&&&&& XmlNodeList nodelist = doc.SelectSingleNode(&MusicList&).ChildN 8&&&&&&&&&&&&&&&& foreach (XmlNode node in nodelist)9&&&&&&&&&&&&&&&& {10&&&&&&&&&&&&&&&&&&&& XmlElement element = (XmlElement) //将XmlNode节点node转化成XmlElement型的node11&&&&&&&&&&&&&&&&&&&& if (element.GetAttribute(&MusicUrl&) == axWMusicPlayer.currentMedia.sourceURL)12&&&&&&&&&&&&&&&&&&&& {13&&&&&&&&&&&&&&&&&&&&&&&& int likecount = Convert.ToInt32(element.GetAttribute(&LikeCount&)) + 1;14&&&&&&&&&&&&&&&&&&&&&&&& element.SetAttribute(&LikeCount&, likecount.ToString());15&&&&&&&&&&&&&&&&&&&& }16&&&&&&&&&&&&&&&& }17&&&&&&&&&&&&&&&& doc.Save(xmlfile);18&&&&&&&&&&&& }19&&&&&&&& }&&&&&&&& 5、点击进度条歌曲直接跳到当前位置继续播放　　　　设置当前播放位置private void pictureBox2_MouseDown(object sender, MouseEventArgs e) &&&&&&&&{ &&&&&&&&&&&&if (e.Button == MouseButtons.Left) &&&&&&&&&&&&{ &&&&&&&&&&&&&&&&axWMusicPlayer.Ctlcontrols.currentPosition = e.X * axWMusicPlayer.currentMedia.duration / 170; &&&&&&&&&&&&} &&&&&&&&}&&&&&&&&&&& 注解：170为进度条总长度
大学生分期购物销量榜
已有条评论
IT168企业级
正在努力加载文档，请稍等…