1.在vb中选择new project-> activex dll
这样建立后的工程中会有一个类叫做class12.添加一个求和的方法
Public Function sum(ByVal a As Integer, ByVal b As Integer) As Integer
sum = a + b
End Function3.选择菜单中生成project1.dll4.新建另外一个工程standard exe
5.project菜单->references,选中project1
加入刚行创建的dll6.在窗体中添加按钮及处理代码
Private Sub Command1_Click()
Dim x As New Project1.Class1 '创建对象
MsgBox CStr(x.Sum(5, 7)) '调用对象方法完成工作
Set x = Nothing '释放对象
End Sub这样就可以了,这是一个放在dll中的组件
这样建立后的工程中会有一个类叫做class12.添加一个求和的方法
Public Function sum(ByVal a As Integer, ByVal b As Integer) As Integer
sum = a + b
End Function3.选择菜单中生成project1.dll4.新建另外一个工程standard exe
5.project菜单->references,选中project1
加入刚行创建的dll6.在窗体中添加按钮及处理代码
Private Sub Command1_Click()
Dim x As New Project1.Class1 '创建对象
MsgBox CStr(x.Sum(5, 7)) '调用对象方法完成工作
Set x = Nothing '释放对象
End Sub这样就可以了,这是一个放在dll中的组件
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货