关于vb.netole拖放的信息

vb中ole用法

用RichTextBox比较好,可以直接打开RTF格式的文件，可以表格，该控件你的机子里肯定有，你选择 工程菜单--部件,找到microsoft Rich TextBox Control就行了。

成都创新互联于2013年成立，是专业互联网技术服务公司，拥有项目成都网站设计、网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元玉山做网站,已为上家服务,为玉山各地企业和个人服务,联系电话:18982081108

用OLE也行，能够适应的格式相对较多，

先在FORM上放一个OLE控件，在弹出的插入对话框选择取消

然后通过下面的代码打开文件

OLE1.CreateLink ("e:\test\1.doc")

这样控制比较灵活一点。

VB关于释放OLE里的文件

open 要释放进去的文件 for binary as #1

ole1.savetofile(1)

close #1

这对大多数文件都行，但一些二进制文件（图像声音就无能为力了！）

推荐使用资源文件，释放他是很简单的！

怎样在VB中使用OLEDRAGDROP 事件从Windows Explorer中拖放文件

电脑知识网导读：添加一个列表控件（LIST1）到窗体FORM1 3、设置LIST1dOLEDROPMODE属性=1 -手动 4、粘贴下面d代码到LIST1dOLEDRAGDROP事件： 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 ...

操作步骤1、建立一个新工程项目，缺省建立窗体FORM1

2、添加一个列表控件（LIST1）到窗体FORM1

3、设置LIST1dOLEDROPMODE属性=1 -手动

4、粘贴下面d代码到LIST1dOLEDRAGDROP事件：

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 ThisFileNextEnd Sub5、保存工程项目

6、运行程序。从WINDOWS EXPLORER选择一组文件，然后拖放到列表框中。被选择d文件包括其所在d全路径

被添加到列表框中。

这个功能还有许多其他d用途。

VB的App 对象和OLE的使用方法？

App.Path

"文件名"APP

会自动获取文件的路径名,app.title

是当前程序的标题

OLE

VB的核心是对对象的链接与嵌入（简称OLE）的支持，利用OLE．VB能够开发集声音．图象．动画．字处理．WED等对象与一体的应用程序．

VB中支持OLE的方法在程序中方便地建立链接式或嵌入式OLE对象，如可用方法：

·CreateEmbed：创建嵌入式的OLE对象；

·CreateLink：创建链接式OLE对象。