锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net获取剪贴板 vba剪贴板粘贴代码( 二 )

IT技术数据


注意，Clipboard 对象为所有 Windows 应用程序所共享，因此，当切换到另一个应用程序时，其内容可能会被更改 。
Clipboard 对象可以包含许多数据片段 ， 只要每个片段都有不同的格式 。例如，可以用 SetData 方法将一个具有 vbCFDIB 格式的位图放到的 Clipboard 上 ， 然后用 SetText 方法将具有 vbCFText 格式的文本放到 Clipboard 上 。然后就可用 GetText 方法获取文本或用 GetData 方法获取图形了 。不论是通过代码还是菜单命令，只要把具有同样格式的另一个数据集合放到 Clipboard 上去，Clipboard 上的数据就会丢失 。
VB 复制文件到剪切板VB6.0只能复制一个 ， 例如把文件 "D:\aaaa.xml" 复制到剪贴板 。
XP系统可用的代码：
CreateObject("Shell.Application").NameSpace("D:").ParseName("aaaa.xml").InvokeVerb "复制(C)"
XP和win7都能用的代码：
For Each v In CreateObject("Shell.Application").NameSpace("D:").ParseName("aaaa.xml").Verbs
If v.Name = "复制(C)" Then v.DoIt
Next
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 = https://www.04ip.com/post/My.Computer.FileSystem.ReadAllBytes("WindowsXP.wav")
My.Computer.Clipboard.SetAudio(MyData)
MessageBox.Show("已经成功将音频数据VB.Net复制到剪贴板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 = https://www.04ip.com/post/My.Computer.Clipboard.GetData(DataFormats.WaveAudio)
My.Computer.Audio.Play(MyData, AudioPlayMode.Background)
Catch ex As Exception
MessageBox.Show("剪贴板上不存在指定vb.net获取剪贴板的音频数据！", "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将指定文本文件复制到剪贴板复制到剪切板vb.net获取剪贴板的主要代码vb.net获取剪贴板：
Clipboard.SetText str
示例（示例文件1.txt）：
Open "c:\1.txt" For Input As #1
Clipboard.Clear
Clipboard.SetText Input(LOF(1), 1)
Close #1
其中的
Clipboard.Clear
表示清空剪切板（推荐清空一次）
如果是使用相对路径的vb.net获取剪贴板，"c:\1.txt"改为
App.Path"\1.txt"
读取剪切板主要代码：
s = Clipboard.GetText()
vb.net获取剪贴板的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vba剪贴板粘贴代码、vb.net获取剪贴板的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：qq的小程序通知怎么关，小程序通知在哪里关闭

下一篇：团队竞技游戏白小白是谁，白小白游戏指南