vb点虐 影音播放器 vb播放器控件

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点虐 中编辑音乐播放器用什么控件添加音乐

需要用到COM控件,例如media player、Real player等,或者用 .NET 自带的类库 System.Media下面的 SoundPlayer来播放音乐

vb点虐 Mp3播放器问题

这是我的代码:

CommonDialog1.Filter = "All Files (*.*)|*.*|Windows Media 格式文档 (*.asf;*.wma;*.wmv;*.wm)|*.asf;*.wma;*.wmv;*.wm|Windows Media 音频 (*.wma)|*.wma|Windows Media 视频 (*.wmv;*.wm)|*.wmv;*.wm|Windows Media 元文件 (*.asx;*.wax;*.wvx;*.wpl)|*.asx;*.wax;*.wvx;*.wpl|Windows Media 音频重定向器 (*.wax)|*.wax|Windows Media 视频重定向器 (*.wvx)|*.wvx"

CommonDialog1.ShowOpen

WindowsMediaPlayer1.URL = CommonDialog1.FileName

'这只是打开文件的代码哦

--------------------------------------------------------------------------------------------------

控制播放器的代码:

WindowsMediaPlayer1.play'控制播放器开始播放

WindowsMediaPlayer1.stop'控制播放器暂停播放

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


当前题目:vb点虐 影音播放器 vb播放器控件
当前链接:http://scyanting.com/article/ddpoohd.html