13518219792
给你个解决方案，用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控件默认将会自动播放文件。
