vb基本教材.docxVIP

Function SetFocus (ByVal hwnd As Long) As Long 即，这行代码定义了名为SetFocus的函数,此函数具有一个Long型数据类型的参数，并按值传递(ByVal),函数执行后将返回一个Long型数据。 API函数的声明也很类似，如，API中的SetFocus 函数是这样写的∶ Declare Function SetFocus Lib user32 Alias SetFocus (ByVal hwnd As Long) As Long 有点复杂了一些。是的，是复杂了点。但我可以告诉你，除了这些多出来的部分，其他部分还是和你以前学到的东西是一样的。函数在程序中的调用也是一样。如: Dim dl As Long dl=SetFoucs(Form1.Hwnd) 但，一点是清楚的。它不象你自己写的程序那样能够看到里面的运行机理，也不像VB 自带的函数那样，能够从VB的联机帮助中查到其用法。唯一的方法就是去学、查VB以外的资料。 Declare 语句用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。对此，你只要记住任何API函数声明都必须写这个语句就可以了。 Iib 指明包含所声明过程或函数的动态链接库或代码资源。也就是说，它说明的是，函数或过程从何而来的问题。 如在上例中，SetFocus Lib user32说明 函数 SetFocus 来自 user32.dll文件。主要的dll动态连接库文件有∶ user32.dll Windows管理。生成和管理应用程序的用户接口。 GDI32.dll 图形设备接口。产生Windows设备的图形输出 Kernel32.dll 系统服务。访问操作系统的计算机资源。 注意，当DLL文件不在Windows或System文件夹中的时候，必须在函数中说明其出处( 路径)。如，SetFocus Lib c:\Mydll\user32 函数声明中的Alias 是可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称(别名)。如，Alias SetFocus ，说明SetFocus函数在User32.dll中的另外一个名称是， SetFocus。怎么两个名都一样呢?当然，也可以是不同的。在很多情况下，Alias说明的函数名，即别名最后一个字符经常是字符A，如SetWindowsText函数的另一个名称是 SetWindowsTextA,表示为Alias SetWindowsTextA。这个A只不过是设计家们的习惯的命名约定，表示函数属于ANSI版本。 那么，别名究竟有什么用途呢?从理论上讲，别名提供了用另一个名子调用API的函数方法。如果你指明了别名，那么 尽管我们按Declare语句后面的函数来调用该函数，但在函数???实际调用上是以别名作为首要选择的。如，以下两个函数(Function,ABCD)声明都是有效的，他们调用的是同一个 SetFocus函数∶ Declare Function SetFocus Lib user32 SetFocus (ByVal hwnd As Long) As Long Declare ABCD SetFocus Lib user32 Alias SetFocus (ByVal hwnd As Long) As Long 需要注意的是，选用Alias的时候，应注意别名的大小写；如果不选用Alias 时的时候，函数名必须注意大小写，而且不能改动。当然，在很多情况下，由于函数声明是直接从API 文本游览器中拷贝过来的，所以这种错误的发生机会是很少的，但您有必要知道这一点。 最后提醒你一句，API声明(包括结构、常数)必须放在窗体或模块的通用(General Declarations)段。 数据类型与类型安全 API函数中使用的数据类型基本上和VB中的一样。但作为WIN32的API函数中，不存在Integer 数据类型。另外一点是在API函数中看不到Boolean数据类型。 Variant数据类型在API函数中是以Any的形式出现，如Data As Any。尽管其含义是允许任意参数类型作为一个该API函数的参数传递，但这样做存在一定的缺点。其原因是，这将会使得对目标参数的所有类型检查都会被关闭。这自然会给各种类型的参数调用带来了产生错误的机会。 为了强制执行严格的类型检查，并避免上面提到的问题，一个办法是在函数里使用上面提到到Alias技术。如对API函数 GetDIBits 可进行另外一种声明方法。如下∶ GetDIBits函数的原型∶ Public Declare Function GetDIBits Lib gdi32 Alias GetDIBits (ByVal aHDC As Long, ByVa