锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net获取声道 vb声音控件

IT技术Long

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了 。
vb.net设置音量调用系统Api
[DllImport("winmm.dll")]//引用winmm.dll
publicstaticexternlongwaveOutSetVolume(longdeviceID,longVolume);
在winmm.dll中
第一个参数可以为0vb.net获取声道，表示首选设备
第二个参数为音量:0xFFFF为最大vb.net获取声道，0x0000为最小，其中高位（前两位）表示右声道音量，低位（后两位）表示左 声道音量。
2、弹出系统音量调节框
ProcessStartInfo Info=new ProcessStartInfo();
Info.FileName = "Sndvol32";
Process.Start(Info);
vb.net中如何播放声音，是要什么控件嘛？My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径
vb.net声道控制左右声道控制的原理：
waveOutGetVolume取得的音量值转换成16进制，高位是左声道的值，低位是右声道的值 。
’这段代码摘这段代码摘自互联网
PrivateDeclareFunctionwaveOutGetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,lpdwVolumeAsLong)AsLong
PrivateDeclareFunctionwaveOutSetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,ByValdwVolumeAsLong)AsLong
ConstWAVE_MAPPER=-1
PublicFunctionSetLR(ByValLAsLong,ByValRAsLong)AsLong
DimmLRAsString
mLR="H"Right("0000"Hex(L),4)Right("0000"Hex(R),4)
waveOutSetVolumeWAVE_MAPPER,CLng(mLR)
EndFunction
PublicFunctionGetLR(ByRefLAsLong,ByRefRAsLong)AsLong
DimLRAsLong
waveOutGetVolumeWAVE_MAPPER,LR
L=CLng("H"Left(Hex(LR),4))
R=CLng("H"Right(Hex(LR),4))
EndFunction
以上2个自定义的函数可以方便的取得和设置左右声道 。
如：
PrivateSubForm_Load()
DimmLAsLong,mRAsLong
GetLRmL,mR
MsgBox"左"mL"--右"mR
EndSub
PrivateSubCommand1_Click()
SetLR65535,22222
EndSub
可以用一个Slider来进行细致的控制 。
下载类库，可以实现左右声道的控制
【vb.net获取声道 vb声音控件】关于vb.net获取声道和vb声音控件的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：本田车怎么用u盘安装软件，本田车载怎么下载软件

    下一篇：c使用sqlserver数据库，sqlserver使用数据库语句