VB封装DLL文件讲解---3

转载 2013年12月04日 09:20:03
VB中的模块,类,ActiveX与API的使用

一、模块 (Module)

  在VB中,模块会优先执行,其实说白了,模块就象是全局的过程和函数调用。这是初步的提高代码可复用性的途径。有经验的ASP(VBSCRIPT,以后都只用VBScript来写Asp程序)程序员都用过<!--#Include file=""-->这条语句吧,这对提高代码的可复用性是比较方便的,在VB里模块就完成了这个功能。值得注意的是在模块中可以定义Sub Main() 过程,并且在启动里面可以让程序从Main()过程进入。这有点象c,c++中的main()函数, 不过模块的代码可重用级别还是停留在过程,函数调用上。

二、类模块

  在VB中,可以建立类模块.类模块类似于ASP中的类,有经验的Asp程序员应该都有自己的类库吧。一般情况下我们怎么在ASP中引用自己的类库呢?对,还是include,只要把类文件包含进来就行了, 在调用的时候只要 Set xxx= new ClassName 就行了,这个和ASP中也是一样的。用类模块有什么好处呢? 因为使用类可以定义一些公用的方法和过程,可以将代码的可重用行达到一个更高的高度。

三、ActiveX技术

  可能大家会想,无论是用模块还是类模块,可能很多功能都会在下一个项目用到。如果这个时候我们需要那些功能的话,可以直接把类模块和模块代码考到Vb项目中。在ASP中,我们只要把类代码做成文件,然后在其他应用include进来就行了,但有一个问题,那就是代码的封装行,因为不论是类模块还是模块或者ASP中的写有类的asp文件,代码可以被人看并加以修改,有没有办法能使代码不让人看到呢?答案是肯定的,这个就是ActiveX控件技术。

   ActiveX 的优点在于可以不同的语言编写ActiveX控件,只要符合约定的规范就行,然后可以被其他语言调用,而且代码是编译好了的,这个对于ASP来说,可以提高运行速度。下面看看给出一个实际使用的例子吧:

1、首先建立一个ActiveX dll工程,然后把名字写成TestDll.在类模块里的代码为:
Option Explicit
Private mdbl_augend As Double
Private mdbl_addend As Double

'定义[属性]augend的读
 Public Property Get augend() As Double
 augend = mdbl_augend
End Property

'定义[属性]augend的写
Public Property Let augend(ByVal vNewValue As Double)
 mdbl_augend = vNewValue
End Property

'定义[属性]addend的读
Public Property Get addend() As Double
  addend = mdbl_addend
End Property

'定义[属性]addend的写
Public Property Let addend(ByVal vNewValue As Double)
 mdbl_addend = vNewValue
End Property

'定义[函数]Plus的功能
Public Function Plus()
 Plus = augend + addend
End Function

2、文件→生成TestDll.dll,这样就得到了一个名为TestDll.dll的文件了,这就是一个ActiveX控件了。这个控件有2个属性,一个函数,可以计算出2个属性的和。

3、VB调用TestDll.dll. 新建一个exe工程。工程→引用→浏览,选中TestDll.dll文件,然后随便拖个按钮,在按钮里写以下代码:

Private Sub Command1_Click()
 Set objSum = New Sum
 objSum.augend = 10.52
 objSum.addend = 382.41
 Result = objSum.Plus
 MsgBox Result
 Set objSum = Nothing
End Sub

你可以看到弹出一个对话框显示2个属性的和。

4、ASP调用TestDll.dll文件。
  ASP调用dll文件和vb也差不多,刚才vb调用时要添加一个引用来找到dll文件,而ASP需要注册以后才能调用,所以先建立一个setup.bat文件,里面写如下代码:Regsvr32.exe TestDll.dll 如果这个bat文件不在TestDll.dll的同级目录下面,需要加上TestDll.dll的绝对路径 或者直接在运行里敲Regsvr32.exe E:\website\work\dll\TestDll.dll.这样TestDll.dll就注册了,下面写个文件来测试一下:

<%
Dim objSum
 Set objSum = Server.CreateObject("TestDll.Sum")
 objSum.augend = 10.52
 objSum.addend = 382.41
 Result = objSum.Plus
 Response.Write Result
 Set objSum = Nothing
%>

怎么样,网页上是不是显示了392.93呢? 这样ASP就调用了这个TestDll.dll文件了

  其实在ASP中调用ActiveX控件可以有很多好处,如果是大型的B/S软件项目,这样可以将业务逻辑封装在ActiveX里面,而ASP只要调用就行了。唯一的缺点就是需要注册组件。不过我们有一个变通的方法,在ASP5.0以上可以支持类,我们可以用VBScript的类来代替组件,这样也能实现封装,只不过在性能上要慢些。 不过现在.net技术解决这个问题。 因为asp.net是建立在.net framework基础上的,所以用.net写出的dll文件不需要注册。

四、API调用

  VB的强大之处就是可以调用WinAPI,这样原本VB完成不了的功能都可以通过API来完成。 要调用API首先也需要引用它。VB里提供了一个API Show的小工具给我们使用,这样可以省去很多调用API的麻烦。要调用API,首先要建立模块,在模块里申明调用的API,下面有一个小程序,就是让窗口始终显示在最上面.调用API代码如下:

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


'常量声明
Global Const SWP_HIDEWINDOW = &H80
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_NOCOPYBITS = &H100
Global Const SWP_NOMOVE = &H2
Global Const SWP_NOOWNERZORDER = &H200
Global Const SWP_NOREDRAW = &H8
Global Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Global Const SWP_NOSIZE = &H1
Global Const SWP_NOZORDER = &H4
Global Const SWP_SHOWWINDOW = &H40
Global Const HWND_BOTTOM = 1
Global Const HWND_BROADCAST = &HFFFF&
Global Const HWND_DESKTOP = 0
Global Const HWND_NOTOPMOST = -2
Global Const HWND_TOPMOST = -1
Global Const HWND_TOP = 0
Global Const Flags = SWP_NOMOVE Or SWP_NOSIZE

然后在窗体里加如下代码:

Private Sub Form_Load()
 Dim Success As Long
 Success = SetWindowPos(Me.hwnd, HWND_TOPMOST, 10, 0, 0, 0, Flags)
End Sub
 
运行下看看,是不是窗体始终在最前面呢?

  研究了下VB后发现,其实VB还是提供了一些封装的技术的。比如模块、类模块、还有ActiveX,并且VB能够调用API来弥补自身功能的不足。最主要的是VB简单易学,而且还提供了很多数据库操作的控件。

VB Property 中 Set与Let赋值

Set 语句将一个对象赋值给一个变量,使其指向该对象,将对象引用赋给变量或属性。        语法        Set objectvar = {[New] objectexpression | ...
  • dongzhiquan
  • dongzhiquan
  • 2010年03月31日 23:33
  • 1746

VB自动注册DLL文件

Const A = 10 Const B = 5 Private Sub Command1_Click() Dim oMathLib As New Class1 Dim r As Integer M...
  • laotou99
  • laotou99
  • 2012年12月26日 15:37
  • 2700

VB封装DLL实例(二)

正 文: 上文中我们已经就DLL的基本概念,以及如何将VBA代码封装为DLL,如何引用该生成的DLL动态链接库,进行了初步的讲解,我想大家对于VB封装DLL应该有了一个初步的了解。 下面主要就DL...
  • miaoyangzhi
  • miaoyangzhi
  • 2017年02月11日 17:37
  • 954

VB封装DLL实例(三)

正 文: 一、手动注册及引用 (一)手动注册及引用方法(参看实例:手动引用.mdb) 进入VBA编辑窗口,点菜单【工具】—【引用】,打开【引用】对话框,点【浏览】按钮,打开【添加引用】对话框,点...
  • miaoyangzhi
  • miaoyangzhi
  • 2017年02月11日 17:40
  • 604

如何将vbs脚本用VB封装为DLL,并在vbs脚本中调用

近来,做关于wincc的项目,用到将vbs脚本封装成DLL,并在vbs脚本里面调用,故而整理如下。 一、如何将vbs脚本封装DLL 1. 在VB6.0中新建ActiveX DLL工程。 2.命名...
  • sillyboy1104
  • sillyboy1104
  • 2015年03月24日 13:34
  • 2092

VB封装DLL实例(一)

正 文: 一、  DLL基本概念 (一)概念 DLL即动态链接库(Dynamic Link Library),是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分,而是运行...
  • miaoyangzhi
  • miaoyangzhi
  • 2017年02月11日 17:30
  • 544

VB 中的类模块与模块之一

类模块是扩展的Type,除了属性外还有方法事件而模块可以有全局(Public)变量、全局(API、常数、类型)申明、过程可将那些与特定窗体或控件无关的代码放入另一类型的模块— 标准模块(文件扩展名为 ...
  • autofei
  • autofei
  • 2005年12月28日 15:43
  • 3595

VS2010 VB如何生成DLL文件,调用DLL

  • 2013年08月08日 17:26
  • 131KB
  • 下载

如何用VB编写自己的DLL文件,并调用其中的函数

如何用VB编写自己的DLL文件,并调用其中的函数?
  • sillyboy1104
  • sillyboy1104
  • 2015年03月09日 22:54
  • 2886

VB6.0生成的DLL文件制作成安装包和注册使用

  • 2011年10月06日 16:38
  • 295KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB封装DLL文件讲解---3
举报原因:
原因补充:

(最多只允许输入30个字)