VB.NET如何復(fù)制讀取音頻文件到剪貼板

小編給大家分享一下VB.NET如何復(fù)制讀取音頻文件到剪貼板，希望大家閱讀完這篇文章之后都有所收獲，下面讓我們一起去探討吧！

示例代碼

Public Class Form1  'VB.Net復(fù)制讀取音頻文件并復(fù)制到剪貼板  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  Try  Dim MyData As Byte()  MyMyData = My.Computer.FileSystem.ReadAllBytes("WindowsXP.wav")  My.Computer.Clipboard.SetAudio(MyData)  MessageBox.Show("已經(jīng)成功將音頻數(shù)據(jù)VB.Net復(fù)制到剪貼板！", "51cto提示", MessageBoxButtons.OK, MessageBoxIcon.Information)  Catch ex As Exception  MessageBox.Show("將音頻數(shù)據(jù)復(fù)制到剪貼板出現(xiàn)錯(cuò)誤，請(qǐng)檢查音頻文件是否已經(jīng)存在？", "51cto提示", MessageBoxButtons.OK, MessageBoxIcon.Error)  End Try  End Sub  '粘貼剪貼板音頻數(shù)據(jù)并播放  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  Try  Dim MyData As Object  MyMyData = My.Computer.Clipboard.GetData(DataFormats.WaveAudio)  My.Computer.Audio.Play(MyData, AudioPlayMode.Background)  Catch ex As Exception  MessageBox.Show("剪貼板上不存在指定的音頻數(shù)據(jù)！", "51cto提示", MessageBoxButtons.OK, MessageBoxIcon.Error)  End Try  End Sub  '清空剪貼板上的音頻數(shù)據(jù)  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

看完了這篇文章，相信你對(duì)“VB.NET如何復(fù)制讀取音頻文件到剪貼板”有了一定的了解，如果想了解更多相關(guān)知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道，感謝各位的閱讀！