VB.Net读取音频文件并复制到剪贴板的代码

乐博网lob.cn提示：此代码运行环境为vb.net2008

Public Class Form1
    '读取音频文件并复制到剪贴板
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim MyData As Byte()
            MyData = My.Computer.FileSystem.ReadAllBytes("WindowsXP.wav")
            My.Computer.Clipboard.SetAudio(MyData)
            MessageBox.Show("已经成功将音频数据复制到剪贴板！", "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("将音频数据复制到剪贴板出现错误，请检查音频文件是否已经存在？", "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    '粘贴剪贴板音频数据并播放
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim MyData As Object
            MyData = My.Computer.Clipboard.GetData(DataFormats.WaveAudio)
            My.Computer.Audio.Play(MyData, AudioPlayMode.Background)
        Catch ex As Exception
            MessageBox.Show("剪贴板上不存在指定的音频数据！", "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    '清空剪贴板上的音频数据
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Clipboard.Clear()
    End Sub
End Class