VB中DLL如何生成

我知道新建dll编辑后可以生成dll,但是如果我是以工程,如窗体还有其它模块等在一起,此时我想将其中的一个类模块单独生成一个DLL,我应该怎么操作... 我知道新建dll编辑后可以生成dll,但是如果我是以工程,如窗体还有其它模块等在一起,此时我想将其中的一个类模块单独生成一个DLL,我应该怎么操作 展开
 我来答
xiangjuan314
2016-01-21 · TA获得超过3.3万个赞
知道大有可为答主
回答量:2.9万
采纳率:0%
帮助的人:2833万
展开全部
一、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.运行程序。
蓝天迷尘
2015-10-22 · 超过32用户采纳过TA的回答
知道答主
回答量:61
采纳率:0%
帮助的人:27.4万
展开全部
首先建立工程时:应该创建ActiveX dll
然后在工程属性中选择二进制兼容,即可编写自己所需的DLL
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
西南谈数码
推荐于2018-03-02 · 超过28用户采纳过TA的回答
知道答主
回答量:91
采纳率:0%
帮助的人:41.3万
展开全部
另存 新建DLL工程 添加另存的模块 生成
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2014-08-30
展开全部
似乎不能,dll请单独开发,然后给某个工程调用。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
七殿95419
2014-08-30 · TA获得超过120个赞
知道答主
回答量:130
采纳率:66%
帮助的人:62.1万
展开全部
晕,你再好好看看代码吧,C里的K是从0到N,N=800,VB里的K是从0到100,这个差了8倍!
这样可以么?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式