就如同通过向记事本窗口拖动文本文件,来打开这个文本文件一样?该从何入手?谢谢!
解决方案 »
- vb怎么读取vbUnicode 编码的txt文件
- 关于Object 的使用问题
- 奇怪的group by,能解释么 ?
- 求助——有没有可以不用winsock控件实现通信的办法?
- 求助:如何将VB程序中得到的数据,存到一个数据库的一个表格中
- 怎样能够监测网络的流量
- 如何判断SQL触发器有没有回滚(在线等候)
- VB打包问题---急(在线等待)
- 公 布超星(ssreader)的阅读控件的设计时licence(pdg.lic)
- 号外!号外!TomorrowStar(明日之星)工作室成立啦!欢迎菜鸟们加入!高手们指点!
- 在ACCESS数据库中插入或删除或更新记录时,是否有像SQL SERVER或Oracle一样的事务提交回滚处理的功能?
- 报表打印的问题,请教各位
要仔细区分和捕捉事件的特定消息,而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使用这个事件获取拖放到应用中的图象。
Private Sub Form_Load()
Picture1.OLEDropMode = 1
End SubPrivate 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