VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
  • 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有很多联系,建议大家碰到难于解决的问题的时候,试一下以前的处理方式,一般都能奏效

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

相关教程
  • 2018 E3:女主持人展位探访 被吓的花容失色 2019-02-24
  • 5月末商品房库存继续减少 三、四线城市开启库存短缺时代 2019-02-24
  • 中国公民出入境排队将不超半小时 2019-02-24
  • 鹰潭高新区思想解放添发展动力 2019-02-23
  • 践行新发展理念 全面建成小康社会 2019-02-23
  • 端午节期间 全省道路安全畅通形势平稳 2019-02-23
  • 观众对三观不正影视剧不买账 76.7%受访者拒看 2019-02-23
  • 为峰会喝彩 为市民点赞 为青岛自豪 2019-02-22
  • 宜居中国厕所革命论坛举办 成立首个专业厕所革命研究所--旅游频道 2019-02-22
  • 6集电视文献纪录片《风范——老一辈革命家的故事》 2019-02-21
  • 端午节,跟随习近平找寻中华民族“精气神” 2019-02-21
  • 女排一主攻提前出局!进攻曾不输朱婷 今彻底沦为边缘人 2019-02-21
  • 开放的青岛期待“上合之声” 2019-02-20
  • 工商总局将针对“双11”等网络促销出管理规定 2019-02-20
  • 以法之名 捍卫英烈名誉 2019-02-20
  • 319| 810| 103| 21| 144| 657| 196| 542| 10| 640|