『壹』 為VB程序添加背景音樂
播放背景音樂
聲明:
Declare Function MCISendString& Lib -MMSYSTEM- (ByVal LPSTRCOMMAND
$, ByVal LPSTRRETURNSTR As Any, ByVal WRETURNLEN%, ByVal HCALLBACK%)
開始播放:
R% = MCISendString&(-OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN-, 0&,
0, 0)
R% = MCISendString&(-PLAY NN FROM 0-, 0&, 0, 0)
R% = MCISendString&(-CLOSE ANIMATION-, 0&, 0, 0)
停止:
R% = MCISendString&(-OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN-, 0&,
0, 0)
R% = MCISendString&(-STOP NN-, 0&, 0, 0)
R% = MCISendString&(-CLOSE ANIMATION-, 0&, 0, 0)
其中EXAMPLE.MID 為播放的文件,NN為自定義名稱標志。
『貳』 在VB里怎麼加背景音樂
1、直接進入VB的相關窗口,選擇標准EXE打開。
『叄』 VB登錄界面如何添加背景音樂
你在url設置之後 加一句a.controls.play 如果還不能播放 你換個文件 及其文內件路徑 還可以先添加media控制項 而不是動態添容加
第二個你image控制項事件下面的代碼需要放到所有代碼之上
『肆』 vb程序中怎麼添加背景音樂
把音樂mp3文件和exe文件放在同一個目錄下,假設是1.mp3,加入如下代碼設置音樂文件路徑:
WindowsMediaPlayer1.URL = App.Path & "\1.mp3"
即可解決問題,不過音樂文件要和exe在一起。
如果要做到只有exe文件還可以使用資源文件的方式,程序運行的時候釋放資源。
『伍』 vb中如何添加背景音樂
添加一個播放器控制項,visible屬性設置不可見就行了
『陸』 VB如何為程序添加背景音樂
外接程序管理器是vb6.0的東西,你這個是vb.net,不是vb6.0.所以是不能使用外接程序管專理器的。你可以把音樂屬放在資源的文件夾里,和程序一起編譯。這樣就不用調用外部文件了。具體的代碼的話,我可以寫好編譯好發給你。
『柒』 vb中如何添加背景音樂
是用windowmediaplayer空間
在工程——部件裡面找到
應該在最下面
方法使用
windowmediaplayer1.url="e:\mp3\1.mp3"
放到form_load事件裡面
拖進一個Windows
Media
Player控制項,
設置其Visible屬性為False
然後在Form_Load中用Windows
Media
Player載入你的背景音樂播放就OK了.
『捌』 怎麼在VB中添加背景音樂
WindowsMediaPlayer1.Controls.play'播放
WindowsMediaPlayer1.Controls.stop'停止
WindowsMediaPlayer1.Controls.pause'暫停
你這樣連續讓它播放\停止\暫停,它最後就是停止了,當然沒有聲音啦
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.URL = "e:\wj\j.mp3"
WindowsMediaPlayer1.Controls.play
End Sub
就可以了
『玖』 VB如何添加背景音樂
我倒有一個辦法,就是吧你需要的音樂文件寫到資源文件裡面去,在需要播放的時候再生成出來,然後播放,可以達到嵌入EXE的目的
『拾』 如何在vb中插入背景音樂且在其他電腦中可放
使用資源文件,可以直接在在exe文件中播放聲音文件(wav文件),使程序顯得更加專業。
⑴啟動
vb6.0,在「外接程序→外接程序管理器」中載入「visual
basic
6
資源編輯器」
⑵在
vb
資源編輯器窗口中,點擊「添加自定義資料」,增加任意的
wav
文件,再雙擊剛剛創建的自定義資源,彈出」編輯屬性」窗口,定義如下:
類型:
"wave"
標識號:
102
語言:
中文(中國)
⑶保存資源文件,寫如下代碼:
option
explicit
private
declare
function
getsystemdefaultlcid
lib
"kernel32"
()
as
long
private
declare
function
sndplaysoundfrommemory
lib
"winmm.dll"
alias
"sndplaysounda"
(lpszsoundname
as
any,
byval
uflags
as
long)
as
long
public
const
snd_async
=
&h1&
public
const
snd_memory
=
&h4&
private
sub
command5_click()
注釋:播放
wav
文件
dim
barr()
as
byte
barr
=
loadresdata(102,
"wave")
sndplaysoundfrommemory
barr(0),
snd_async
or
snd_memory
end
sub
⑷按
f5
運行本程序,點擊
command
按鈕,就可以聽到你選定的
wav
文件的聲音了。