日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET復(fù)制讀取音頻文件到剪貼板小技巧

經(jīng)過長(zhǎng)時(shí)間學(xué)習(xí)VB.NET，對(duì)于VB.NET復(fù)制大家都很了解，在這里和大家分享一下VB.NET復(fù)制讀取音頻文件到剪貼板的小技巧，希望大家有所收獲。

目前創(chuàng)新互聯(lián)已為1000+的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)站空間、網(wǎng)站托管維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、東麗網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

 
 
 
    
  
  
  
  1. Public Class Form1  
    2.   
  
  
  2. 'VB.Net復(fù)制讀取音頻文件并復(fù)制到剪貼板  
    3.   
  
  
  3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
    4.   
  
  
  4. Try  
    5.   
  
  
  5. Dim MyData As Byte()  
    6.   
  
  
  6. MyMyData = My.Computer.FileSystem.ReadAllBytes("WindowsXP.wav")  
    7.   
  
  
  7. My.Computer.Clipboard.SetAudio(MyData)  
    8.   
  
  
  8. MessageBox.Show("已經(jīng)成功將音頻數(shù)據(jù)VB.Net復(fù)制到剪貼板！", "51cto提示", MessageBoxButtons.OK, MessageBoxIcon.Information)  
    9.   
  
  
  9. Catch ex As Exception  
    10.   
  
  
  10. MessageBox.Show("將音頻數(shù)據(jù)復(fù)制到剪貼板出現(xiàn)錯(cuò)誤，請(qǐng)檢查音頻文件是否已經(jīng)存在？", "51cto提示", MessageBoxButtons.OK, MessageBoxIcon.Error)  
    11.   
  
  
  11. End Try  
    12.   
  
  
  12. End Sub  
    13.   
  
  
  13. '粘貼剪貼板音頻數(shù)據(jù)并播放  
    14.   
  
  
  14. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
    15.   
  
  
  15. Try  
    16.   
  
  
  16. Dim MyData As Object  
    17.   
  
  
  17. MyMyData = My.Computer.Clipboard.GetData(DataFormats.WaveAudio)  
    18.   
  
  
  18. My.Computer.Audio.Play(MyData, AudioPlayMode.Background)  
    19.   
  
  
  19. Catch ex As Exception  
    20.   
  
  
  20. MessageBox.Show("剪貼板上不存在指定的音頻數(shù)據(jù)！", "51cto提示", MessageBoxButtons.OK, MessageBoxIcon.Error)  
    21.   
  
  
  21. End Try  
    22.   
  
  
  22. End Sub  
    23.   
  
  
  23. '清空剪貼板上的音頻數(shù)據(jù)  
    24.   
  
  
  24. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
    25.   
  
  
  25. My.Computer.Clipboard.Clear()  
    26.   
  
  
  26. End Sub  
    27.   
  
  
  27. End Class  
    28.

怎么樣，VB.NET復(fù)制很簡(jiǎn)單吧，動(dòng)手試試！


名稱欄目：VB.NET復(fù)制讀取音頻文件到剪貼板小技巧
分享地址：http://www.5511xx.com/article/dpopdhs.html