如何在Visual Basic中使用導入API

　　在 Visual Basic 中使用導入 API會發現很難找到正確的 dll我知道 C++ 中有一個 dll但是有沒有可以從 VB 應用程序調用的 dll 呢？

　　回答是肯定的

　　有兩種方法可以完成這項工作一種方法就是在 VB 的 DECLARE 部分列出您希望調用的 C API然後利用標准

　　的調用序列從 VB 調用它如下面的代碼樣本所示

　　Type SQLCA_STRUCT

　　sqlcaid As String *

　　sqlcabc As Long

　　sqlcode As Long

　　sqlerrml As Integer

　　sqlerrmc As String *

　　sqlerrp As String *

　　sqlerrd() As Long

　　sqlwarn As String *

　　sqlstate As String *

　　End Type

　　Public Declare Function sqlepstart Lib "dbapp" Alias "sqlepstart_api"

　　(ByVal junk&#; ByRef sqlca As SQLCA_STRUCT) As Integer

　　

　　DB_start = sqlepstart( sqlca) Start DB call

　　另一種方法就是生成一個文件然後發出一條命令在後台執行該函數（當然取決於您正在試圖做什麼）

　　fileno = FreeFile

　　Open dbfile For Output As #fileno

　　sqlstmt = "" + _

　　"dbstart;" + vbNewLine + _

　　"quit;"

　　Print #fileno sqlstmt Write commands to a file

　　Close #fileno Close it and execute the command

　　dbcmd = "dbcmd /i /c db tvf " + dbfile Generate the command

　　progID = Shell(dbcmd vbMinimizedNoFocus) Shell out to run it

　　最後DB 的下一個版本將允許您象運行普通的 SQL 表函數那樣運行特殊的 API 命令這會返回有關目前可在 DB 中找到的許多管理 API 的結果因此無需進行 API 調用您只需使用 SQL 調用就可從 DB 獲取信

From:http://tw.wingwit.com/Article/program/net/201311/11600.html