foxpro向表单拖放文件,文件路径及名称显示到列表框中(十三豆老师文章)

向表单拖放文件,文件路径及名称显示到列表框中(网络蛀虫)
*—–我是华丽的分割线————-
By:dkfdtf
之前用API实现过,不过这个更简单,利于VFP本身的功能即可。

如:在一个表单上加一个List列表框控件
1. 设置此列表框的 OLEDropMode=1 &&注意设置的属性
2. 在列表框的
OLEDragOver 事件中写代码: &&注意应用的方法名称
Lparameters oDataObject,nEffect,nButton,nShift,nXCoord,nYCoord,nState
If nState=0 And oDataObject.GetFormat(15)
    This.OLEDropHasData=1
Endif
3. 在列表框的 OLEDragDrop 事件中写加文件项目的代码:&&注意应用的方法名称
Lparameters oDataObject,nEffect,nButton,nShift,nXCoord,nYCoord
Local laFiles(1)
oDataObject.
GetData(15,@laFiles)

 foxpro-darg-file-name


foxpro-darg-file-name


For m.lnI=1 To Alen(laFiles)
    This.AddItem(laFiles(m.lnI))
Endfor

运行时拖文件(1个或多个)入表单的列表框中,因为代码是写在列表框的 OLEDrag… 事件中的。
如果要在拖入表单并释放后加入列表框,只需将对列表框的设置改写到表单的对应属性和事件中即可。

 

 foxpro-darg-file-name


foxpro-darg-file-name

 

 » 本站地址:http://www.gomoth.com

标签: