13518219792
您好！
创新互联主要从事网站设计、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务商水,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
系统自带的播放器就是windowsmediaplayer，别无它选，语法：
windowsmediaplayer1.URL="c:\视频.mp4"
或者也可以用picturebox来播放，代码：
先要点“工程”，然后“引用”，然后勾选“ActiveMovie control type library”，这样才能正常运行
Option Explicit
Private Const WS_CHILD = H40000000
Private Const WS_CLIPCHILDREN = H2000000
Private m_FilGraph As FilgraphManager
Private m_Video As IVideoWindow
Private Sub Command1_Click() '播放按钮
Dim strFileName As String
strFileName = "E:\电影\赤壁.rmvb" '电影的地址
Set m_FilGraph = New FilgraphManager
m_FilGraph.RenderFile strFileName
Set m_Video = m_FilGraph
With m_Video
.Owner = Picture1.hWnd 'Owner可以设置为任意窗口的句柄
.WindowStyle = WS_CHILD Or WS_CLIPCHILDREN
.Top = 0
.Left = 0
.Width = Picture1.Width / Screen.TwipsPerPixelX
.Height = Picture1.Height / Screen.TwipsPerPixelY
End With
m_FilGraph.Run
End Sub
回答完毕！
首先要确定播放的视频格式是什么格式，如果是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控件默认将会自动播放文件。
“工具箱”中单击右键，选择“选择项”菜单，打开“选择工具箱项”窗口，选择“COM组件”标签，在列表中找到并勾选“Windows Media Player”组件，单击“确定”按钮。将该组件添加到指定的工具箱选项卡中，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出来的控件就是AxWindowsMediaPlayer
给你个解决方案，用VB.net自带的AxWindowsMediaPlayer控件能解决
“工具箱”中单击右键，选择“选择项”菜单，打开“选择工具箱项”窗口，选择“COM组件”标签，在列表中找到并勾选“Windows Media Player”组件，单击“确定”按钮。将该组件添加到指定的工具箱选项卡中 ，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出来的控件就是AxWindowsMediaPlayer
下面是使用方法：
AxWindowsMediaPlayer1.URL = "D:\123.avi" '--------只需要这么一句话就可以播放D盘123.avi
如果要暂停则： AxWindowsMediaPlayer1.Ctlcontrols.pause() '更多功能自己去摸索
