本站首页    管理页面    写新日志    退出


«December 2019»
1234567
891011121314
15161718192021
22232425262728
293031


公告
暂无公告...

我的分类(专题)

日志更新

最新评论

留言板

链接


Blog信息
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:386144
建立时间: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


阅读全文(3124) | 回复(0) | 编辑 | 精华
 



发表评论:
昵称:
密码:
主页:
标题:
验证码:  (不区分大小写,请仔细填写,输错需重写评论内容!)



站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.015 second(s), page refreshed 144336493 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号