熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

如何在Visual Basic中使用導入API

2013-11-13 09:47:34  來源: .NET編程 

  在 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.