VB无所不能之五:建立“标准”DLL动态链接库文件(2)
VB无所不能之五:建立“标准”DLL动态链接库文件(2)
——作者:钟声
博客地址:http://blog.csdn.net/useway
昨天我们讲到,如何通过特殊方法获取OBJ文件,那么今天我们继续讲如何进行编译连接。
昨天的上一篇:http://blog.csdn.net/useway/archive/2010/04/14/5487046.aspx
一、首先我们看看这种特殊方法的操作准备步骤:
步骤一:建立一个假的“Link.exe”;
建立一个新的项目,在那个项目中建立一个“Form”,然后,在“Form”中加入如下代码:
Sub Form_Load()
MsgBox "现在可以拷贝OBJ文件了!!"
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文件;
 
相关文档:
昨天下午我和小胖被米老师传唤到市医院去,米老师想听听他周六上的课对我的影响有多大,我回答的基本内容和《10年 VB 1》里面的内容差不多,但米老师感觉很空洞,感觉我在泛泛而谈,其实我也有感觉。
为了将米老师说的总结方法应用于实践,我这两天敲代码发现MsgBox,InputBox,Print的用法差不多,然后就将其总结如下:
......
原来的错误是:Timer1的Enabled属性设为True。
代码错误是:
Private Sub Timer1_Timer()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
————————————————&mdas ......
窗体设置,控件布局时用:
alt+v+x可以快速显示出工具框
Alt+P+N 引用
ctrl+左右键头可以移动控件
shift+左右键头调整控件大小
F7 切换到编辑窗口
Shift+f7 切换代码窗口
开发代码,调试代码都能用的:
Ctrl+C复制
Ctrl+V粘贴
Ctrl+X剪贴
Ctrl+F查找
开发代码时用的:
Tab 向右推
Shi ......
Option Explicit
Private Const ERROR_CACHE_FIND_FAIL As Long = 0
Private Const ERROR_CACHE_FIND_SUCCESS As Long = 1
Private Const ERROR_FILE_NOT_FOUND As Long = 2
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122
Private Const MAX_PATH As Long ......