none
VB.NET将文档(不是内容),复制到剪贴板 RRS feed

  • 常规讨论

  • 版主你好

    小生在将LISTVIEW中的列表文档,复制到CLIPBOARD,按如下代码,可以在剪贴板查看器中看到地址,在资源管理器中也点亮了粘贴菜单,但是执行粘贴只会看到屏幕闪了下,却没有内容贴到资源管理器中,调试良久,亦未发现问题所在,不吝赐教

    贴上代码如下:

    Private Sub CopyToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CopyToolStripMenuItem.Click
            Dim sSelFiles(10) As String
            Dim nCt As Integer = 0

            If lvNcFiles.SelectedItems.Count > 0 Then
                For Each item As ListViewItem In lvNcFiles.SelectedItems
                      'sSelFiles(nCt) lV中的文件地址
                    sSelFiles(nCt) = sMySel & "\" & lbRev.SelectedItem & "\" & item.SubItems(1).Text
                    nCt = nCt + 1
                Next

                ClipBrd_CopyFiles(sSelFiles, True)
      

            Else
                MsgBox("Pls select some files to copy(cut)", vbOKOnly + vbInformation, "Not select files")
                Exit Sub
            End If
        End Sub

        Private Sub ClipBrd_CopyFiles(ByRef FileNames() As String, ByVal Copy As Boolean)
            Dim clpData As New DataObject(DataFormats.FileDrop, FileNames)
            Dim CopyInf() As Byte
            If Copy Then
                'copy
                CopyInf = {5, 0, 0, 0}
            Else
                'move
                CopyInf = {2, 0, 0, 0}
            End If
            'Clipboard.Clear()
            Dim CopyMemory As New IO.MemoryStream(CopyInf, False, CopyInf.Length)
            clpData.SetData("Preferred DropEffect", CopyMemory)
            Clipboard.SetDataObject(clpData)
           

        End Sub

    2017年7月21日 1:36

全部回复

  • 哈哈,无意中发现了问题所在,已经解决了
    2017年7月21日 2:13
  • Hi injoy.deng,

    很高兴你通过自己的努力解决了这个问题,请在这个帖子下面展示你的答案, 并且把自己的回复标记为答案, 这个将对其他遇到相同问题的社区成员有巨大的帮助。

    感谢你的理解与支持。

    Best Regards,

    Cherry


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    2017年7月21日 6:01
    版主