背景用PICTURE屬性,
創(chuàng)新互聯(lián)是一家專注于網(wǎng)站設(shè)計(jì)制作、網(wǎng)站設(shè)計(jì)與策劃設(shè)計(jì),綏江網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:綏江等地區(qū)。綏江做網(wǎng)站價(jià)格咨詢:18982081108
背景音樂用以下代碼:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
'播放
Dim Result As Integer
Dim ReturnStr As String * 1024 '注意,必須指定String的長度
Result = mciSendString("play d:\背景音樂.wav", ReturnStr, 1024, 0)
End Sub
Private Sub Command2_Click()
'停止
Dim Result As Integer
Dim ReturnStr As String * 1024 '注意,必須指定String的長度
rc = mciSendString("close d:\背景音樂.wav", 0, 0, 0)
End Sub
'循環(huán)的話,可以檢測其狀態(tài),如果不想檢測的話,用個(gè)計(jì)時(shí)器,Interval設(shè)置成播放完需要的時(shí)間即可
二、背景音樂
1.右鍵單擊vb左邊的工具欄 選擇部件。
2.出來的對(duì)話框添加 windows media player 在最后面。(如果沒有,按瀏覽,在windows下面的system32目錄 里面有個(gè)wmp.dll 就是了)
3.按確定,把多出來的控件畫到窗體上面
4.改屬性。里面的url可以填硬盤的文件,也可以填網(wǎng)絡(luò)上的。
5.如果不想讓控件顯示出來 改Visible屬性,為false
6.如果不想用物理路徑直接指定音樂文件??梢栽趂orm的load事件添加代碼
WindowsMediaPlayer1.url = app.path "\music.mp3"
這樣子音樂文件就是你的程序同目錄下的music.mp3
非本人原創(chuàng)
難道我這VS安裝的盜版的?
你的意思就是
button不能設(shè)置背景圖片?
不可能吧?
你不要誤導(dǎo)我,哥。
回答:
不是不能設(shè)置背景圖片哈,關(guān)鍵是你要設(shè)置那個(gè)控件的背景圖片哈,這才是關(guān)鍵!比如說你要設(shè)置網(wǎng)頁的,那么就修改網(wǎng)頁的。如果要設(shè)置button的,就修改button的賽。
就是實(shí)現(xiàn)一個(gè)動(dòng)態(tài)按鈕的效果,當(dāng)鼠標(biāo)移動(dòng)到按鈕上,背景變換成另外一張圖
為啥不能顯示?我試過,如果圖像文件的名字很奇怪,就不能顯示,VB 不支持它。你改個(gè)很一般的名字即可。圖像不需要用資源文件,用 ImageList 控件:
Me.BackGroundImage = 圖像列表.Images(0)