请教VB 如何使用vbAdvance 生成dll文件

发布网友发布时间：2022-04-19 09:48

共1个回答

热心网友时间：2023-10-23 21:34

一、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．运行程序。追问谢谢指点，可是我想生成能带Main函数的dl,用来注入线程，而不是Active DLL，请问怎么弄啊？