vb.net設(shè)置音量

調(diào)用系統(tǒng)Api

10年積累的做網(wǎng)站、網(wǎng)站制作經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶(hù)對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶(hù)得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有姜堰免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

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

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

在winmm.dll中

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

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

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

ProcessStartInfo Info=new ProcessStartInfo();

Info.FileName = "Sndvol32";

Process.Start(Info);

VB.net如何加載音效？

方法一：調(diào)用系統(tǒng)DLL（這個(gè)有點(diǎn)不完善，也就是播放聲音時(shí)窗體無(wú)法控制，效果相當(dāng)于Enabled=true，但音頻播放完畢后就沒(méi)事了）

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的可見(jiàn)為False）

先添加一個(gè)windowsmediaplayer控件（工具箱里沒(méi)有，需要手動(dòng)添加）

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

上面的都是點(diǎn)擊button1（按鈕1）后播放聲音，若是鼠標(biāo)移動(dòng)到某控件上發(fā)出聲音的話(huà)改一下觸發(fā)事件就OK了。

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

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

SoundFile.wav是你要播放的聲音文件的路徑

VB.net中如何添加聲音？

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call mciExecute("play F:\MUSIC\WMA\guitar\強(qiáng)調(diào)樂(lè)隊(duì)-無(wú)聲的嘆息.mp3 ")

End Sub

復(fù)制可不怎么好吧,那些dll你都要有才行,vb.net做安裝程序也不麻煩,只要添加一個(gè)新項(xiàng)目--安裝向?qū)?根據(jù)提示按下去就是了

哎~~~都說(shuō)得很清楚了,你還......再給個(gè)提示吧,用timeofday來(lái)提取當(dāng)前時(shí)間,和自定義時(shí)間對(duì)比