如何用vb控制系統(tǒng)的聲音

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：空間域名、虛擬空間、營銷軟件、網(wǎng)站建設、橫山網(wǎng)站維護、網(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

Dim vol1

i = waveOutSetVolume(0, -1) '最大音量

i = waveOutSetVolume(0, 1100000000) '音量適中

i = waveOutSetVolume(0, 0) '音量小

i = waveOutSetVolume(0, vol1) '恢復原始音量

k = App.Path + "\*.wav" '播放音樂

L = H1 Or H2 '識別標識

i = sndPlaySound(k, L) '播放音樂

vb.net的，按鍵連續(xù)觸發(fā)事件，比如，按著鍵不放，音量增大。

1.定義變量記錄鍵是否被按下，按下的累計時間

Dim?按下A鍵??As?Boolean

Dim?按下A鍵時間?As?Integer

2.添加一個TextBox1用于接收鍵盤事件，或者直接用窗體的鍵盤事件(確保KeyPreview為True)

在KeyDown事件中添加如下代碼：

If?e.Keycode?=?keys.A?Then?按下A鍵?=?True

在KeyUp事件中添加如下代碼：

If?e.Keycode?=?keys.A?Then?按下A鍵?=?False

3.添加一個Timer1控件，調整Timer1的Interval來決定按鍵頻率，記得要把Timer1.Enable開啟

在Tick事件中添加如下代碼：

If?按下A鍵?=?True

按下A鍵時間+=1

Call?音量設置(按下A鍵時間?*?10)

End?If

PS:?按下的秒數(shù) =?按下A鍵時間*Timer1.Interval / 1000

多媒體 音頻 聲音 音量 大小 如何得到系統(tǒng)實時音量大小，用VB.net易的win7聲音控制軟件，

驅動程序，設置，文件，注冊表四個方面，震動，如看它是否可以恢復全面檢查，案件的接口是壞的，這是為配件

首先，請檢查聲音卡驅動程序，右鍵單擊“我的電腦” - 屬性 - 硬件 - 設備管理器 - 聲音，視頻和游戲控制器 - 右擊 - ReaItek - 更新或掃描，卸載并重新安裝。 （如果你下載的驅動程序生命沒有驅動程序包 - 驅動更新 - 聲音，視頻 - 開始更新 - 自動找到的官方驅動程序 - 重新啟動計算機。）

調試麥克風：控制面板 - 高清晰音頻配置 - 混頻器 - 重放 - 小扳手 - 選擇 - OK - - 后粉紅色 - X'靜音，推高了麥克風插孔前面板 - 選擇 - OK，然后打X麥克風靜音，然后在右邊拉點音頻I/O--小扳手 - 選擇“禁用前面板插孔檢測 - OK - 返回混頻器 - 錄制 - 小扳手 - 點擊麥克風的音量（版本不一致需打X-靜音立體聲混音）

加強麥克風：右鍵單擊右下角的小喇叭（小喇叭的音量上） - 調整音頻屬性 - 音量 - 設備音量 - 高級 - （主音??量全推到上） - 選項 - 屬性 - 麥克風音量打勾 - 確定返回選項 - 高級控制 - 高級 - 麥克風加強了鉤。

右下角的小喇叭顯示：開始---設置---控制面板 - 聲音和音頻設備 - 音量 - （勾選）將音量圖標放入任務欄上。

5。在網(wǎng)頁中，網(wǎng)頁聲音的操作方法：打開網(wǎng)頁 - 工具 - 選項 - 高級 - （勾選）播放的聲音。

6。游戲耳機出聲來：控制面板---高清晰音頻配置 - 音頻I/O--耳機 - 選舉8CH喇叭。

7。前部和后部面板插孔調試：控制面板 - 高清晰音頻配置 - 音頻I/O--模擬 - 后面板插孔圖標 - 單擊 - 你插入的設備嗎？ （需插入的設備，如插耳機） - 當選耳機 - OK，所以

8。使用QQ聊天的語言時，MIC音量無法調整，請下載補丁。

9，如聲卡驅動安裝不上的解決方法：控制面板 - 管理工具 - 服務 - Windows音頻 - 啟動類型設置為“自動”重新啟動它。

10。注冊表的方法：

開始 - 運行 - 輸入regedit打開注冊表，然后單擊“打開HKEY_LOCAL_MACHINE \ SOFTWARE \微軟\的Windows \ CurrentVersion \ Run在右側窗口中新建字符串”系統(tǒng)托盤“點右鍵（在運行于新的）鍵（在系統(tǒng)托盤中雙擊編輯）“C：\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系統(tǒng)，或“C：\ WINNT \ SYSTEM32 \ Systray.exe”

開始 - 運行 - 輸入regedit打開注冊表，然后單擊“打開HKEY_LOCAL_MACHINE \ SOFTWARE \微軟\ WINDOWSNT \ CURRENTVERSION \ Drivers32創(chuàng)建一個新的字符串值，命名為”wavemapper“值”msacm32。DRV“。重新啟動計算機。

vb.net設置音量

調用系統(tǒng)Api

[DllImport("winmm.dll")] //引用winmm.dll

public static extern long waveOutSetVolume(long deviceID, long Volume);

在winmm.dll中

第一個參數(shù)可以為0，表示首選設備

第二個參數(shù)為音量:0xFFFF為最大，0x0000為最小，其中高位（前兩位）表示右聲道音量，低位（后兩位）表示左 聲道音量 。

2、彈出系統(tǒng)音量調節(jié)框

ProcessStartInfo Info=new ProcessStartInfo();

Info.FileName = "Sndvol32";

Process.Start(Info);

文章名稱：vb.net調節(jié)聲音大小 vbs70聲音
網(wǎng)頁網(wǎng)址：http://newbst.com/article14/doihgge.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供標簽優(yōu)化、網(wǎng)站建設、搜索引擎優(yōu)化、網(wǎng)站策劃、用戶體驗、網(wǎng)站內鏈

廣告

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