VB.NET声音播放三点要素概述

自从VB.NET推出后，其功能特点极大的吸引了广发开发人员的眼球。我们可以在实际应用中去发现其的好处。下面就先来从VB.NET声音播放来体验期功能的强大。由VB6升级为.NET后，有些人不清楚声音的处理，比如程序出错的时候，自定义一个声音播放，或者程序的背景音乐、包括游戏音乐等等。下面介绍几种在VB.NET中计较简单可以实现的方案：#t#

成都创新互联公司技术团队十载来致力于为客户提供网站设计、网站建设、高端网站设计、成都营销网站建设、搜索引擎SEO优化等服务。经过多年发展，公司拥有经验丰富的技术团队，先后服务、推广了1000+网站，包括各类中小企业、企事单位、高校等机构单位。

VB.NET声音播放1． Beep

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

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

Dim I As IntegerFor I = 1 To 100
' Loop 100 times. Beep()
' Sound a tone.Next I

VB.NET声音播放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 = 
&H20000Const
  
  
  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) 
  
  
  ' 以同步的方式调用系统
启动时候的声音

VB.NET声音播放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.NET比VB6改变了很多，包括真正的OOP，多线程等等，但是总归还是跟VB有很多联系，建议大家碰到难于解决的问题的时候，试一下以前的处理方式，一般都能奏效

本文题目：VB.NET声音播放三点要素概述
文章起源：http://www.csdahua.cn/qtweb/news33/396633.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容