End
End Sub 编译为:link.exe 步骤二:将“C:/Program files/Microsoft Visual Studio/VB98/link.exe”改名为“link2.exe”; 步骤三:将假的那个link.exe复制到“C:/Program files/Microsoft Visual Studio/VB98/”中; 二 、建立一个ActiveX DLL 步骤一:建立一个新项目,选择“ActiveX DLL”,然后建立一个“Module”在代码中加入如下代码: Function fun1(ByVal a As Long,ByVal b As Long) As Long
fun1 = a + b
End Function
Function fun2() As Long
fun2 = 1
End Function
步骤二:建立一个空的“Class” ; 步骤三:用VB菜单编译; 步骤四:复制出OBJ文件; 当编译的时候会d出一个对话框: 步骤五:迅速将这个文件夹中新出现的三个文件复制出来; 三个文件分别为:Class1.OBJ,Module1.OBJ,Project1.OBJ 将这三个文件复制到:“c:/abc”这个文件夹。 三、进行编译连接工作 步骤一:建立一个Bat文件,内容如下: cd c:/Program files/Microsoft Visual Studio/VB98
link2.exe "c:/abc/Class1.obj" "c:/abc/Module1.obj" "c:/abc/Project1.obj" "d:/Program files/Microsoft Visual Studio/VB98/VBAEXE6.liB" /ENTRY:__vbaS /EXPORT:fun1 /EXPORT:fun2 /OUT: "c:/abc/ProjectOK.dll" /BASE:0x11000000 /SUBSYstem:windows,4.0 /VERS
步骤二:将这个bat文件复制到“C:/abc” 步骤三:在c:/abc中执行bat文件,生成DLL文件“ProjectOK.dll”在文件夹中 四、好了,现在我们测试一下 建立一个新的项目,再建立一个“Form”,加入两个按钮,在“Form”中粘贴如下代码: Declare Functionfun1 lib "ProjectOK.dll" (ByVal a As Long,ByVal b As Long) As Long
Declare Functionfun2 lib "ProjectOK.dll" () As Long
Sub Command1_Click() MsgBox fun1(100,200)
End Sub
Sub Command2_Click() MsgBox fun2()
End Sub
然后,测试一下,呵呵,成功! . . . 《Java程序员,上班那点事儿》:
前言, 目录
卓越网销售链接
China-pub销售链接
当当网销售链接 《Java程序员,上班那点事》纪念帖 关于下载《Java程序员,上班那点事而》的电子版
原文链接: http://www.jb51.cc/article/p-eqjhzrgw-qm.html 总结
以上是内存溢出为你收集整理的VB无所不能之五:建立“标准”DLL动态链接库文件(2)全部内容,希望文章能够帮你解决VB无所不能之五:建立“标准”DLL动态链接库文件(2)所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)