如何在vb中加背景音乐?

如何在vb中加背景音乐?,第1张

要写在exe里面,就把mp3文件当作资源插入资源文件好了

具体做法:

1。工具栏-》外接程序-》外接程序管理器-》加载

VB资源管理器

2。点击工具栏上的VB资源管理器

3。点击“添加自定义资源”,选择你要加载的mp3

这时你就看到mp3文件已经被作为资源载入了VB,引用这个资源的方法是使用函数

LoadRes(对象引用名)

程序最后写完编译的时候,VB会自动把mp3文件也写入exe文件中。

试试看吧,祝你好运

是用windowmediaplayer空间

在工程——部件里面找到

应该在最下面

方法使用

windowmediaplayer1.url="e:\mp3\1.mp3"

放到form_load事件里面

拖进一个Windows

Media

Player控件,

设置其Visible属性为False

然后在Form_Load中用Windows

Media

Player加载你的背景音乐播放就OK了.

使用资源文件,可以直接在在EXE文件中播放声音文件(WAV文件),使程序显得更加专业。

⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

⑵在 VB 资源编辑器窗口中,点击“添加自定义资料”,增加任意的 WAV 文件,再双击刚刚创建的自定义资源,d出”编辑属性”窗口,定义如下:

类型: "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 文件的声音了。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11831452.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-19
下一篇 2023-05-19

发表评论

登录后才能评论

评论列表(0条)

保存