采用API实现的文件拖放_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

采用API实现的文件拖放

作者：闵涛文章来源：闵涛的学习笔记点击数：834 更新时间：2009/4/23 14:59:13

　　借助API函数CallWindowProc,DragAcceptFiles,DragQueryFile,DragFinish同样可以实现文件从资源管理器EXPLORE到应用程序的拖放，另一种方法是采用OLE拖放，可以参照趣味编程栏目的相关内容。下面我们一起来看看程序编写的过程。

　　对于每个需要引用的API函数，我们需要先在程序中说明，如果只在某一窗体内声明并使用它，则把它声明为Private，而如果在模块中声明，且需要在整个工程内使用它，则需要把它声明为Public。

Public Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, ByVal hWnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&)
　　　Public Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd&, ByVal fAccept&)
　　　Public Declare Function DragQueryFile& Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop&, ByVal iFile&,ByVal lpszFile$, ByVal cch&)
　　　Public Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop&)
　　　Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hWnd&,ByVal nIndex&, ByVal dwNewLong&)　　　

　　SetWindowLong函数的作用是在窗口结构中为指定的窗口设置属性，利用它我们来改变窗口的属性参数，其中各个参数的意义如下表所示：

参数意义 hwnd Long，欲为其取得信息的窗口的句柄 nIndex Long，这里取GWL_WNDPROC，表示设置该窗口的窗口函数的地址 dwNewLong Long，由nIndex指定的窗口信息的新值返回值 Long，指定数据的前一个值
　　在默认状态下WINDOWS操作系统会指定一个窗口函数来接受和处理WINDOWS消息，而通过使用SetWindowLong函数改变窗口函数的地址使它指向我们自己写的一个函数WindowProc，这样WINDOWS消息就会转由WindowProc函数接收和处理。于是我们就能判断文件拖放的消息并进行处理。改变窗口属性的语句如下：

procOld = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc)　　

　　DragAcceptFiles、DragQueryFile、DragFinish三个函数的作用分别是：把某个窗口设置为接收拖放的容器、返回拖放的文件的数量和信息、终止拖放。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：半透明窗体(win2000特有API)

下一篇教程：从任务列表中隐藏按Ctrl+Alt+Del时也不会显示出来

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……