需要用到COM控件,例如media player、Real player等,或者用 .NET 自帶的類(lèi)庫(kù) System.Media下面的 SoundPlayer來(lái)播放音樂(lè)
成都創(chuàng)新互聯(lián)成立于2013年,是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目網(wǎng)站設(shè)計(jì)制作、網(wǎng)站建設(shè)網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命,1280元江西做網(wǎng)站,已為上家服務(wù),為江西各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話(huà):13518219792
給你個(gè) 很簡(jiǎn)單的
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
‘ 聲明函數(shù) mciexcute 加入庫(kù) 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過(guò)程中 調(diào)用函數(shù) mciexcute 里面 是 文件 路徑
End Sub
End Class
1、直接進(jìn)入VB的相關(guān)窗口,選擇標(biāo)準(zhǔn)EXE打開(kāi)。
2、這個(gè)時(shí)候彈出新的對(duì)話(huà)框,需要找到Windows Media Player并點(diǎn)擊確定。
3、下一步如果沒(méi)問(wèn)題,就根據(jù)實(shí)際情況設(shè)置其中的參數(shù)。
4、在文件那里,選擇保存工程。
5、等完成上述操作以后,繼續(xù)點(diǎn)擊確定。
6、這樣一來(lái)會(huì)實(shí)現(xiàn)VB按照?qǐng)D示播放背景音樂(lè),即可達(dá)到目的了。
當(dāng)前名稱(chēng):vbnet加音樂(lè) vb寫(xiě)程序加入音樂(lè)
網(wǎng)站鏈接:http://www.rwnh.cn/article36/ddcposg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制網(wǎng)站、自適應(yīng)網(wǎng)站、網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈、企業(yè)網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀(guān)點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)