VB.NET复制读取音频文件到剪贴板小技巧

经过长时间学习VB.NET，对于VB.NET复制大家都很了解，在这里和大家分享一下VB.NET复制读取音频文件到剪贴板的小技巧，希望大家有所收获。

目前创新互联已为1000+的企业提供了网站建设、域名、网站空间、网站托管维护、企业网站设计、东丽网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

 
 
 

  
  
  
Public Class Form1  
  
  
  
'VB.Net复制读取音频文件并复制到剪贴板  
  
  
  
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("已经成功将音频数据VB.Net复制到剪贴板！", "51cto提示", MessageBoxButtons.OK, MessageBoxIcon.Information)  
  
  
  
Catch ex As Exception  
  
  
  
MessageBox.Show("将音频数据复制到剪贴板出现错误，请检查音频文件是否已经存在？", "51cto提示", 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  
  
  
  
MyMyData = My.Computer.Clipboard.GetData(DataFormats.WaveAudio)  
  
  
  
My.Computer.Audio.Play(MyData, AudioPlayMode.Background)  
  
  
  
Catch ex As Exception  
  
  
  
MessageBox.Show("剪贴板上不存在指定的音频数据！", "51cto提示", 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  
 
 
 

怎么样，VB.NET复制很简单吧，动手试试！

本文名称：VB.NET复制读取音频文件到剪贴板小技巧
本文地址：http://www.shufengxianlan.com/qtweb/news47/534147.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联