日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
怎樣將OCX植入VB.NET執(zhí)行文件內(nèi)

在VB中怎么樣很好的使用第三方控件呢？在工作中我積累了許多經(jīng)驗(yàn)，這里我們來(lái)談?wù)勱P(guān)于第三方控件的理解，讓大家在以后的編程中更方便。但是使用第三方控件也有不好的地方，那就是為了保證程序正常運(yùn)行，必須使程序能夠在系統(tǒng)目錄或程序目錄下找到所用的第三方控件。要做到這一點(diǎn)通常有兩種辦法：一是把控件和程序制成一個(gè)壓縮包發(fā)行，這樣的缺點(diǎn)是有可能導(dǎo)致在程序傳播過(guò)程中丟失控件文件。二是制作安裝程序，缺點(diǎn)是制作過(guò)程煩瑣。而且上面兩種辦法也不符合綠色軟件的要求。所謂的綠色軟件是指軟件只有單個(gè)可執(zhí)行文件且無(wú)須安裝，目前很受用戶歡迎。那么有沒(méi)有辦法在使用了第三方控件的情況下實(shí)現(xiàn)綠色軟件夢(mèng)呢？答案是有。

#T#做法是，將第三方控件以自定義資源文件方式保存在程序中，程序運(yùn)行之后使用控件之前將所用到的控件生成到該程序目錄下，完成控件從VB.NET執(zhí)行文件中的金蟬脫殼。

VB.NET執(zhí)行文件具體做法如下：

第一步：將要用到的控件拷貝到當(dāng)前工程目錄下，右鍵單擊該控件，選擇屬性，記下文件大小。注意，應(yīng)記下以字節(jié)為單位的具體數(shù)字，而不是多少K，以備編程使用。

第二步：引用并正常使用該控件。

第三步：新建資源文件加入工程，在資源文件編輯器中添加所使用的第三方控件為自定義資源（CUSTOM），資源號(hào)使用默認(rèn)的101。如果使用了多個(gè)控件則分別添加到資源文件的101、102......資源項(xiàng)中，脫殼代碼也要作相應(yīng)的修改。

第四步：編寫(xiě)控件脫殼代碼，使其讀取資源文件的數(shù)據(jù)，在程序當(dāng)前目錄下生成控件。

代碼如下：

 
 
    
  
  
  1. Private Const OCXSIZE = 57344 '欲生成的控件大小是57344Byte,名字為CoolToolBar.ocx 
    2. 
  
  
  2. 
  
  
  3. Sub Main() 
    4. 
  
  
  4. Dim Ocx() As Byte 'OCX是個(gè)Btye類型的數(shù)組 
    5. 
  
  
  5. Dim Counter As Long 
    6. 
  
  
  6. Ocx = LoadResData(101, "CUSTOM") '將自定義資源中101號(hào)資源讀入數(shù)組OCX 
    7. 
  
  
  7. '注意，微軟的幫助中對(duì)加載自定義資源的說(shuō)明有錯(cuò)誤，自定義資源標(biāo)識(shí)為"CUSTOM"而不是幫助所說(shuō)的數(shù)字10 
    8. 
  
  
  8. 
  
  
  9. If Right(App.Path, 1) = "($%$43%^#ASD#2@$#f$%^) Then '讀取程序所在路徑,判斷是否為根目錄并分別處理 
    10. 
  
  
  10. '程序在根目錄下 
    11. 
  
  
  11. If Dir(App.Path & "CoolToolBar.ocx") = "" Then '程序路徑下有無(wú)控件,無(wú)則生成控件 
    12. 
  
  
  12. '以二進(jìn)制方式寫(xiě)（生成）控件（CoolToolBar.ocx）到主程序所在的目錄  
    13. 
  
  
  13. Open App.Path & "CoolToolBar.ocx" For Binary As #1  
    14. 
  
  
  14. For Counter = 0 To OCXSIZE - 1 '注意因?yàn)閺? Byte開(kāi)始因此以文件大小 - 1Byte 為終值 
    15. 
  
  
  15. Put #1, , Ocx(Counter) 
    16. 
  
  
  16. Next Counter 
    17. 
  
  
  17. Close #1 
    18. 
  
  
  18. End if  
    19. 
  
  
  19. Else 
    20. 
  
  
  20. '程序不在根目錄下 
    21. 
  
  
  21. If Dir(App.Path & "\CoolToolBar.ocx") = "" Then '程序路徑下有無(wú)控件,無(wú)則生成控件 
    22. 
  
  
  22. '以二進(jìn)制方式寫(xiě)（生成）控件（CoolToolBar.ocx）到主程序所在的目錄  
    23. 
  
  
  23. Open App.Path & "\CoolToolBar.ocx" For Binary As #1 
    24. 
  
  
  24. For Counter = 0 To OCXSIZE - 1 '注意因?yàn)閺? Byte開(kāi)始因此以文件大小 - 1Byte 為終值 
    25. 
  
  
  25. Put #1, , Ocx(Counter) 
    26. 
  
  
  26. Next Counter 
    27. 
  
  
  27. Close #1 
    28. 
  
  
  28. End if 
    29. 
  
  
  29. End if 
    30. 
  
  
  30. Form1.Visible = True '主程序所用控件已經(jīng)生成，顯示主窗體，進(jìn)入主程序。 
    31. 
  
  
  31. End Sub   
    32.

注意：將以上代碼作為一個(gè)模塊添加到工程中，并在工程-工程屬性設(shè)置中將啟動(dòng)對(duì)象選為Sub Main,即上面的脫殼代碼。然后編譯生成EXE文件，將該EXE文


當(dāng)前題目：怎樣將OCX植入VB.NET執(zhí)行文件內(nèi)
當(dāng)前路徑：http://m.5511xx.com/article/dhococp.html