VB 如何拖动 Picture1上的图片到外部已打开的文件夹中？

来源：百度知道 编辑：UC知道 时间：2024/05/15 11:09:37
VB 如何拖动 Picture1上图片到外部一个已打开的文件夹中？ 已知Picture1的图片路径为"C:\1.bmp" 请问 如何知道鼠标拖动结束时 外部已打开的那个文件夹的路径 以便复制文件到这个文件夹中？ 我会用Picture1的OLEDragDrop方法 获取外部图片的路径 将外部图片拖入 可是就是不会拖出。请高手指教哦！谢谢！我QQ271072330 先谢了哦！
ljl88900 - 进士出身 九级 桌面的那个文件夹和其它别的文件夹都能获取了， 可是"我的文档"文件夹 又识别不出来了 还得麻烦大侠再给改一下哦 别的文件夹都行 就是"我的文档"文件夹不行!再给改一下好吗？谢谢哦！ 再加25分~

'根据你的建议，重新作了修改,解决"我的文档"无法显示的问题"。
'分二步：
'一、新建一个模块，复制下面代码到模块中
Option Explicit
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function SendMessageByNum Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessageByString Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long,