VFP拖放操作编程.doc

示例演示
执行该示例的步骤如下。
①打开“任务窗格管理器”窗口,依次单击“控件”→“列表框”→“Treeview/列表框拖放”,打开图4-。表单中左边的两个列表演示了在ActiveX控件Treeview之间的拖放实现方法,右边两个列表演示的是在Visual FoxPro列表框控件之间通过OLE模式实现拖放的方法。
②在OLE拖放操作中,可以选择复制或移动数据。要移动数据,可以直接按住鼠标左键,拖动数据到放落目标上即可;要复制数据,需要按住鼠标左键的同时按住Ctrl键,拖动数据到放落目标上即可,此时鼠标指针下方将出现一个“+”形状。图4-43所示是移动拖放和复制拖放时鼠标指针的形状。
③如果按住鼠标右键拖放数据到放落目标,则显示一个快捷菜单,询问是复制数据还是移动数据,如图4-44所示。
图4-42
图4-43 拖放操作
图4-44 按住鼠标右键拖放数据
OLE拖放模式
Visual FoxPro支持控件的两种OLE拖放模式:固有模式和人工模式。在固有模式中,由Visual FoxPro处理OLE拖放操作;而在人工模式中,可通过编程来处理OLE拖放操作。

固有OLE拖放模式可以提供标准的OLE拖放支持,而无须另外编程。要使用固有OLE拖放支持,需要将拖动源控件的OLEDragMode属性设置为1(自动),并将放落目标控件的OLEDropMode属性设置为1(启用)。
对于固有OLE拖放操作,Visual FoxPro确定放落目标是否支持将要放落在上面的数据格式。如果放落目标支持该格式,则可以放落,否则不允许放落。
表4-17列出了在固有模式下可以作为拖动源的Visual FoxPro控件及所支持的数据格式。其中的CF_TEXT是文本,就像在文本框中输入的文本,而CFSTR_VFPSOURCEOBJECT
是对Visual FoxPro控件或对象的引用。对于支持CF_TEXT数据格式的控件,可以从控件的文本部分拖动文本。
表4-17                                                                      拖动源的数据格式
控件
数据格式()
容器、图像、线条、页框和形状
CFSTR_VFPSOURCEOBJECT
命令按钮和标签
CFSTR_VFPSOURCEOBJECT和CF_TEXT
复选框、组合框、编辑框、列表框、微调控件和文本框
CFSTR_VFPSOURCEOBJECT、CF_TEXT和CFSTR_OLEVARIANT
表4-18列出了在固有模式中可以作为放落目标的Visual FoxPro控件及所支持的数据格式。对于下表中列出的控件,可以向控件的文本部分放落文本,文本将在插入点插入。
表4-18                                                                    放落目标的数据格式
控件
数据格式
编辑框和组合框(当组合框的Style属性设置为0-下拉组合框)
CF_TEXT
微调控件和文本框
CFSTR_OLEVARIANT

有时,可能需要控制放落目标上能够放落的数据类型,或者需要为拖放操作提供附加功能。如将数据转换成放落目标所支持的格式,或者显示一个对话框,询问用户是否确认将数据放落到目标上等。在这些情况下,就需要使用人工方式处理拖放操作,来提供更好的功能控制。
为了实现对控件的人工OLE拖放支持,需要编写事件或方法程序的代码,来覆盖需要进行控制的拖放事件或方法程序。在事件或方法程序代码中包含NODEFAULT关键字,可以覆盖固有的Visual FoxPro拖放行为。
DataObject对象
DataObject对象为控件提供了编程方式的OLE拖放支持。DataObject对象是一个数据容器,该容器内的数据从OLE拖动源转移到OLE放落目标,并且该对象只在OLE拖放操作过程中存在,而不能通过编程来创建DataObject对象,当OLE拖放操作结束后,对它的引用将无效。在OLEStartDrag、OLEDragOver、OLEDragDrop和OLESetData事件中,DataObject通过oDataObject参数进行传递。
DataObject可以保存多组数据,每组数据可以有不同的格式。可使用GetFormat方法确定DataObject中数据存在的格式。
使用DataObject对象的方法程序可以通过编程来管理拖放的数据,下面