| « | August 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | | | | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:431992
建立时间:2005年5月12日 |
| |
|
 [VFP与SQL]向表单拖放文件,文件路径及名称显示到列表框中(转)
文章收藏, 网上资源, 软件技术
老瓷 发表于 2009/8/28 23:24:47 |
| 向表单拖放文件,文件路径及名称显示到列表框中（十豆三） *------------------------------------------ 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) For m.lnI=1 To Alen(laFiles) This.AddItem(laFiles(m.lnI)) Endfor 运行时拖文件（1个或多个）入表单的列表框中，因为代码是写在列表框的 OLEDrag... 事件中的。 如果要在拖入表单并释放后加入列表框，只需将对列表框的设置改写到表单的对应属性和事件中即可。
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/apple_8180/archive/2008/12/22/3583601.aspx |
|
|