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 S附心ub

Public Sub Div(NUm2, De机运室接似月也谁究垂n2)
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.T了杨无输外石ext)
Text3.Text = Frac.Num
End Sub

Private Sub Command2_Click()
Frac.Sbt Val民而刘精频待势科(Text1.Text)便且明概操向搞妒阿京影, Val(Text2.T统斤坚令严宜ext)
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(Tex艺厂纪家金伯t2.Text)
T屋ext3.Text 意基担理很新从上印村= Frac.Num
End Sub

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

4．运行程序。