關(guān)于vb.netole拖放的信息

vb中ole用法

用RichTextBox比較好,可以直接打開RTF格式的文件，可以表格，該控件你的機子里肯定有，你選擇 工程菜單--部件,找到microsoft Rich TextBox Control就行了。

成都創(chuàng)新互聯(lián)于2013年成立，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項目成都網(wǎng)站設(shè)計、網(wǎng)站制作網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元玉山做網(wǎng)站,已為上家服務(wù),為玉山各地企業(yè)和個人服務(wù),聯(lián)系電話:18982081108

用OLE也行，能夠適應(yīng)的格式相對較多，

先在FORM上放一個OLE控件，在彈出的插入對話框選擇取消

然后通過下面的代碼打開文件

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

這樣控制比較靈活一點。

VB關(guān)于釋放OLE里的文件

open 要釋放進(jìn)去的文件 for binary as #1

ole1.savetofile(1)

close #1

這對大多數(shù)文件都行，但一些二進(jìn)制文件（圖像聲音就無能為力了?。?/p>

推薦使用資源文件，釋放他是很簡單的！

怎樣在VB中使用OLEDRAGDROP 事件從Windows Explorer中拖放文件

電腦知識網(wǎng)導(dǎo)讀：添加一個列表控件（LIST1）到窗體FORM1 3、設(shè)置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、設(shè)置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

是當(dāng)前程序的標(biāo)題

OLE

VB的核心是對對象的鏈接與嵌入（簡稱OLE）的支持，利用OLE．VB能夠開發(fā)集聲音．圖象．動畫．字處理．WED等對象與一體的應(yīng)用程序．

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

·CreateEmbed：創(chuàng)建嵌入式的OLE對象；

·CreateLink：創(chuàng)建鏈接式OLE對象。

文章標(biāo)題：關(guān)于vb.netole拖放的信息
URL分享：http://muchs.cn/article36/hcgipg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供靜態(tài)網(wǎng)站、網(wǎng)站導(dǎo)航、App設(shè)計、電子商務(wù)、網(wǎng)站收錄、網(wǎng)站策劃

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)