vb.net拷贝剪贴板

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

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

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

VB.Net 复制Excel数据到剪贴板,然后粘贴到Listview1,最好提供代码,多谢！

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim Str As String = Clipboard.GetText '获取剪切板数据.

ListView1.View = View.Details

Dim Tit As Boolean = True

Dim Index As Integer = 0 '标题行的列数.

Try

For Each i In Str.Replace(vbLf, "").Split(vbCr)

If Tit Then '标题行

Tit = False

ListView1.Columns.Add(k)

Next

Else '非标题行.

For k = 1 To Index

ListView1.Items.Add(lv)

End If

Catch ex As Exception

End Try

End Sub

vb,net怎么实现拖拽文件到文本框和粘贴复制?

第二步,打开后,新建一个Windows窗体应用程序

第三步,新建完毕后,如图所示

第四步,拖动文本框与按钮,如图示

第五步,将剪贴板复制与粘贴代码输入,如图示

第六步,运行程序

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)?

Catch?ex?As?Exception?

End?Try?

End?Sub?

'粘贴剪贴板音频数据并播放?

Dim?MyData?As?Object?

MyMyData?=?My.Computer.Clipboard.GetData(DataFormats.WaveAudio)?

My.Computer.Audio.Play(MyData,?AudioPlayMode.Background)?

'清空剪贴板上的音频数据?

My.Computer.Clipboard.Clear()?

End?Class

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

VB 怎么复制文件至剪切板?

建立一个按钮Command1,以下范例是将"C:\a.txt"复制到剪切板,要测试请先建立这个文件.

Option Explicit

Private Const CF_HDROP = HF

Private Type POINTAPI

X As Long

Y As Long

End Type

Private Type DROPFILES

pFiles As Long

pT As POINTAPI

fNC As Long

fWide As Long

Private Sub Command1_Click()

Dim FileName As String

FileName = "C:\a.txt"

If Dir(FileName) = "" Then Exit Sub

FileName = FileName vbNullChar vbNullChar

Call FileToClipboard(FileName)

Private Sub FileToClipboard(ByVal FileName As String)

Dim dFiles As DROPFILES

If OpenClipboard(Me.hWnd) = 0 Then Exit Sub

Call EmptyClipboard

Len1 = Len(dFiles)

MemPtr = GlobalLock(hMem)

dFiles.pFiles = Len1

Call CopyMemory(ByVal MemPtr, dFiles, Len1)

Call GlobalUnlock(hMem)

Call SetClipboardData(CF_HDROP, hMem)

Call CloseClipboard

以上就是土嘎嘎小编为大家整理的vb.net拷贝剪贴板相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！