VB.net中如何添加聲音？

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

創(chuàng)新互聯(lián)專注于繁峙網(wǎng)站建設服務及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供繁峙營銷型網(wǎng)站建設，繁峙網(wǎng)站制作、繁峙網(wǎng)頁設計、繁峙網(wǎng)站官網(wǎng)定制、微信小程序定制開發(fā)服務，打造繁峙網(wǎng)絡公司原創(chuàng)品牌,更為您提供繁峙網(wǎng)站排名全網(wǎng)營銷落地服務。

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

Call mciExecute("play F:\MUSIC\WMA\guitar\強調樂隊-無聲的嘆息.mp3 ")

End Sub

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

哎~~~都說得很清楚了,你還......再給個提示吧,用timeofday來提取當前時間,和自定義時間對比

VB.net里面怎么添加音樂

給你個 很簡單的

Public Class Form1

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

‘ 聲明函數(shù) mciexcute 加入庫 winmm.all

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

Call mciExecute("play E:\music\music\單身情歌.wma ")

'在 formload過程中 調用函數(shù) mciexcute 里面 是 文件 路徑

End Sub

End Class

如何在VB.Net里預加載圖片，音樂？ 用picturebox和mediaplayer控件加載圖片

先用image對象在后臺加載。完了后賦給picturebox.image. 音樂文件類似用filestream

VB.NET如何調用并播放項目資源內的WAV文件。

代碼是沒有錯的，但是其中關鍵是聲音文件資源定義字串必須使用根命名空間，不能用程序集名稱；還有就是聲音文件必須選屬性為嵌入資源。

My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)

怎么在vb.net程序里添加背景音樂？

推薦到一個人的百度空間里去看，

里面有DirectSound的教程

還有DirectInput、DirectDraw的教程

但是DirectSound只能播放wav

如果想播放像mp3、ogg之類的音樂，你可以使用AudioVideoPlayback

VB.net如何加載音效？

方法一：調用系統(tǒng)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）后播放聲音，若是鼠標移動到某控件上發(fā)出聲音的話改一下觸發(fā)事件就OK了。