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

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

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

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

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

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

用Computer類里的Clipboard的幾個(gè)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)用并播放項(xiàng)目資源內(nèi)的WAV文件。

代碼是沒有錯(cuò)的，但是其中關(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)"