在VB里能插入音乐吗具体是怎么做的

api实现背景音乐方法：

在窗体上加入一个按钮，一个时间空间，输入如下代码：

Option

Explicit

Private

Declare

Function

mciSendString

Lib

"winmmdll"

Alias

"mciSendStringA"

(ByVal

lpstrCommand

As

String,

ByVal

lpstrReturnString

As

String,

ByVal

uReturnLength

As

Long,

ByVal

hwndCallback

As

Long)

As

Long

Private

Sub

Command1_Click()'这段代码是开始播放音乐，具体路径、歌名你可以选择你需要的，也可以放到初始事件里面

mciSendString

"close

F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由wma",

vbNullString,

0,

0

mciSendString

"open

F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由wma",

vbNullString,

0,

0

mciSendString

"play

F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由wma",

vbNullString,

0,

0

End

Sub

Private

Sub

Form_Unload(Cancel

As

Integer)'这段代码是卸载窗体的时候，关掉音乐

mciSendString

"close

F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由wma",

vbNullString,

0,

0

End

Sub

Private

Sub

Timer1_Timer()'这段代码是检测歌曲有没有播放完毕，如果播放完毕，则重复播放。如果你不需要重复播放，可不要这段代码

Dim

S

As

String

S

=

String(256,

Chr(0))

mciSendString

"status

F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由wma

mode",

S,

Len(S),

0

If

Left(S,

7)

=

"stopped"

Or

Left(S,

2)

=

"停止"

Then

mciSendString

"seek

F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由wma

to

start",

vbNullString,

0,

0

mciSendString

"play

F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由wma",

vbNullString,

0,

0

End

If

End

Sub

'以上代码只是大概，具体的你可以根据自己需要编写，但愿对你有帮助

mciSendString(TEXT("closeMySong"),NULL,0,NULL);/停止播放，可以解决一些不必要的麻烦/wsprintf(play_lujing2,"open\"%s\"aliasmysong",“d:/爱你一万年mp3”);//将字符串准备好mciSendString(TEXT(play_lujing2),NULL,0,NULL);//将歌曲打开mciSendString(TEXT("playMySong"),NULL,0,NULL);//播放歌曲这样就可以实现播放了，更多的功能请下载这个:（可以看MV、下载歌曲的c语言播放器）

TEXT是一个宏, 它会在条件适合情况下, 在"play MySong"字符前加"L"字母, 转换为宽字符

没法播放音乐, 是因为你刚用mciSendString发送完命令, 歌曲刚要播放, 你直接一句return 0;退出程序了 在mciSendString函数后面加Sleep(5 60 1000);再试试

Windows 中可以使用 MCI（Media Control Interface）函数来播放音乐，可以通过mciSendString函数发送命令来控制音乐播放。可以在发送命令的时候设置一个回调函数，当音乐播放完毕之后，就会调用该回调函数，从而可以知道音乐播放完毕。

具体的实现步骤如下：

（1）调用mciSendString函数发送“open”命令，打开要播放的音乐文件。

（2）调用mciSendString函数发送“play”命令，开始播放音乐。

（3）调用mciSendString函数发送“set notify”命令，设置回调函数，当音乐播放完毕之后，就会调用该回调函数。

（4）当回调函数被调用时，表示音乐播放完毕，可以做相应的处理。

'给你一份代码,希望对你有所帮助!

'没有使用任何额外控件,只是用了一个API函数

Private

Declare

Function

mciSendString

Lib

"winmmdll"

Alias

"mciSendStringA"

(ByVal

lpstrCommand

As

String,

ByVal

lpstrRetumString

As

String,

ByVal

uReturnLength

As

Long,

ByVal

hwndCallback

As

Long)

As

Long

Dim

file

As

String

Private

Sub

cmdPlay_Click()

file

=

"d:\2mp3"

mciSendString

"play

"

&

file,

0&,

0,

0

'play后边的空格一定不能丢

End

Sub

Private

Sub

cmdStop_Click()

mciSendString

"close

"

&

file,

0&,

0,

0

End

Sub

以上就是关于在VB里能插入音乐吗具体是怎么做的全部的内容，包括:在VB里能插入音乐吗具体是怎么做的、C语言中添加音乐的问题、c语言如何用mciSendString来实现音乐播放功能等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！