关于vb.netole拖放的信息

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb中ole用法

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

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

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

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

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

这样控制比较灵活一点。

相关问答

Q1: VB关于释放OLE里的文件

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

ole1.savetofile(1)

close #1

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

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

Q2: 怎样在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用途。

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