⑴ 如何讓VB調用外部的DLL
要聲明一個DLL過程，首先需要在代碼窗口的"通用（General）"部分增加一個Declare語句。如果該過程返回一個值，應將其聲明為
Function：
Declare Function publicname Lib "libname" [Alias "alias"] [([[ByVal] variable [As type] [,[ByVal] variable [As type]]...])] As Type
如果過程沒有返回值，可將其聲明為Sub：
Declare Sub publicname Lib "libname" [Alias "alias"] [([[ByVal] variable [As type] [,[ByVal] variable [As type]]...])]
預設情況下，在標准模塊中聲明的DLL過程，可以在應用程序的任何地方調用它。在其它類型的模塊中定義的DLL過程則是模塊私有的，必須在它們前面聲明Private關鍵字，以示區分。下面分別介紹聲明語句的各個組成部分。
(一)、指定動態庫：
Declare語句中的Lib子句用來告訴Visual Basic如何找到包含過程的.dll文件。 如果引用的過程屬於Windows核心庫（User32、Kernel32或GDI32），則可以不包含文件擴展名，如：
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
對於其它動態連接庫，可以在Lib子句指定文件的路徑：
Declare Function lzCopy Lib "c:/windows/lzexpand.dll" _
(ByVal S As Integer, ByVal D As Integer) As Long
如果未指定libname的路徑，Visual Basic將按照下列順序查找該文件：
①.exe文件所在的目錄
②當前目錄
③Windows系統目錄
④Windows目錄
⑤Path環境變數中的目錄
下表中列出了常用的操作系統環境庫文件。
動態鏈接庫描述
Advapi32.dll高級API服務，支持大量的API（其中包括許多安全與注冊方面的調用）
Comdlg32.dll通用對話框API庫
Gdi32.dll圖形設備介面API庫
Kernel32.dllWindows32位核心的API支持
Lz32.dll32位壓縮常式
Mpr.dll多介面路由器庫
Netapi32.dll32位網路API庫
Shell32.dll32位ShellAPI庫
User32.dll用戶介面常式庫
Version.dll版本庫
Winmm.dllWindows多媒體庫
Winspool.drv後台列印介面，包含後台列印API調用。
對於Windows的系統API函數，可以利用VB提供的工具API Viewer查找某一函數及其相 關數據結構和常數的聲明，並復制到自己的程序中。
⑵ VB怎麼調用DLL文件 這個DLL文件是自己用VB寫的放在主程序一個文件夾裡面的，網上找了很多辦法都不行。
在菜單里找 工程—>引用 然後選中目標DLL，即可。
⑶ VB如何調用動態鏈接庫(DLL)文件
1.對ActiveX
DLL，如果該DLL由本地VB/VC生成就可直接在新的VB工程中引用，拷來的就需要先注冊該DLL(記得是regsrv:)。
引用方法:
點擊「工程」-〉「引用」找到後打勾就可在程序中直接調用其函數了。
2.其它非ActiveX
DLL，如WINDOWS
API函數，只要用Declare聲明一下就可用了。
⑷ vb 怎樣在代碼中引用ocx文件或dll文件
第一步：將要用到的控制項拷貝到當前工程目錄下，右鍵單擊該控制項，選擇屬性，記下文件大小。注意，應記下以位元組為單位的具體數字，而不是多少K，以備編程使用。
第二步：引用並正常使用該控制項。
第三步：新建資源文件加入工程，在資源文件編輯器中添加所使用的第三方控制項為自定義資源（CUSTOM），資源號使用默認的101。如果使用了多個控制項則分別添加到資源文件的101、102......資源項中，脫殼代碼也要作相應的修改。
第四步：編寫控制項脫殼代碼，使其讀取資源文件的數據，在程序當前目錄下生成控制項。
代碼如下：
Private Const OCXSIZE = 57344 '欲生成的控制項大小是57344Byte,名字為CoolToolBar.ocx
Sub Main()
Dim Ocx() As Byte 'OCX是個Btye類型的數組
Dim Counter As Long
Ocx = LoadResData(101, "CUSTOM") '將自定義資源中101號資源讀入數組OCX
'注意，微軟的幫助中對載入自定義資源的說明有錯誤，自定義資源標識為"CUSTOM"而不是幫助所說的數字10
If Right(App.Path, 1) = "($%$43%^#ASD#2@$#f$%^) Then '讀取程序所在路徑,判斷是否為根目錄並分別處理
'程序在根目錄下
If Dir(App.Path & "CoolToolBar.ocx") = "" Then '程序路徑下有無控制項,無則生成控制項
'以二進制方式寫（生成）控制項（CoolToolBar.ocx）到主程序所在的目錄
Open App.Path & "CoolToolBar.ocx" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因為從0 Byte開始因此以文件大小 - 1Byte 為終值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End if
Else
'程序不在根目錄下
If Dir(App.Path & "\CoolToolBar.ocx") = "" Then '程序路徑下有無控制項,無則生成控制項
'以二進制方式寫（生成）控制項（CoolToolBar.ocx）到主程序所在的目錄
Open App.Path & "\CoolToolBar.ocx" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因為從0 Byte開始因此以文件大小 - 1Byte 為終值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End if
End if
Form1.Visible = True '主程序所用控制項已經生成，顯示主窗體，進入主程序。
End Sub
注意：將以上代碼作為一個模塊添加到工程中，並在工程-工程屬性設置中將啟動對象選為Sub Main,即上面的脫殼代碼。然後編譯生成EXE文件，將該EXE文件拷貝到其他沒有安裝所用控制項的計算機上運行一下看看是否實現了控制項攜帶之金蟬脫殼。如果是那麼OK！以上為使用一個控制項的情況，使用多個控制項方法基本相同，不在贅述。
⑸ 怎麼用VB編寫DLL
打開VB，然後先中「ActiveX Dll」工程，然後開始編輯。
編完後，保存一般是以「.cls」和「.vbw」保存。這時你選擇「文件」菜單，彈出下拉框，選中「生成.dll」選項，它就會在上面彈出一個進度條「正在生成.dll文件」。
生成以後是一個有好象齒輪狀的圖標。如果你要引用，就開一個「標准EXE」工程，然後在「工程」選項中，單擊「引用」。
找到你剛才的「.dll」的文件名，在前面的復選框中打勾，就可以引用你剛才在那裡面寫的方法了。
⑹ VB究竟怎樣調用dll
如何在VB中調用VC編寫的DLL
一般來說，VB和VC共同編程有3種方式：一種是VC生成DLL，在VB中調用DLL；一種是VC生成ActiveX控制項(.ocx)，在
VB中插入；還有一種是在VC中生成ActiveX
Automation伺服器，在VB中調用。相對而言，第一種方法對VC編程者的要求最低，但要求你的夥伴進行配合，我推薦這種方法。
先說說
VC++的編程。首先在VC++中生成Win32
DLL工程。在這個工程中添加幾個函數供VB用戶調用。一個DLL中的函數要想被VB調用，必須滿足兩個條件：一是調用方式為stdcall，另一個是必
須是export的。要做到第一條，只須在函數聲明前加上__stdcall關鍵字。如:
short__stdcallsample(shortnLen,short*buffer)
要做到第二條，需要在*.def文件中加上如下的幾行：
EXPORTS
sample@1
這
里的sample是你要在VB中調用的函數名，@1表示該函數在DLL中的編號，每個函數都不一樣。注意這里的函數名是區分大小寫的。至於你說的需要傳遞
大量數據，可以這樣做，在VB中用一個數組存放數據，然後將該數組的大小和地址傳給VC(至於如何在VB中編程我會在下面介紹)。就象上面的例
子，nLen是數組大小，buffer是數組地址，有了這兩條，你可以象使用VC的數組一樣進行處理了。至於輸出圖形，可以生成WMF或BMP格式，讓
VB調用。不過，我認為也可以直接輸出到視窗，只要VB將窗口的句柄hWnd和hDC以及視窗的繪圖位置(VB和VC採用的坐標系必須一致才行)傳給VC
就行了。而VB的AutoRedraw屬性必須為False，在Paint事件中調用VC的繪圖程序。
再談談VB的編程。VB調用DLL的方法和調用WindowsAPI的方法是一樣的，一般在VB的書中有介紹。對於上面一個例子，先要聲明VC函數：
DeclareFunctionsampleLib"mydll.dll"(ByValnLenAsInteger,bufferAsInteger)AsInteger
這里mydll.dll是你的dll的名字。你可能已經注意到了兩個參數的聲明有所不同，第一個參數加上了ByVal。規則是這樣的：如果在VC中某個參數聲明為指針和數組，就不加ByVal，否則都要加上ByVal。在VB中調用這個函數採用這樣的語法：
sample10,a(0)
這里的a()數組是用來存放數據的，10為數組長度，這里的第二個參數不能是a()，而必須是要傳遞的數據中的第一個。這是VB編程的關鍵。
下
面在說幾個可能遇到的問題。一個問題是VB可能報告找不到dll，你可以把dll放到system目錄下，並確保VB的Declare語句正確。另一個問
題是VB報告找不到需要的函數，這通常是因為在VC中*.def文件沒設置。第三種情況是VB告訴不能進行轉換，這可能是在VC中沒有加上
__stdcall關鍵字，也可能是VB和VC的參數類型不一致，注意在VC中int是4個位元組(相當於VB的Long)，而VB的Integer只有2
個位元組。必須保證VB和VC的參數個數相同，所佔位元組數也一致。最後一個要注意的問題是VC中絕對不能出現數組越界的情況，否則會導致VB程序崩潰
1.調用DLL的優越性
動態鏈接庫（DLL）作為Windows操作系統的基礎，具有優越的應用性能：
DLL擴展了應用程序的特性。由於DLL能夠動態地裝入進程的地址空間，因此應用程序能夠在運行時確定需要執行什麼操作，然後裝入相應的代碼，以便根據需要執行這些操作。
DLL可以用多種語言進行編寫。例如用VB來編寫應用程序的界面，而用C++來編寫諸如演算法、通訊之類的底層操作。
DLL簡化了軟體項目的管理。如果在軟體開發過程中不同的工作小組在不同的模塊上工作，那麼這個項目管理起來比較容易。
DLL有助於節省內存。如果兩個或多個應用程序使用同一個DLL，那麼該DLL的頁面只要放入RAM一次，所有的應用程序都可以共享它的各個頁面。
DLL有助於資源的共享。DLL可以包含對話框模板、字元串、圖標和點陣圖等資源，多個應用程序能夠使用DLL來共享這些資源。
DLL有助於應用程序的本地化。例如，只包含代碼而不包含用戶界面組件的應用程序可以載入包含本地化用戶界面組件的DLL。
DLL有助於解決平台差異。不同版本的Windows配有不同的函數，開發人員常常想要調用新的函數。但是，如果源代碼包含了對一個新函數的調用，而應
用程序將要在不能提供該函數的Windows版本上運行，那麼操作系統的載入程序將拒絕運行該進程。如果將這些新函數保存在DLL中，那麼應用程序就能夠
將它們載入到Windows的老版本上,就可以成功地調用該函數。
2．找到DLL的入口點
初次接觸DLL的用戶經常會遇到一個問題：在VC環境下創建的DLL，在VC里運行的好好的，可在VB應用程序中調用時卻老是出現"調用約定錯誤"、"找不到入口點"之類的錯誤。這主要是由以下疏漏造成的。
首先，要注意DLL中的函數和VB中的函數聲明在名稱、返回類型、參數類型、參數個數等方面必須完全相同，尤其要注意大小寫的問題。
其次，在DLL的.def文件中必須加上入口函數。
最後，在函數定義前必須加上extern"c"，_stdcall關鍵字。
具體格式可參看應用實例。
3．數組參數在DLL中的傳遞
由於DLL經常用來進行一些底層的運算操作，因此應用程序常需要傳遞大量的數據給DLL。在C++中，指針是進行數組操作的最佳選擇，但VB中沒有指針的概念。這通常可用兩種方法來解決。
其一，在VB中聲明DLL時，用byref來代替byval，即可將數組指針傳遞給DLL。
另外，將數組聲明為變體型（variant），即可直接將數組傳遞給DLL。
4．應用實例
以下通過一具體實例來說明在VB中調用VC環境下創建的DLL的過程。
創建一用於信號處理的DLL，"SigPro.dll"，其中有一個用於富氏計算的函數"Fourier"。
VC中的聲明：
在"SigPro.h"中加入以下代碼，
extern"C"
{
doubleEXPORT_stdcallFourier(longint*Sample,intNumSam,intOvertoneOrder,boolSinOrCos);
}
在"SigPro.cpp"中加入以下代碼，
extern"C"
doubleEXPORT_stdcallFourier(longint*Sample,intNumSam,intOvertoneOrder,boolSinOrCos)
{
inti;
doubleresult=0.0;
if(SinOrCos==true)
{
for(i=0;i<NumSam;i++)
{
result=result+*(Sample+i)*cos(OvertoneOrder*i*2*3.1415926/NumSam);
}
}
else
{
for(i=0;i<NumSam;i++)
{
result=result+*(Sample+i)*sin(OvertoneOrder*i*2*3.1415926/NumSam);
}
}
result=result*2/NumSam;
returnresult;
}
在"SigPro.def"中加入以下代碼，
EXPORTS
Fourier
VB中的調用聲明：
"SigPro"(ByRefSample()AsLong,
ByValNumSamAsInteger,ByValOvertoneOrderAsInteger,ByValSinOrCos
AsBoolean)AsDouble