VB中如何插入音乐

工程→控件→windowsmediaplayer

引用后左边控件列表中会多出一个东西，点它，在屏幕上画个框，mediaplayer就到屏幕上啦

接下来，制作文件打开工具

放置

drive1

dir1

file1

三个控件。把file1的pattern属性设为*.wma

然后写入如下代码

private

sub

dir1_change()

file1.path

=

dir1.path

end

sub

private

sub

drive1_change()

dir1.path

=

drive1.drive

end

sub

private

sub

file1_click()

windowsmediaplayer1.url

=

file1.path

&

"\"

&

file1.filename

end

sub

url是文件的路径，你也可以抛弃那三个控件，直接指定一个文件

至于视频嘛，也一样，可以放一个command1

caption属性设为"视频"

private

sub

command1_click()

file1.pattern="*.avi"

end

sub

为了能改回来，放一个command2

caption属性设为"音频"

private

sub

command2_click()

file1.pattern="*.wma"

end

sub

附加：全屏法：

放一个command3

caption属性设为"全屏"

private

sub

command3_click()

windowsmediaplayer1.fullscreen

end

sub

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

具体做法:

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

VB资源管理器

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

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

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

LoadRes(对象引用名）

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

试试看吧，祝你好运

1、vb6中有一个多媒体播放控件，Multimedia MCI(MMControl)，利用这个控件能够实现媒体文件的播放，暂停，下一首，上一首等功能。但该控件播放的媒体文件格式只能是 (*.MDI,*.Wav,*.Avi)

所以不知道你用的媒体文件格式？

2、VB6中也可以增加Windows Media Player 控件来实现音乐的播放。

---