• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

采用api实现的文件拖放

　　
　　借助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三个函数的作用分别是：把某个窗口设置为接收拖放的容器、返回拖放的文件的数量和信息、终止拖放。

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范