Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/visual-studio/8.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 在Visual Basic程序上播放歌曲?_Vb.net_Visual Studio_Audio - Fatal编程技术网

Vb.net 在Visual Basic程序上播放歌曲?

Vb.net 在Visual Basic程序上播放歌曲?,vb.net,visual-studio,audio,Vb.net,Visual Studio,Audio,我目前正在做一个项目,其中一个因素是我需要在节目背景中添加音乐。除了音乐不能播放外,一切正常 我添加了命令My.Computer.Audio.Play(“文件路径”,AudioPlayMode.WaitToComplete”) 我还尝试过将.wav/.mp3添加到项目资源中,然后使用My.Computer.Audio.Play(My.resources.musicfile,AudioPlayMode.WaitToComplete) 最后,这些都不起作用?是否有其他方法将音乐添加到我的Visual

我目前正在做一个项目,其中一个因素是我需要在节目背景中添加音乐。除了音乐不能播放外,一切正常

我添加了命令My.Computer.Audio.Play(“文件路径”,AudioPlayMode.WaitToComplete”)

我还尝试过将.wav/.mp3添加到项目资源中,然后使用My.Computer.Audio.Play(My.resources.musicfile,AudioPlayMode.WaitToComplete)

最后,这些都不起作用?是否有其他方法将音乐添加到我的Visual Basic程序中。(我正在使用Microsoft Visual Studio中的Visual Basic窗体。)


据我所知,
My.Computer.Audio.Play(“文件路径”,AudioPlayMode.WaitToComplete”)
不允许您播放除.wav以外的任何其他音频格式

您可以使用提供的
MediaPlayer
播放.mp3
遵循以下步骤:

  • 转到项目菜单
  • 单击添加参考…
  • 转到COM选项卡
  • 从列表中选择Windows Media Player(wmp.dll)
  • 单击确定

  • 现在,编码部分:

    您需要导入
    WMPLib

    添加此行:

    Imports WMPLib
    
    然后,在
    表单上加载

     '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()
    
    就是这样,当你加载表单时,歌曲会自动播放。希望它能帮助你:)


    编辑
    遵循以下步骤:


  • 转到您的歌曲所在的文件夹(“mmusic.mp3”我会看看我能做些什么使用
    My.Computer.Audio.Play()
    函数,声音必须是
    .wav
    扩展名。如果您阅读下面的评论部分,我已经找到了答案;)
    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