在Visual Basic程序上播放歌曲？

Question

我目前正在开展一个项目以及我需要在程序后台添加音乐的其中一个因素。除音乐不播放外，一切正常。

我添加了命令My.Computer.Audio.Play（“Path of File”，AudioPlayMode.WaitToComplete“）

我也尝试过将.wav / .mp3添加到项目资源然后使用My.Computer.Audio.Play（My.Resources.musicfile，AudioPlayMode.WaitToComplete“）

的变体。

最后，这些两者都不起作用？是否有另一种方法将音乐添加到我的Visual Basic程序。 （我在Microsoft Visual Studio中使用Visual Basics表单。）

This is what is in my Debug\Soundtrack\mmusic.mp3

Answer 1

据我所知，My.Computer.Audio.Play("Path of File", AudioPlayMode.WaitToComplete")不允许您播放除 .wav

之外的任何其他音频格式

您可以使用提供的MediaPlayer播放 .mp3

<小时/> 请按照以下步骤操作：

1. 转到项目菜单
2. 点击添加参考...
3. 转到 COM 标签
4. 从列表中选择 Windows Media Player（wmp.dll）
5. 点击确定

现在编码部分：

您需要导入WMPLib

添加以下行：

Imports WMPLib

然后是form_load

 'add a media player
    Dim Player As WindowsMediaPlayer = New WindowsMediaPlayer
    'assign the location of the song to be played
    Dim SongLocation = "D:\Music\Single\Skrillex 2 Hours HQ Longest On Youtube).mp3" 'any song you want to play
    'play the song
    Player.URL = SongLocation
    Player.controls.play()

就是这样，当你加载表单时，歌曲会自动播放。希望它能帮到你:)。

<小时/> 的修改 请按照以下步骤操作：
1. 转到您的歌曲所在的文件夹（“mmusic.mp3”＆lt; - 此文件）
2. 复制歌曲
3. 转到调试文件夹。 这是我的调试文件夹的位置：

  

F：\ Visual Studios 2010 \ Projects \ stackoverflow \ stackoverflow \ bin \ Debug

1. 将歌曲粘贴到调试文件夹中。

现在将您的代码更改为：

Imports System.IO
Imports WMPLib 

Public Class Launcher 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim Player As WindowsMediaPlayer = New WindowsMediaPlayer 
        Dim SongLocation = Path.Combine(Application.StartupPath,"mmusic.mp3")
        Player.URL = SongLocation
        Player.controls.play()
    End Sub
End Class