关于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