vb如何调用dll中的接口

在菜单--工程--引用。选择你的DLL文件引用它

到你的窗体里引用。

声明

dim Qmy_init as Qmy_init

引用对于的函数就是

返回变量=Qmy_init.函数名（参数变量）

要本文介绍了在VisualBasic中用Declare语句声明所要调用的WindowsAPI的方法，以及如何调用API函数来检测当前的系统环境。用VisualBasic能够直接控制和处理计算机的系统参数和硬件资源，增加了程序设计人员在Windows环境中开发软件的灵活性，使软件与Windows系统达到了最完美的结合。本文最后给出了一个调用的WindowsAPI的检测系统环境实例。

关键字VisualBasicDeclare语句WindowsAPI函数系统

前言

VisualBasic是一个Windows系统下的应用程序开发平台。方便的界面设计、强大的扩充能力使程序员能节省大量时间，把主要精力集中在应用程序核心代码的编写上。VisualBasic目前已成为Windows系统下一种高效灵活的开发工具,而调用API（ApplicationProgramInterface,应用程序接口）函数正是对VisualBasic功能的强有力扩充，它使得VisualBasic能够直接控制和处理计算机的系统参数和硬件资源。借助于API使得VisualBasic能克服Windows编程的难点，同时又增加供了使用Windows环境的灵活性。

利用VisualBasic调用API函数的方法：

(1)用Declare语句声明所要调用的API函数，若该函数无返回值，可声明为Sub过程；若有返回值，则可声明为Function函数。

(2)一旦声明了某一个API函数后，就可以象调用VisualBasic的函数一样。但如果参数传递不对，可能会导致死机。

一、检测系统参数的API函数

检测系统环境的参数所需要的WindowsAPI函数有GetWindowsDirectory，GetWinFlags,GetVersion，GetKeyboardType等，具体的使用方法见下面声明。

1．GetWinflags声明

DeclareFunctionGetWinflagsLib"kernel32"()AsLong

功能:该函数返回Windows运行系统上的系统配置。

返回标志值

含意

WF_80X87

Intel数字协处理器

WF_CPU386

80386CPU

WF_CPU486

80486CPU

WF_ENHANCED

Windows系统运行在386增强模式

WF_PMODE

Windows系统运行在保护模式

WF_STANDARD

Windows系统运行在标准模式

WF_WLO

运行在OS/2下

2．GetKeyboardType声明

DeclareFunctionGetKeyboardTypeLib"user32"(ByValnTypeFlagAsLong)AsLong

功能：该函数得到系统键盘类型，nTypeFlag=0时返回键盘类型。

返回值

含意

1

IBMPC/XT或兼容键盘

2

Olivetti"ICO"键盘（102个键）

3

IBM或兼容键盘（84个键）

4

IBM增强型或相似键盘（101或102个键）

5

Nokia1050或相似键盘

6

Nokia9140或相似键盘

7

日本键盘

3．GetWindowsDirectory声明

DeclareFunctionGetWindowsDirectoryLib"kernel32"Alias"GetWindowsDirectoryA"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong

功能：该函数获取Windows目录的路径。

4．GetVersion声明

DeclareFunctionGetVersionLib"kernel32"()AsLong

功能：该函数返回当前Windows版本号和DOS版本号。返回值的低位字节说明Windows主版本号，返回值的低位字的高位字节说明Windows副版本号，高位字的低位字节说明DOS副版本号，高位字的高位字节说明DOS主版本号。

5．GetSystemDirectory声明

DeclareFunctionGetSystemDirectoryLib"kernel32"Alias"GetSystemDirectoryA"

(ByVallpBufferAsString,ByValnSizeAsLong)AsLong

功能：该函数获取Windows系统子目录的路径。

---