經(jīng)過長時間學(xué)習(xí)VB.NET，對于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)錯誤，請檢查音頻文件是否已經(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  

怎么樣，VB.NET復(fù)制很簡單吧，動手試試！

【編輯推薦】

1. WinRar對VB.NET文件壓縮技巧歸納總結(jié)
2. 快速使用VB.NET搜索程序?qū)嵗?/FONT>
3. 深入概括VB.NET運行環(huán)境
4. 深入介紹VB.NET類庫 SmartRWLocker技巧
5. 程序員必看VB.NET CASE語句拓展篇