如何实现把文件拖动到VB程序的窗口或者图标上来获得文件名呢?急问。

oshin 2004-07-26 07:59:09
就如同通过向记事本窗口拖动文本文件,来打开这个文本文件一样?该从何入手?谢谢!
...全文
464 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
oshin 2004-07-27
  • 打赏
  • 举报
回复
Thanx very much!it is really helpful!thank you again!
hhjjhjhj 2004-07-26
  • 打赏
  • 举报
回复
Form好象不行,Picturebox可以
Private Sub Form_Load()
Picture1.OLEDropMode = 1
End Sub

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each fl In Data.Files
s = s & fl & Chr(10)
Next
MsgBox s
End Sub
online 2004-07-26
  • 打赏
  • 举报
回复
http://www.sijiqing.com/vbgood/experience/index.asp?action=read&id=2913

本文将介绍怎样在你的VB5应用程序中使用OLEDRAGDROP 事件从WINDOWS EXPLORER拖放文件。以往的做法
要仔细区分和捕捉事件的特定消息,而VB5则通过OLEDRAGDROP事件提供了非常相似的功能。

操作步骤
1、建立一个新工程项目,缺省建立窗体FORM1
2、添加一个列表控件(LIST1)到窗体FORM1
3、设置LIST1的OLEDROPMODE属性=1 -手动
4、粘贴下面的代码到LIST1的OLEDRAGDROP事件:
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ThisFile As Variant

For Each ThisFile In Data.Files
List1.AddItem ThisFile
Next
End Sub
5、保存工程项目
6、运行程序。从WINDOWS EXPLORER选择一组文件,然后拖放到列表框中。被选择的文件包括其所在的全路径
被添加到列表框中。
这个功能还有许多其他的用途。RABIT软件公司的SPRITE ANIMATOR使用这个事件获取拖放到应用中的图象。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧