vb.net剪切wav vba读取剪切板中的内容

vb.net 2008 我想用代码复制一个文件到剪贴板。 用户然后在QQ对话框中右击粘贴就可直接发送。 代码怎么写

复制什么文件呢？

公司主营业务：网站建设、成都网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出聂荣免费做网站回馈大家。

给你举个例子：复制音频文件

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

完善一下答案，现在所谓的复制粘贴文件操作，只是复制文件的地址，然后copy到指定地址，你要做的就是把文件的地址复制到剪贴板就好。所谓的剪切，也就是copy后多了一个delete功能。大同小异。

VB.NET如何获取剪切板里面的内容

用Computer类里的Clipboard的几个Get函数

如获取剪贴板里的文本

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

设置剪贴板里的文本

My.Computer.Clipboard.SetText(Now)

VB.NET如何调用并播放项目资源内的WAV文件。

代码是没有错的，但是其中关键是声音文件资源定义字串必须使用根命名空间，不能用程序集名称；还有就是声音文件必须选属性为嵌入资源。

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

VB.NET怎么复制文件到剪切板，不是复制文件内容！

例如，把文件"E:\新建文件夹\a.txt"复制到剪贴板

CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"