1,453
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
晨光暮曲 2004-09-13
- 打赏
- 举报
先不结贴了！问题已经解决！用二进制生成后，到别的机器上运行没有问题了！过两天贴子沉了再结吧！
James_ht 2004-09-12
- 打赏
- 举报
DLL是二进制代码.有com标准的都可以用。不仅是在VB中用.
paocai2003 2004-09-11
- 打赏
- 举报
是不是搞成.dll别人就看不到你的代码了.如何写成ocx文件.又如何把它参照进来?谢谢大家.帮作者定先.
对不起,作者,您问到我的心头上了.借问一下,希望不要介意.
对不起,作者,您问到我的心头上了.借问一下,希望不要介意.
jiang8360 2004-09-03
- 打赏
- 举报
up
晨光暮曲 2004-09-02
- 打赏
- 举报
UPq
浪子家园 2004-09-02
- 打赏
- 举报
可以不用DLL呀，改写为OCX文件吧
online 2004-08-31
- 打赏
- 举报
打个比方
第一步
组件工程名:project_sum,类名:class1
Public Function sum(la As Long, lb As Long) As Long
sum = la + lb
End Function
编译后，测试
Dim obj As project_sum.Class1
Private Sub Command1_Click()
Set obj = New project_sum.Class1
MsgBox obj.Sum(2, 3)
End Sub
第一步
组件工程名:project_sum,类名:class1
Public Function sum(la As Long, lb As Long) As Long
sum = la + lb
End Function
编译后，测试
Dim obj As project_sum.Class1
Private Sub Command1_Click()
Set obj = New project_sum.Class1
MsgBox obj.Sum(2, 3)
End Sub
