给你个解决方案,用VB.net自带的AxWindowsMediaPlayer控件能解决
10年的工布江达网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整工布江达建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“工布江达网站设计”,“工布江达网站推广”以来,每个客户项目都认真落实执行。
“工具箱”中单击右键,选择“选择项”菜单,打开“选择工具箱项”窗口,选择“COM组件”标签,在列表中找到并勾选“Windows Media Player”组件,单击“确定”按钮。将该组件添加到指定的工具箱选项卡中 ,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出来的控件就是AxWindowsMediaPlayer
下面是使用方法:
AxWindowsMediaPlayer1.URL = "D:\123.avi" '--------只需要这么一句话就可以播放D盘123.avi
如果要暂停则: AxWindowsMediaPlayer1.Ctlcontrols.pause() '更多功能自己去摸索
有个currentplayerlist属性呀,但是好像没有什么用... 还有一个方法,就是通过PlayStateChange事件来处理 首先要有三个窗体级变量: urls() As String nowplayindex As Integer forend As Boolean 然后在urls中存一个歌曲的路径,在AxWindowsMediaPlayer1_PlayStateChange中加入以下内容: If e.newstate = 1 Then If forend = False Then If nowplayindex + 1 = urls.Count Then nowplayindex = 0 AxWindowsMediaPlayer1.URL = urls(0) AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0 AxWindowsMediaPlayer1.Ctlcontrols.play() forend = True Else AxWindowsMediaPlayer1.URL = urlss(nowplayindex + 1) AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0 AxWindowsMediaPlayer1.Ctlcontrols.play() nowplayindex += 1 forend = True End If End If End If 上面的代码实现了顺序播放和循环播放 教你一个方法,可以获取到mp3、wma的歌曲属性 Object.Text = AxWindowsMediaPlayer1.currentMedia.getItemInfo(InfoName) InfoName可以填下面的字符串,如TextBox1.Text = AxWindowsMediaPlayer1.currentMedia.getItemInfo("Title") '获取MP3的唱片标题 Abstract、Description = 备注 Author、Artist = 艺术家 AverageLevel = 平均等级? Bitrate = 比特率 Copyright = 版权 CurrentBitrate = 现在的比特率? Duration = 总时间(秒) FileSize = 文件大小 FileType = 文件类型(其实就是扩展名) Is_Protected = 是否受保护 Is_Trusted = 是否受托管? IsVBR = 应该是是否存在可变比特率 MediaType = 媒体类型 SourceURL = 原文件路径 Streams = 文件流? Title = 唱片标题 Type = 类型 WM/AlbumArtist = 专辑艺术家 WM/AlbumTitle、Album = 专辑 WM/Genre、Genre = 流派 WM/GenreID = 流派编号? WM/Lyrics = 歌词 WM/PromotionURL = 升级地址? WM/Track = 音轨 WM/TrackNumber = 曲目编号 WMFSDKNeeded = 必须的软件版本版本 WMFSDKVersion = 软件版本 WM/Year = 年代 WMServerVersion = 服务器版本? 多教楼主一个信息,是不是要多给点分? 还有,我想问一下,怎么播放avi文件呀? QQ 626808803
需要一个播放器控件,指定文件名或url为你的文件.就可以了
======
那通常是你缺少相应的解码器吧.
首先要确定播放的视频格式是什么格式,如果是windows media player支持的格式,直接使用该控件就行了,如果是单个视频的话,比如命名为myPlayer,则:
myPlayer.url="视频文件完整路径"
使用Microsoft.DirectX.AudioVideoPlayback组件。
首先,需要安装DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后将对Microsoft.DirectX.AudioVideoPlayback.dll的引用添加到你的项目。
使用这段代码在Panel控件上放置一个视频文件:
ImportsMicrosoft.DirectX.AudioVideoPlayback
Public Class Form1
Private Sub Form1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles MyBase.Load
Dim videoFile As Audio =New Audio("D:\Video1.avi")
videoFile.Owner = Panel1
videoFile.Play()
EndSub
EndClass
'以前收集的资料,没用过,你自己整整
2)使用Windows Media Player控件也能播放视频。
右击工具箱-选项- COM组件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件将会出现在工具箱上。将它拖动到窗体上来生产一个AxWindowsMediaPlayer1对象,并为URL属性指定音频或者视频文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默认将会自动播放文件。