vb.net剪切wav vba讀取剪切板中的內(nèi)容

vb.net 2008 我想用代碼復(fù)制一個文件到剪貼板。 用戶然后在QQ對話框中右擊粘貼就可直接發(fā)送。 代碼怎么寫

復(fù)制什么文件呢？

公司主營業(yè)務(wù)：網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出聶榮免費(fèi)做網(wǎng)站回饋大家。

給你舉個例子：復(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

完善一下答案，現(xiàn)在所謂的復(fù)制粘貼文件操作，只是復(fù)制文件的地址，然后copy到指定地址，你要做的就是把文件的地址復(fù)制到剪貼板就好。所謂的剪切，也就是copy后多了一個delete功能。大同小異。

VB.NET如何獲取剪切板里面的內(nèi)容

用Computer類里的Clipboard的幾個Get函數(shù)

如獲取剪貼板里的文本

Dim c As New Microsoft.VisualBasic.Devices.Computer

MsgBox(c.Clipboard.GetText())

可以直接用My 里的

MsgBox(My.Computer.Clipboard.GetText())

獲取圖片

Me.BackgroundImage = My.Computer.Clipboard.GetImage()

在獲取前確定剪貼板里有沒有文本

If My.Computer.Clipboard.ContainsText Then

MsgBox(My.Computer.Clipboard.GetText)

End If

設(shè)置剪貼板里的文本

My.Computer.Clipboard.SetText(Now)

VB.NET如何調(diào)用并播放項目資源內(nèi)的WAV文件。

代碼是沒有錯的，但是其中關(guān)鍵是聲音文件資源定義字串必須使用根命名空間，不能用程序集名稱；還有就是聲音文件必須選屬性為嵌入資源。

My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)

VB.NET怎么復(fù)制文件到剪切板，不是復(fù)制文件內(nèi)容！

例如，把文件"E:\新建文件夾\a.txt"復(fù)制到剪貼板

CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復(fù)制(C)"

新聞標(biāo)題：vb.net剪切wav vba讀取剪切板中的內(nèi)容
轉(zhuǎn)載來于：http://muchs.cn/article42/dohopec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動態(tài)網(wǎng)站、網(wǎng)站建設(shè)、小程序開發(fā)、App開發(fā)、商城網(wǎng)站、網(wǎng)站設(shè)計公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)