关于vbnet播放视频的信息

vb点虐 中的mediaplay控件播放视频有图像无声音，何解？

该控件调用的是你的电脑上的播放器

专注于为中小企业提供成都网站制作、做网站、外贸营销网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业忻城免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

Windows Media Player本身支持的视频格式很少 （有.wmv、.wvx、.asf、.asx、.wpl、.wm、.wmx、.wmd 和 .wmz .vob、.avi、.mpeg、.mpg、.mpe、.m1v、.mp2、.mpv2、.mp2v 和 .mpa ），而且您的计算机上面必须安装很多解码器才能完全支持这些格式 ,所以您下载的电影有可能不能播放。

如果您想让Windows Media Player支持不仅以上格式，而且支持几乎所有视频格式，就请您下载安装完美解码这款软件，安装完后，在Windows Media Player的主菜单（鼠标右键Windows Media Player窗口的顶端）当中选择工具--选项--DVD选项卡--高级--在弹出来的对话框中选择“编码解码器”选项卡，在右面一侧把显示“未启用”字样的全部改为“libavcodec”字样，单击确定，然后，您会发现Windows Media Player支持很多格式（包括播放DVD、3GP）

vb点虐 中的mediaplay控件播放视频有图像无声音

　1． Beep

最简单的一种方法，通过计算机的扬声器发出声响， 声响的音高与持续时间取决于硬件和系统软件，从而随计算机不同而不同。

Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中，一般默认系统会自动加载。调用很简单，看下面的例子。

Dim I As Integer

For I = 1 To 100 ' Loop 100 times.

Beep() ' Sound a tone.

Next I

2． 用Win32 API PlaySound

PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：

先声明：

Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

Const SND_FILENAME As Integer = H20000

Const SND_ALIAS As Integer = H10000

Const SND_SYNC As Integer = H0

具体还有很多常量，不一一列举，下面是播放一个wav文件的例子

Dim mstrfileName As String = "c:\eagle2.wav"

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。

当然我们也可以调用系统的声音：

PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

' 以同步的方式调用系统启动时候的声音。

3． 调用媒体播放器控件

VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。

首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\爱不爱我.mp3"

.Play()

End With

End Sub

vb点虐 中怎么调用DirectX来播放视频

使用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控件默认将会自动播放文件。