网页功能: 加入收藏 设为首页 网站搜索  
在vb程序中如何获取剪贴板中所复制的文件的路径
发表日期:2003-12-09作者:[] 出处:  

1. 在Form1上放一个CommandButton和一个ListBox控件。

2. 在Form1中贴入以下代码。它会在ListBox中列出您在Windows Explorer中Copy的文件名。

Option Explicit

Private Const CF_HDROP = 15

Private Type POINT

  x As Long

  y As Long

End Type

Private Type DROPFILES

  pFiles As Long

  pt As POINT

  fNC As Long

  fWide As Long

End Type

Private Declare Function GlobalSize Lib "kernel32" _

  (ByVal hMem As Long) As Long

Private Declare Function GlobalLock Lib "kernel32" _

  (ByVal hMem As Long) As Long

Private Declare Function GlobalUnlock Lib "kernel32" _

  (ByVal hMem As Long) As Long

Private Declare Function OpenClipboard Lib "user32" _

  (ByVal hwnd As Long) As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function GetClipboardData Lib "user32" _

  (ByVal wFormat As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

  (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub ShowFilesOnClipboard()

  Dim lHandle As Long

  Dim lpResults As Long

  Dim lRet As Long

  Dim df As DROPFILES

  Dim strDest As String

  Dim lBufferSize As Long

  Dim arBuffer() As Byte

  Dim vNames As Variant

  Dim i As Long

  If OpenClipboard(0) Then

   lHandle = GetClipboardData(CF_HDROP)

   ' If you don't find a CF_HDROP, you don't want to process anything

   If lHandle > 0 Then

     lpResults = GlobalLock(lHandle)

    

     lBufferSize = GlobalSize(lpResults)

     ReDim arBuffer(0 To lBufferSize)

    

     CopyMemory df, ByVal lpResults, Len(df)

     Call CopyMemory(arBuffer(0), ByVal lpResults + df.pFiles, _

             (lBufferSize - Len(df)))

     If df.fWide = 1 Then

      ' it is wide chars--unicode

      strDest = arBuffer

     Else

      strDest = StrConv(arBuffer, vbUnicode)

     End If

     GlobalUnlock lHandle

     vNames = Split(strDest, vbNullChar)

     i = 0

     While Len(vNames(i)) > 0

      List1.AddItem vNames(i)

      i = i + 1

     Wend

   End If

  End If

  CloseClipboard

End Sub

Private Sub Command1_Click()

  Call ShowFilesOnClipboard

End Sub

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 在vb程序中如何获取剪贴板中所复制的文件的路径
本类热点文章
  在VB中使用WMI获取系统硬件和软件有关信..
  将繁体中文字转化成简体中文
  获取CPU的ID
  在vb程序中如何获取剪贴板中所复制的文..
  更新桌面图片
  VB编程破解Windows屏幕保护密码
  让程序的鼠标支持滚轮
  用VB创建Windows快捷方式(无需DLL)
  用vb调用系统输入法
  用VB制作IE工具条自定义按钮
  修改显示器的刷新频率
  vb实现多线程
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00729