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

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

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

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

vb點虐 聲道控制

左右聲道控制的原理：

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

’這段代碼摘這段代碼摘自互聯(lián)網(wǎng)

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個自定義的函數(shù)可以方便的取得和設(shè)置左右聲道。

如：

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來進行細致的控制。

下載類銀亮庫，可以實現(xiàn)左右聲道的控制

VB點虐 如何加載音效？

方法一：調(diào)用系統(tǒng)DLL（這個有點不完善，也就是播放聲音時窗體無法控制，效果相當(dāng)于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）后播放聲音，若是鼠標移動到某控件上發(fā)出聲皮漏音的話改一下觸發(fā)事件就OK了。

vb點虐 控制系統(tǒng)音量

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

網(wǎng)站欄目：vb點虐 控制聲音 vb調(diào)用語音控件
文章出自：http://www.chinadenli.net/article46/ddpeghg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊、面包屑導(dǎo)航、用戶體驗、營銷型網(wǎng)站建設(shè)、Google、定制網(wǎng)站

廣告

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