跟我学VB

《跟我学VB》由会员分享，可在线阅读，更多相关《跟我学VB（368页珍藏版）》请在金锄头文库上搜索。

1、编程高手之路跟我学 VB课程安排我们以最为普及的 VB 6.0 为例进行教程学习，循序渐进，保证你轻松掌握。第一章：我的第一个 VB 程序第二章：控件学习第一节Label 控件第二节TextBox 控件第三节综合示例一第四节CommandButton 控件第五节单选与复选控件第六节综合示例二第七节列表框控件第八节组合框控件第九节综合示例三第十节综合示例四第十一节滚动条第十二节综合示例五第十三节Timer 控件第十四节文件操作控件第十五节窗体第三章：用 Visual Basic 绘画：第一节图形框与图像框控件第二节综合示例六第三节直线与形状控件第四节常用的绘图方法第四章：菜单与多文档界面的制作：

2、第一节菜单界面设计第二节综合示例七第三节动态增减菜单第四节基本的窗体操作第五节多文档程序编程高手之路编程高手之路跟我学跟我学 VB进入进入 Windows API 的热身运的热身运动动VB 没有提供这样的功能， 必须呼叫 Windows API， 有时候笔者会这样回答读者的问题， 虽然这麽回答有点偷懒， 或者说不负责任， 但这的确是事实， VB 所提供的叙述、函数、物件虽然也不在少数， 但是都十分标准， 或者说规矩， 想变点花样， 通常是行不通的， 这是笔者决定开始撰写本文的主要原因。Windows API 是大家的感觉上 VB 程式要呼叫 Windows API 是一件比较困难的事情， 或者

3、说比较麻烦的事情， 但别忘了 Windows API 是大家的， 凡是在 Windows 工作环境底下执行的应用程式， 都有权利呼叫 Windows API。Windows 这个多工作业系统除了协调应用程式的执行、分配记忆体、管理系统资源之外， 她同时也是一个很大的服务中心， 呼叫这个服务中心的各种服务(每一种服务就是一个函数)， 可以帮应用程式达到开启视窗、描绘图形、使用周边设备等目的， 由於这些函数服务的对象是应用程式(Application)， 所以便称之为 Application Programming Interface， 简称 API 函数。但 Windows API 与 C 语言

4、最亲近 虽然说呼叫 Windows API(以下简称 API 或 API 函数) 是每一个应用程式的权利， 但不可否认的 API 却与 C 语言最亲近， 因为 API 函数在参数的传递上就是以 C 语言为标准。但这并不表示 VB 程式不能呼叫含有参数的 API 函数， 如果传递的参数是单纯的资料型别， 例如整数， 则 VB 与 C 语言还是相通的， 如果是特殊的资料型别(包含字串)， 则必须遵循一定的规范， 否则不是无法得到正确的结果， 就是因为违反规定而被踢出系统。如何正确地传递各种资料型别的参数， 是 VB 程式呼叫 API 很重要的课题， 当然也是本系列讲座的重点。物件 vs. hand

5、le除了参数传递方式有所不同之外， 要以 VB 程式呼叫 API， 还要具备 Windows 程式设计的 handle 观念。VB 的程式设计模式是以物件为核心， 但 Windows 的程式设计模式却是以 handle 为核心， 以下笔者先举个简单的例子来说明， 假设有一 VB 的表单 Form1， 若要改变此一表单的标题， 则使用的方法是设定表单物件的 Caption 属性， 叙述如下：Form1.Caption = “新的标题“若以 API 来执行相同的工作， 则叙述如下：ret = SetWindowText( Form1.hwnd, “新的标题“ )其中 Form1.hwnd (hwn

6、d 是 handle of window 的缩写)代表的是 Form1 这个表单视窗的 handle 。以下是呼叫此一 API 函数的完整程式：Private Declare Function SetWindowText Lib _“user32“ Alias “SetWindowTextA“ _(ByVal hwnd As Long, ByVal lpString As String) As LongPrivate Sub Command1_Click()ret = SetWindowText(Me.hwnd, “新的标题“)End Sub由於笔者接下来的解说会继续使用此一函数， 请将以上程

7、式输入於表单的程式视窗中， 并且在表单上布置一个 Command1 命令钮。(如果懒得输入， 可进入笔者网站下载)handle 是什麽？ handle 是什麽？让我们来检查看看， 首先在 SetWindowText 之後增加以下叙述：Print TypeName(Form1.hwnd)Print Form1.hwnd结果 TypeName 印出 Long， 这表示 handle 的资料型别是 Long， 而接下来的 Form1.hwnd 则印出一个整数值。handle 只是一个整数值吗？一个整数值能够做什麽呢？真实世界的 handle handel 就字义来说， 是器具的把手， 以锅子为例，

8、把手的用途是方便我们取用锅子里的食物， 它本身虽然没什麽用， 却可以帮我们取得有用的食物， 再举个例子， 车子的门把也叫做 handle， 虽然门把好像也没什麽大用处， 但透过门把打开车门， 可以让我们使用整部车子， 也许有人会捧着锅子吃东西， 或者打破车窗进入车子， 但使用锅把取用食物及使用门把打开车门还是最方便的事情。handle 者， 存取 Windows 资源之识别码 在 Windows 的世界里， 充满着各种不同的系统资源， 例如视窗、功能表、图片、记忆体、程式、程序等， 都算是系统资源， 而 Windows 是这些资源的总管理者， 为了能够管理这些资源， Windows 必须给每一

9、资源一个唯一的识别码， 此一识别码便称为 handle。Windows 世界的 handle 与真实世界的把手在观念上很类似， 由於每一个 handle 都是一个唯一的识别码， 因此当程式要求 Windows 提供存取资源的服务时， 须出具此一识别码， 如此 Windows 便可以找到此一识别码所对应的资源， 然後进行存取的工作， 所以 handle 虽然只是一个整数值， 但它就像是锅子的把手可用来取用锅子的食物一样， 此一数值则可用来取用 Windows 的系统资源。handle 最重要的特性是同一时间不会有两个资源的 handle 值是相同的， 在前面的 SetWindowText API

10、 函数中， 程式传入 Form1 表单视窗的 handel， 所以 Windows 便能够根据此一唯一的 handle 值， 取得该 handle 所对应的视窗资源， 进而将把标题设定给这个视窗。从 handle 到物件 对很多 VB 的物件而言， 都含有 handle 性质的属性， 如图-1， 当我们使用这类物件时， 除了可以利用该物件的属性及方法来操作物件外， 也可以利用其中 handle 性质的属性来呼叫 API， 直接启动 Windows 所提供的服务， 以前面的 SetWindowText(Form1.hwnd, “新的标题“) 为例， hwnd 便是附属於 Form1 的 hand

11、le 性质属性。图-1 含有 handle 的物件简单地说， VB 所提供的物件并没有把 Windows 的 handle 程式设计模式丢到一边， 而是将 handle 封装起来， 使之成为物件的一个属性。注：虽然说 Windows 的程式设计是以 handle 为核心， 但仍然有不少 API 函数是与 handle 无关的， 例如字串的复制， 这类 API 函数通常不会使用到 Windows 所配置的系统资源， 所以不需要使用 handle。使用 Windows API 的难处当我们要开始使用 API 时， 必须知道叁件事情：(1) 要呼叫哪一个 API 函数。(2) 如何宣告 API 函数

12、。(3) 如何传递参数。这是以上叁件事情当中最困难的一件， 主要的原因是 Windows 的 API 实在太多了， 大约有 1500 个， 这还不包含 OLE、ODBC等特殊的 API， 此外， 如果我们把 API 按不同性质加以分类， 则使用每一类 API 函数所应具备的背景知识亦各有不同， 以系统注册区相关的 API 函数为例， 就必须先了解 Windows 如何安排系统注册区， 以及存取系统注册区的方式。不过也不必被 1500+ 个函数给打退堂鼓了， 因为不是所有的程式设计都要仰赖 API， 当我们面对一个问题时， 首先还是寻求 VB 的解决方案， 如果 VB 实在无法解决， 才考虑使用

13、 API， 当然， 笔者接下来的讲座也不是 API 函数一个一个往下介绍， 而会先过滤掉那些可用 VB 完成的 API。如何宣告 API 函数 在 VB 程式中， 若要使用 VB 内建的叙述或函数， 不必事先宣告直接呼叫即可， 若要使用 API 函数， 则必须在先把 API 函数的出处、函数名称、参数、传回值等宣告在表单的 “一般“ 区块或是一般模组(.bas 档案)中， 感觉上也是一件挺麻烦的工作， 但由於 VB 提供有辅助程式， 所以相对於另外两件事情， 反倒是最轻松的。如何传递参数 由於 API 采用了 C 语言的参数传递方式， 而 C 语言的参数传递又与 VB 有着不小的差异， 以致不

14、少呼叫 API 所造成的错误都发生在参数传递时， 所以本期我们将会有不少的篇幅放在如何传递参数上面。如何宣告 Windows APIAPI 函数的宣告并不困难， 因为我们可以请 VB 的API 检视员来帮忙， 以下是使用API 检视员的方法：要呼叫哪一个 API 函数 1. 首先选取 VB 功能表的增益集/增益功能管理员， 然後在增益功能管理员交谈窗中核取VB API Viewer， 按下确定钮後， VB 的增益集功能表栏底下就会出现API 检视员， 选取此一命令， 即可启动API 检视员。2. 第一次执行 API 检视员时， 须利用功能表的档案/载入文字档载入 VB Winapi 目录底下的

15、 Win32api.txt， 接着在可选项的项目底下即会列出所有的 API 函数， 若我们双按其中的函数， 则该函数的宣告即会出现在选取的项目底下， 此时再按下复制钮， 可将选取的函数宣告复制到剪贴簿， 过程如图-2， 接着回到 VB 的程式视窗， 再选取功能表的编辑/复制， 即可将函数的宣告从剪贴簿中复制过来。图-2 利用API 检视员将 API 的宣告复制到剪贴簿接下来请注意 API 宣告式复制到 VB 程式的位置， 此时您有两种选择：(1) 先利用 VB 功能表的专案/新增模组新增一个一般模组(.bas 档)， 然後将 API 宣告式复制到此一模组的程式视窗中， (2) 将 API 宣告

16、式复制到表单程式视窗的 “(一般)“ 区块底下， 但复制过来之後， 必须在 Declare 前面加上 Private 保留字。将 API 宣告式放在一般模组与表单模组的差异是：放在一般模组的 API 函数， 可供同一专案的所有程式使用， 若放在表单模组， 则只有宣告 API 函数的表单可以使用。提升载入 API 宣告式的速度 如果您经常使用 API 检视员， 就会发现载入 Win32api.txt 是蛮花时间的， API 检视员允许我们将此一档案转换成 mdb 格式的资料库， 此时所使用的命令是功能表的转换文字档为资料库， 转换之後， Win32api.txt 的所在目录会增加 Win32api.mdb 资料库档案， 将来我们便可以利用功能表的档案/载入资料库档案来载入此一资料库档案， 则载入的速度确实提升不少。不过 API 检视员实在有点阿达， 因为载入 Win32ap