VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
  • vb.net教程之VB.NET中声音的播放

  • 2017-06-06 23:21 来源:未知
由VB6升级为.NET后,有些人不清楚声音的处理,比如程序出错的时候,自定义一个声音播放,或者程序的背景音乐、包括游戏音乐等等。下面介绍几种在VB.NET中计较简单可以实现的方案:



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

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。

相关教程
  • 回复@遇得:难道你认为他们没有深入领会 2019-05-24
  • 天津通报5起违反中央八项规定精神典型问题 2019-05-24
  • 俄官员说俄韩领导人将讨论同朝鲜三方合作项目 2019-05-23
  • 【大家谈】干部轻装上阵有了“护身符” 2019-05-23
  • 机场高速收费之争 春城壹网 七彩云南 一网天下 2019-05-23
  • 有没有上城客在越南的踪迹? 2019-05-22
  • 海上洄游时 北海狗 连续两周深睡眠 2019-05-22
  • 2018高考志愿填报规则:五大误区家长需谨慎 2019-05-21
  • 罗超毅:中国棋牌发展新蓝图 2019-05-21
  • 他们是中国军人,他们2个月排除380万平方米雷场 2019-05-21
  • 今天明天后天 雷雨赶不走闷热天 2019-05-20
  • “中国城市互联网生活消费·成都指数”论坛 2019-05-20
  • 亚冠-埃神破门于海摆乌龙 上港1-3鹿岛晋级告急 2019-05-20
  • Facebook公关掌门离职 是应对隐私丑闻干将 2019-05-19
  • 匹夫有责之一百一十一 (原创首发) 2019-05-19
  • 367| 640| 153| 375| 456| 78| 449| 509| 327| 51|