如何在VB中加載OCX文件

1、如何在VB中加載OCX文件可殲近來寫的不少文件都是用到系統(tǒng)的ocx文件，但是發(fā)現(xiàn)很多xp的精簡(jiǎn)系統(tǒng)中居然都沒有這些oex文件。搞得我的程序在許多人的機(jī)器上無法運(yùn)行，這樣我就找到如下的方法來解決這個(gè)問題。即：在exe文件中將ocx作為資源文件，外部有則不理，外部沒有則自動(dòng)生成。做法是，將第三方控件以自定義資源文件方式保存在程序中，程序運(yùn)行之后使用控件之前將所用到的控件生成到該程序目錄下，完成控件從可執(zhí)行文件中的金蟬脫殼。具體做法如下：第一步：將要用到的控件拷貝到當(dāng)前工程目錄下，右鍵單擊該控件，選擇屬性，記下文件大小。 注意，應(yīng)記下以字節(jié)為單位的具體數(shù)字，而不是多少K，以備編程使用。第二步：引用并

2、正常使用該控件。第三步：新建資源文件加入工程，在資源文件編輯器中添加所使用的第三方控件為自定義資源(CUSTOM )，資源號(hào)使用默認(rèn)的101。如果使用了多個(gè)控件則分別添加到資源文件的101、102資源項(xiàng)中，脫殼代碼也要作相應(yīng)的修改。第四步：編寫控件脫殼代碼，使其讀取資源文件的數(shù)據(jù)，在程序當(dāng)前目錄下生成控件。說一下如何加載資源吧：外接程序-> 外接程序管理器->VB 6 Resource Editor 加載-> 在工具欄里會(huì)多一個(gè)按鈕 點(diǎn)擊它。然后就如下面的圖，點(diǎn)擊紅色圓圈部分，就可以加載custom 資源了。¥B Resource Iditar - E ： 

3、5;B學(xué)牙中的工程'屏保程序'屏保程序.®代碼如下:Private Const OCXSIZE198456'欲生成的控件大小是 198456Byte, 名字為 MCI32.OCXSub Mai n()Dim Ocx() As Byte 'OCX 是個(gè) BTye 類型的數(shù)組Dim Counter As LongOcx = LoadResData(101, "CUSTOM")'將自定義資源中 101號(hào)資源讀入數(shù)組 OCX'注意，微軟的幫助中對(duì)加載自定義資源的說明有錯(cuò)誤，自定義資源標(biāo)識(shí)為"CUSTOM"

4、而不是幫助所說的數(shù)字10If Right(App.Path, 1) = "( $%$43%#ASD#2$#f$%A)" Then '讀取程序所在路徑，判斷是否為根目錄并分別處理'程序在根目錄下If Dir(App.Path& "MCI32.OCX") = "" Then '程序路徑下有無控件,無則生成控件'以二進(jìn)制方式寫(生成)控件( CoolToolBar.ocx )到主程序所在的目錄Ope n App.Path & "MCI32.OCX" For Bin ary

5、As #1For Counter= 0 To OCXSIZE - 1 '注意因?yàn)閺?0 Byte 開始因此以文件大小-1Byte 為 終值Put #1, Ocx(Counter)Next CounterClose #1End IfElse'程序不在根目錄下If Dir(App.Path & "MCI32.OCX") = "" Then '程序路徑下有無控件 , 無則生成控件' 以二進(jìn)制方式寫(生成)控件( CoolToolBar.ocx )到主程序所在的目錄Open App.Path & "MCI32.OCX" For Binary As #1For Counter = 0 To OCXSIZE - 1 ' 注意因?yàn)閺?0 Byte 開始因此以文件大小 - 1Byte 為 終值Put #1, , Ocx(Counter)Next CounterClose #1End IfEnd IfForm1.Visible = True ' 主程序所用控件已經(jīng)生成，顯示主窗體，進(jìn)入主程序。End Sub注意：將以上代碼作為一個(gè)模塊添加到工程中，并在工程 - 工程屬性設(shè)置中將啟動(dòng)對(duì)象選為 Sub Main, 即上面的脫殼代碼。然后編譯生成 EXE