vb點虐 中如何播放聲音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

站在用戶的角度思考問題，與客戶深入溝通，找到科爾沁左翼網站設計與科爾沁左翼網站推廣的解決方案，憑借多年的經驗，讓設計與互聯網技術結合，創造個性化、用戶體驗好的作品，建站類型包括：網站設計、做網站、企業官網、英文網站、手機端網站、網站推廣、域名注冊、網頁空間、企業郵箱。業務覆蓋科爾沁左翼地區。

SoundFile.wav是你仿孫要備散鏈播放的聲音掘碧文件的路徑

vb點虐 聲道控制

左右聲道控制的原理：

waveOutGetVolume取得的音量值轉換成16進制，高位是左聲道的值，低位是右聲道的值。

’這段代碼摘這段代碼摘自互聯網

Private Declare Function waveOutGetVolume Lib "winmm.dll"鋒舉寬 (ByVal uDeviceID As Long, lpdwVolume As Long) As Long

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

Const WAVE_MAPPER = -1

Public Function SetLR(ByVal L As Long, ByVal R As Long) As Long

Dim mLR As String

mLR = "H" Right("0000" Hex(L), 4) Right("0000" Hex(R), 4)

waveOutSetVolume WAVE_MAPPER, CLng(mLR)

End Function

Public Function GetLR(ByRef L As Long, ByRef R As Long) As Long

Dim LR As Long

waveOutGetVolume WAVE_MAPPER, LR

L = CLng("H" Left(Hex(LR), 4))

R = CLng("H" Right(Hex(LR), 4))

End Function

以上2個自定義的函數可以方便的取得和設置左右聲道。

如：

Private Sub Form_Load()

Dim mL As Long, mR As Long

GetLR mL, mR

MsgBox "左" mL "--右" mR

End Sub

Private Sub Command1_Click()

SetLR 65535, 22222

End Sub

可答肢以用一個Slider來進行細致的控制。

下載類銀亮庫，可以實現左右聲道的控制

VB點虐 如何加載音效？

方法一：調用系統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點虐 控制系統音量

Imports?System.Runtime.InteropServices

Public?Class?Form1

Private?mute?As?Integer?=?H80000

Private?up?As?Integer?=?HA0000

Private?down?As?Integer?=?H90000

Private?WM_APPCOMMAND?橡賀As?Integer?=?H319

廳如頃DllImport("user32.dll")?_

Public?Shared?Function?SendMessageW(hWnd?As?IntPtr,?Msg?As?Integer,?wParam?As?IntPtr,?lParam?As?IntPtr)?As?IntPtr

End?Function

'加大

Private?Sub?btnUp_Click(sender?As?System.Object,?e?As?System.EventArgs)?Handles?btnUp.Click

SendMessageW(Me.Handle,?WM_APPCOMMAND,?Me.Handle,?New?IntPtr(up))

End?Sub

扮陸??'減小

Private?Sub?btnZero_Click(sender?As?System.Object,?e?As?System.EventArgs)?Handles?btnZero.Click

SendMessageW(Me.Handle,?WM_APPCOMMAND,?Me.Handle,?New?IntPtr(mute))

End?Sub

'靜音

Private?Sub?btnDown_Click(sender?As?System.Object,?e?As?System.EventArgs)?Handles?btnDown.Click

SendMessageW(Me.Handle,?WM_APPCOMMAND,?Me.Handle,?New?IntPtr(down))

End?Sub

End?Class

網站欄目：vb點虐 控制聲音 vb調用語音控件
文章出自：http://vcdvsql.cn/article46/ddpeghg.html

成都網站建設公司_創新互聯，為您提供域名注冊、面包屑導航、用戶體驗、營銷型網站建設、Google、定制網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯