创建的 DLL 文件能够被其它工程调用?怎样调用??我做的DLL 文件
Public Function mmzh(ByRef mm1 As Integer) As Integer
mmzh = 100 + mm1
End Function调用的过程,就是出错,"找不到入口占点"
Private Declare Function mmzh Lib "F:\VB\DLL\mm.dll" (ByRef mm1 As Integer) As IntegerPrivate Sub Command1_Click()
Text1.Text = mmzh(1) '加上100后,输出为101
End Sub
Public Function mmzh(ByRef mm1 As Integer) As Integer
mmzh = 100 + mm1
End Function调用的过程,就是出错,"找不到入口占点"
Private Declare Function mmzh Lib "F:\VB\DLL\mm.dll" (ByRef mm1 As Integer) As IntegerPrivate Sub Command1_Click()
Text1.Text = mmzh(1) '加上100后,输出为101
End Sub
解决方案 »
- 调用API函数是用Delcare好还是用tlib好?
- 求XP自动关机代码
- 急急急,关于窗体的两个问题,在线等,请知道下菜鸟,解决立刻给分
- 请问VB6的串口通信控件的inputlen属性指的是什么,怎么用? 还有vbcrlf代表什么?
- 怎样用vb做到,在access里存取图片(100分)
- 用MODEM如何发送和接受String信息?
- listview多选初级问题
- 神呀
- 相对于access来说 sql有什么优势?能详细讲讲吗?谢了
- 在vb里面,怎么在字符串里面插入回车??
- 问个算法,从N个数中要获取M个,让M个数的总和=X
- VB在我的机器上编译的程在XP的另一台机器上不能使用,在他机器上编译一下就可以了
dim a as new dll工程名.模块名
text1.text=a.mmzh(1)
'工程名指建dll的工程名,类名是你建dll的ClassModule名
Private Sub Command1_Click()
dim Obj as 工程名.类名
set Obj=CreateObject("工程名.类名")
Text1.Text =Obj.mmzh(1)
End Sub
另外在写dll是应该用long,而不是integer
1、dll已经注册
2、没有进行注册,这样的话dll必须在本工程目录下
不引用的话在输入"."的时候看不到dll提供的接口,而且在程序运行上会减慢速度,不算太好的编程习惯。
2.
dim k as new test.mmzh
text1.text=a.mmzh(1) '得到101
text1.text=a.mmzh(1)用这种方法调用DLL 文件后,要重新编译源代码,不是最好