用vb做了一个小程序,里面有windowsmediaplayer,若把程序发给别人的电脑,想让它播放某个音乐,该怎么设置

你可以内置音乐或者用CommonDialog来打开音乐文件

1.内置音乐代码：

先在“外接程序”菜单中打开“外接程序管理器”点击“vb6资源编辑器”选择“在启动中加载”和“加载/卸载”再确认

你就可以看到vb设计界面中多了一个窗口，在窗口的顶层按钮中有个叫做“添加自定义资源的按钮”（倒数第二个），点击它，将你的音乐添加进去

然后用代码调用：

Private Sub Command1_Click()

'生成临时文件

Dim TempData()As Byte

TempDataPath = "D:\Music.wav"

TempData = LoadResData(101 , "CUSTOM") '101是文件标号，CUSTOM是文件夹名称

Open TempDataPath For Binary Access Write As #1

Put #1, , TempData

Close #1

'播放音乐

WindowsMediaPlayer1.URL = TempDataPath

End Sub

Private Form_Unload(Cancel As Integer)

Kill "D:\Music.wav" '删除临时文件（这里的路径必须和前面的临时文件路径相同，否则会报错）

End Sub

2.用CommonDialog打开音乐：

首先在“工程”>“部件”中添加“Microsoft Common Dialog Control 6.0”

Private Sub Command1_Click()

CommonDialog1.DialogTitle = "打开一个音乐文件"

CommonDialog1.Filter = "Music Medias(*.mp3)|*.mp3|Music Medias(*.wav)|*.wav"

CommonDialog1.ShowOpen

WindowsMediaPlayer1.URL = CommonDialog1.FileName

End Sub

以上是两种方法，望采纳。

可以看看这个简单的音乐播放器，里面有全部的代码。望采纳！