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文件;
 
相关文档:
VB6IDEMouseWheelAddin.dll
就是这个能使你在VB的代码编辑窗口能够使用鼠标滚轮,编辑代码、查看代码更方便。
下面详述:
1、给大家一个下载地址:
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe右击解压,再右击解压,这时就会看到一个dll文件,这个就是我 ......
原来的错误是:Timer1的Enabled属性设为True。
代码错误是:
Private Sub Timer1_Timer()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
————————————————&mdas ......
第一次正式去上米老师的课,这次是寒假来后的第一节课,内容主要是交流一下寒假的学习情况。
首先是言行问题:去机房上课时,带胸牌、笔记本、笔、《Visual Basic 程序设计》、鞋套、眼镜,手机能不带就不带;别人发言时,显示器关掉,面向对方以示尊敬。
......
试着用了一下MindManager,使用很容易,下面是我练习着做的一个图形,希望以后会越用越熟练,做得更好!
& ......
今天在调试的过程中发现 在vb中拼SQL的时候发现"()" 作用很大
eg: table: T_TEST col : T_KB int ,S_CD int ,Z_SU int
dim gcstrT_1 ,gcstrT_3 as integer
gcstrT_1 = 1
gcstrT_3 = 3
strWhere = strWhere & "……"
strWhere = strWhere & "AND ((T_K ......