admin 管理员组

文章数量: 1087139


2024年3月27日发(作者:autoeventwireup)

制作好DLL之后,就可以用VB调用它,实现VB调用C程序。VB程序要使用DLL

中的函数,首先必须要有特殊的声明,用Declare声明语句在窗体级或模块级或全局模块

的代码声明段进行声明,将动态链接库中的函数声明到VB中,供VB程序调用。

语句格式为:Declare Sub 过程名Lib [ Alias " 别名]([ByVal 参数AS类型]),或

为Declare Function函数名Lib [Alias " 别名]([ByVal 参数AS类型])AS类型在声明

中首先用Declare关键字表示声明DLL中的函数。在C语言中有的函数类型为VOID,它

表示不具有返回值,则必须用关键字Sub将其声明成过程。有的函数具有返回值,则必须

用关键字Function将其声明成函数,并且在声明语句的最后要用AS关键字指明函数返回

值的类型。

例如上面的在VB中就可以声明为:

Declare Function ADD Lib c:―ByVal X AS Integer, ByVal Y AS Integ

er ,ByVal filein as

string)AS Integer

通过此声明语句将函数ADD声明到VB中,便可直接调用。

Declare语句只能调用标准DLL,而不能用于调用ActiveX DLL,这是你程序出错的

原因。VB无法生成标准DLL,只能生成ActiveX DLL。调用ActiveX DLL,一般通过Cr

eateObject语句或在Project|Reference中引用。

如何创建和使用最少的 ActiveX 组件在 VB 中

步骤 1: 创建服务器

1. 在 Visual Basic 中启动一个新的项目。 选择 ActiveX EXE 或 ActiveX DLL。

2. 从 Project 菜单,选择添加模块,然后模块。

3. 在 Module 1 的通用声明部分中键入下面的代码: Sub Main ()

注意: End Sub 将自动为您添加。

4. General Declaration section of Class1 to add following code:

MyString As String

Public Function MyFunction() As String

MyFunction = "You never know what you're gonna get."

End Function

Public Sub Class_Initialize()

MyString = "Life is like a box of chocolates."

End Sub

Public


本文标签: 声明 函数 模块 调用 语句