关于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对象。


分享文章:关于vb.netole拖放的信息
本文URL:http://ybzwz.com/article/hcgipg.html