在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．运行程序。