Question

在vb中的Private Sub Form_Load()中编译时说变量未定义，是怎么回事，里面是windows mediaplayer的，详情见

Private Sub Form_Load()
Dim strMusic(3) As String '字符串数组，存放4首歌的URL
Dim cMedia As IWMPMedia 'Wmp媒体变量，其实就是string
Dim i As Integer '循环变量
'4首歌的URL赋初值
strMusic(0) = VB.App.Path & "\Law of the Lord.mp3"
strMusic(1) = VB.App.Path & "\轻音乐 - 是忧伤还是快乐.mp3"
strMusic(2) = VB.App.Path & "\Sea of Clarity 清澈海洋.mp3"
strMusic(3) = VB.App.Path & "\轻音乐 - 牧羊曲.mp3"
WindowsMediaPlayer1.settings.playCount = 10 '当前播放列表重复播放次数
For i = 0 To 3
'Wmp媒体变量赋值
Set cMedia = WindowsMediaPlayer1.newMedia(strMusic(i))
If WindowsMediaPlayer1.currentPlaylist.Count = 0 Then '当前播放列表为空时
WindowsMediaPlayer1.currentMedia = cMedia
Else '当前列表不为空时
WindowsMediaPlayer1.currentPlaylist.appendItem cMedia
End If
Next i
Set cMedia = Nothing
End Sub
做的是背景音乐，怎么回事，谢谢，工程引用什么，还可以怎么做？

Answer 1

只要在VB菜单→工程→部件
选择Windows Media Player 部件，或是
点击 [浏览] 按钮，选择一个在windows\system32\wmp.dll 的文件
选择后要暗 套用 ，然后退出把部件拉进去你的窗体里面，就可以播放了
你这个代码没问题，我试过了，我只修改了我自己的mp3文件，我这里就能听到音乐了

Answer 2

要注意：媒体控件，是否已正确加载。