锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net音频流 vbs播放音频代码

IT技术文件

VB.NET 怎样实现不中断地播放资源文件里的音频？ 用户点一次鼠标就播放资源文件里时长为三秒的Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim th As New Threading.Thread( _
Sub()
My.Computer.Audio.Play(New Byte() {}, AudioPlayMode.WaitToComplete)
End Sub)
th.Start()
End Sub
如果是WAV文件，这样就行了，不会同时播放
vb.net怎么编程实现从音频输出口输出指定频率指定时长和占空比的单音信号 。1.用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)
' 以同步的方式调用系统启动时候的声音 。
2． 调用媒体播放器控件
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 中 如何实现 播放mp3文件在.NET里，没有托管的音乐播放器 ， 用API只能播放WAV格式，对于MP3等形式的音频文件 ， 就要依赖于其他控件了，常用的就是
MediaPlayer 。使用方法：
在工具箱上点右键 ， 选择“选择项目(Choose Items)”，切到COM选项卡，找到 Windows Media Player ，  勾?。范?
在t工具箱上，把刚才加入的MediaPlayer控件，拖放到窗体上
代码：
WindowsMediaPlayer1.URL = "mp3文件路径，支持网络路径"
WindowsMediaPlayer1.Ctlcontrols.play
基本就OK了，至于其他的操作诸如下一曲上一曲暂停停止 ， 直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧 。
VB.net如何加载音效？方法一：调用系统DLL（这个有点不完善，也就是播放声音时窗体无法控制，效果相当于Enabled=true，但音频播放完毕后就没事了）
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SoundFile As String, Result As Long
SoundFile = "D:\KuGou\Pianoboy - 第105天.wav" '此处为路径
Result = sndPlaySound(SoundFile, 0)
End Sub
方法二：使用WindowsMediaPlayer（WindowsMediaPlayer1的可见为False）
先添加一个windowsmediaplayer控件（工具箱里没有，需要手动添加）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WindowsMediaPlayer1.visible=False
Me.WindowsMediaPlayer1.URL = "D:\KuGou\Pianoboy - 第105天.mp3"
End Sub
上面的都是点击button1（按钮1）后播放声音，若是鼠标移动到某控件上发出声音的话改一下触发事件就OK了 。

推荐阅读


上一篇：goto函数c语言，c语言goto语句

下一篇：合肥仲裁小程序怎么申请，合肥仲裁委员会