Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
乳源網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)建站,乳源網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為乳源千余家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢,請找那個售后服務(wù)好的乳源做網(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\強調(diào)樂隊-無聲的嘆息.mp3 ")
End Sub
復制可不怎么好吧,那些dll你都要有才行,vb.net做安裝程序也不麻煩,只要添加一個新項目--安裝向?qū)?根據(jù)提示按下去就是了
哎~~~都說得很清楚了,你還......再給個提示吧,用timeofday來提取當前時間,和自定義時間對比
給你個 很簡單的
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過程中 調(diào)用函數(shù) mciexcute 里面 是 文件 路徑
End Sub
End Class
1、直接進入VB的相關(guān)窗口,選擇標準EXE打開。
2、這個時候彈出新的對話框,需要找到Windows Media Player并點擊確定。
3、下一步如果沒問題,就根據(jù)實際情況設(shè)置其中的參數(shù)。
4、在文件那里,選擇保存工程。
5、等完成上述操作以后,繼續(xù)點擊確定。
6、這樣一來會實現(xiàn)VB按照圖示播放背景音樂,即可達到目的了。
推薦到一個人的百度空間里去看,
里面有DirectSound的教程
還有DirectInput、DirectDraw的教程
但是DirectSound只能播放wav
如果想播放像mp3、ogg之類的音樂,你可以使用AudioVideoPlayback
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的聲音文件的路徑
網(wǎng)站題目:在vb.net里添加音效 vb聲音控件
URL標題:http://vcdvsql.cn/article30/hpipso.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供手機網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、企業(yè)網(wǎng)站制作、網(wǎng)站維護、App開發(fā)、網(wǎng)站設(shè)計公司
聲明:本網(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)