在vb中生成dll文件并且调用的方法.

在vb中生成dll文件并且调用的方法.

一、DLL制作

1．打开新建工程

2．选择“Active DLL”，单击“打开”按钮。

3．单击打开按钮后，系统在工程中添加一类模块。

4．为方便对DLL的引用可以改一下名称，如将类模块的名称改为Fraction。

5．在本类模块中添加代码如下。

Option Explicit

Public Num

Public Den

Public Sub Add(NUm2, Den2)

Num = NUm2 + Den2

End Sub

Public Sub Sbt(NUm2, Den2)

Num = NUm2 - Den2

End Sub

Public Sub Mul(NUm2, Den2)

Num = NUm2 * Den2

End Sub

Public Sub Div(NUm2, Den2)

Num = NUm2 / Den2

End Sub

6．为与其他工程相区别，可将本工程命名为“Math”。

7．生成DLL文件。

二、DLL引用

1．建立一个普通窗体。

2．添加引用。

3．在程序中添加以下代码。

Option Explicit

Public Frac As New Fraction

Private Sub Command1_Click()

Frac.Add Val(Text1.Text), Val(Text2.Text)

Text3.Text = Frac.Num

End Sub

Private Sub Command2_Click()

Frac.Sbt Val(Text1.Text), Val(Text2.Text)

Text3.Text = Frac.Num

End Sub

Private Sub Command3_Click()

Frac.Mul Val(Text1.Text), Val(Text2.Text)

Text3.Text = Frac.Num

End Sub

Private Sub Command4_Click()

Frac.Div Val(Text1.Text), Val(Text2.Text)

Text3.Text = Frac.Num

End Sub

Private Sub Command5_Click()

Text1 = \"\"

Text2 = \"\"

Text3 = \"\"

End Sub

4．运行程序。