锐客网

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

包含vb.net实现剪切文件的词条

IT技术设为

编程vb.net clipboard 剪切复制粘贴Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Clipboard.SetDataObject(TextBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)
End Sub
VB 怎么复制文件至剪切板？楼主的代码看起来像是vbs，仔细调阅了很多资料，在vbs中无法实现复制文件到剪切板的功能 。不过在vb6中是可以实现的，需要依靠一些api函数来完成工作 。
建立一个按钮Command1，以下范例是将"C:\a.txt"复制到剪切板，要测试请先建立这个文件 。
Option Explicit
Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Const GMEM_MOVEABLE = H2
Private Const GMEM_ZEROINIT = H40
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Const CF_HDROP = HF
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type POINTAPI
XAs Long
YAs Long
End Type
Private Type DROPFILES
pFilesAs Long
pTAs POINTAPI
fNCAs Long
fWideAs Long
End Type
Private Sub Command1_Click()
Dim FileNameAs String
FileName = "C:\a.txt"
If Dir(FileName) = "" Then Exit Sub
FileName = FileNamevbNullCharvbNullChar
Call FileToClipboard(FileName)
End Sub
Private Sub FileToClipboard(ByVal FileName As String)
Dim dFilesAs DROPFILES
Dim hMemAs Long, MemPtrAs Long, Len1 As Long, Len2 As Long
If OpenClipboard(Me.hWnd) = 0 Then Exit Sub
Call EmptyClipboard
Len1 = Len(dFiles)
Len2 = LenB(StrConv(FileName, vbFromUnicode))
hMem = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len1 + Len2)
【包含vb.net实现剪切文件的词条】MemPtr = GlobalLock(hMem)
dFiles.pFiles = Len1
Call CopyMemory(ByVal MemPtr, dFiles, Len1)
Call CopyMemory(ByVal (MemPtr + Len1), ByVal FileName, Len2)
Call GlobalUnlock(hMem)
Call SetClipboardData(CF_HDROP, hMem)
Call CloseClipboard
End Sub
VB.net 剪切板的操作复制文件夹不用剪贴板，使用系统文件操作对象就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
VB.NET怎么复制文件到剪切板，不是复制文件内容！例如，把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"
vb.net实现剪切文件的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于、vb.net实现剪切文件的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：gis网络分析与路径分析，gis网络分析求解无路径

    下一篇：微信直播间回看，微信直播间回看怎么看