【VB】如何让全窗体控件都能响应OLEDragDrop?

来源：百度知道 编辑：UC知道 时间：2024/09/22 10:38:20
在拖曳文件的过程中,我想让窗体中所有的控件都能响应OLEDragDrop,即只要把文件拖到窗体,不论放到哪个控件上,TEXT都能显示出文件的路径,请问应该怎样设置或写代码?不会是一个一个控件的编写OLEDragDrop过程吧?
望高手们帮忙解决一下,谢谢!

只能每个控件都写了，或者你用一个label放在顶层，设为透明，写在label的事件里，不过可能会档住按钮等控件

提供一个思路：
1、不管窗体上有多少控件，当你拖放文件时，都必须经过窗体。所以，只要在窗体的Form_DragOver()处进行监视即可。
2、当窗体监视到有文件拖过来时，可启动timer时间控件进行下一步的监视，当发现有鼠标按键松开的动作时，即可进行最终的处理。当然，鼠标按键松开的动作必须用API函数才能实现。