通过使用VBA,，你已经习惯于使用对象以及它们继承的属性和方法了。事实上，用任何其他的方法编程是很困难（甚至是很痛苦）的。不幸的是，仍然存在大量的只能提供给老式的、非面向对象方法的功能。一个典型的例子是函数调用的海洋棗Windows API。使用类模块的一个诱人特征就是你可以用一套公共接口将这样的功能体包如可以管理的对象。这就是说，你可以隐藏相关的信息集的详细资料，并将它展现给对象。

　　 例如，假定你已经在某个VBA项目中找到了与用户的键盘进行交互作用的需要。那么你可能想加快或降低箭头闪烁的速度；了解用户具有多少个功能键；修改键盘重复速度及重复之前的延迟时间，或者检索和设置功能键的状态，例如n, c和o。为了做到这一点，需要使用Windows API,，并且需要声明、外部函数调用、使用用户定义的类型和API定义的常量棗所有这些都是令人感到不愉快的。

　　 如果你有一个简单的Keyboard对象，可以提供属性来为你完成所有的工作，这不是很好吗？当然是！另外，正如已经指出的，这就是本文的目标。Windows API提供了大量的有关键盘的信息，但是检索它需要调用大量 的函数，因此你必须知道应该调用哪个函数，如何调用它们，它们返回什么信息等等。本文介绍了一个VBA Keyboard类，它具有图1中所介绍的属性（使用它们创建的模块和对象的更加吸引人的一个原因是你可以从相同的类例示多个对象，尽管你从不需要在单个应用程序中创建Keyboard类的多个实例，不使用类模块也是没有理由的）。

Property Description Allowable Values Read/Write

KeyboardType Determines the type (number of keys) of the keyboard. N/A R

FunctionKeys Determines the number of function keys. N/A R

CapsLock Retrieves or sets the state of the c toggle. True/False R/W

NumLock Retrieves or sets the state of the n toggle. True/False R/W

ScrollLock Retrieves or sets the state of the o toggle. True/False R/W

Delay Retrieves or sets the keyboard repeat-delay setting. 0-3 R/W

Speed Retrieves or sets the keyboard repeat speed. 0-31 R/W

CaretBlinkTime Retrieves or sets the number of milliseconds between blinks of the insertion caret. 200-1200 (generally in increments of 100) R/W

　　 图1 Keyboard类提供的属性

　　 为了测试一下Keyboard.cls（你将在本文的稍后部分找到代码，它还可以通过下载提供棗请参阅本文结尾以获取详细信息），你首先需要一个名为Keyboard的类模块，然后将你的代码插入项目。一旦已经在你的项目中获得了Keyboard类模块，你就可以像使用任何其他类一样使用它了。例如，使用Keyboard类创建该类的一个新实例，然后设置或检索它的可提供属性。例如，为了检索和设置当前键盘延迟设置，你可以使用类似如下的代码：

Dim okb As Keyboard

Set okb = New Keyboard

If okb.Delay < 3 Then

okb.Delay = okb.Delay + 1

End If

　　 这显然比直接调用大量的Windows API函数要容易得多！

用困难的方法来做

　　 为了完成它的工作，Keyboard需要调用Windows API。本节文章将研究特定的API调用。如果你怒感兴趣的话，可以介绍如何使用类的跳到下一节。

　　 键盘类型。检索键盘的类型和功能键的数目很简单。调用GetKeyboardType API函数，向它传递值0可获得键盘类型，传递值2可获得功能键 的数目。该函数将返回如图2所示的键盘类型，如图3所示的功能键数目。

Value Keyboard Type

1 IBM PC/XT or compatible (83-key)

2 Olivetti “ICO” (102-key)

3 IBM PC/AT (84-key) or similar

4 IBM enhanced (101- or 102-key)

5 Nokia 1050 and similar

6 Nokia 9140 and similar

7 Japanese

　　 图2 GetKeyboardType的键盘类型返回值

Value Number of Function Keys

1 10

2 12 (sometimes 18)

3 10

4 12

5 10

6 24

7 独立于硬件，由OEM指定

　　 图3 GetKeyboardType的功能键返回值

　　 当然，为了使用这些函数，类模块需要API函数的声明，因此它必须在它的Declarations段包括如下的代码行：

Private Declare Function GetKeyboardType Lib "User32" _

(ByVal lngTypeFlag As Long) As Long

为了检索键盘类型或功能键的数目（如前所述），Keyboard类模块应包含如下过程：

Property Get KeyboardType() As Long

KeyboardType = GetKeyboardType(0)

End Property

Property Get FunctionKeys() As Long

FunctionKeys = GetKeyboardType(2)

End Property

　　 键盘切换。为了设置键盘切换，你必须使用GetKeyboardState 和 SetKeyboardState API函数。为了检索切换键盘当前的状态，请使用GetKeyState函数。这需要如下的声明：

Private Declare Function GetKeyState Lib "User32" _

(ByVal lngVirtKey As Long) As Integer

Private Declare Function GetKeyboardState Lib "User32" _

(bytKeyState As Byte) As Long

Private Declare Function SetKeyboardState Lib "User32" _

(bytKeyState As Byte) As Long

　　 为了检索一个键的状态，请调用GetKeyState，传递代表该键盘键的Windows虚拟键码。幸运的是，VBA为n和 c提供了常量（vbKeyNumlock 和 vbKeyCapital)。不过，不是所有的VBA实现都为 o提供了一个相似的键常量，因此你可以需要自己定义常量。

Private Const vbKeyScrollLock = 145

　　 GetKeyState函数返回一个整数，包含了与你已经发送的键有关的信息，但是你所需要的只是最低位。为了只检索最低位，可以使用And操作符和值1来忽略除了最低位以外的所有信息。

　　 （注意：在二进制中，值1是由一串0后面跟着一个单独的1组成。这些数字中的每个都叫做“位”。 And操作符对两个操作数的每位进行逻辑运算，除非相同位置的两位均为1，否则结果位就为0。如果相同位置的两位均为1，那么结果为就为1。按这种方法，通过将返回值和1相与，除了最低位取决于返回值之外，输出的其余位将确保为0。输出的最后一位或者为0，或者为1，取决于GetKeyState返回的值。这没有帮助吗？回答是肯定的棗你不用深入研究位运算便可以利用VBA进行开发。通过在VBA IDE的联机帮助里面搜索“And operator”，还可以找到大量的帮助。或者，使用“Logical Operators” 来搜索可以了解逻辑操作符的整个家族）。

　　 为了确认是否已经设置了o切换，Keyboard类使用了如下的属性过程：

Property Get ScrollLock() As Boolean

' Return the ScrollLock toggle.

ScrollLock = CBool(GetKeyState(vbKeyScrollLock) And 1)

End Property

　　 你将发现类似的过程用于检索n和c切换的状态。

　　 设置切换的状态需要付出一点努力；你必须遵循如下步骤：

　　 调用一个API 函数 (GetKeyboardState)来检索整个键盘作为一系列字节（每个键盘一个字节）的当前状态。

　　 在字节数组的范围内，改变使你感兴趣的键的状态。

　　 调用一个API 函数(SetKeyboardState)，发送修改后的字节数组。该操作将设置整个键盘的状态。

　　 对于每个GetKeyboardState 或 SetKeyboardState函数，将256个字节数组的第一个元素传递给这个API函数。该函数或者用有关键盘的信息填充这个256个元素的数组，或者使用字节来设置键盘的状态。Keyboard类包括如下私有过程，它们可以完成所有的工作：

Private Sub SetKeyState(intKey As Integer, _

fTurnOn As Boolean)

' Retrieve the keyboard state, set the particular key in

' which you're interested; then set the entire keyboard

' state back the way it was, with the one key altered.

Dim abytBuffer(0 To 255) As Byte

Call GetKeyboardState(abytBuffer(0))

abytBuffer(intKey) = CByte(Abs(fTurnOn))

Call SetKeyboardState(abytBuffer(0))

End Sub

　　 这个类模块内部的代码调用这个过程（为n, c和o传递键常数）。SetKeyState过程按照前面列出的步骤来完成它的工作。例如，Property Let过程ScrollLock就是这个样子的：

Property Let ScrollLock(Value As Boolean)

' Set the ScrollLock toggle.

Call SetKeyState(vbKeyScrollLock, Value)

End Property

　　 可以重复延迟和速度。设置键盘重复速度以及在开始重复键之前键盘等待的毫秒数，并不是十分困难的。这些任务需要调用SystemParametersInfo函数来申请必要的信息或设置值。SystemParametersInfo是一个“抓错”函数；它可以做很多事情，你可以通过向它传递一个常数来表明你想让它做的事情。例如，为了将键盘延迟设置为3，你可以对SystemParametersInfo做如下调用：

Call SystemParametersInfo(SPI_SETKEYBOARDDELAY, _3, 0, SPIF_TELLALL)

　　 在这种情况下，第三个参数是不用的，因此将其设为0。第四个参数是一个在类模块中定义的常数，它的作用是告诉SystemParametersInfo更新合适的.ini文件和Windows注册表。这个常数还指示SystemParametersInfo向所有运行的Windows应用程序都发送一条消息，告诉它们你已经改变了设置。除了所使用的常数不同之外，设置重复速度的过程是相同的。

　　 为了使用SystemParametersInfo，你必须对它及你将要使用的任何参数进行声明。Keyboard类模块包括这些声明：

Private Const SPI_GETKEYBOARDDELAY = 22

Private Const SPI_SETKEYBOARDDELAY = 23

Private Const SPI_GETKEYBOARDSPEED = 10

Private Const SPI_SETKEYBOARDSPEED = 11

SystemParametersInfo flags

Private Const SPIF_UPDATEINIFILE = &H1

Private Const SPIF_SENDWININICHANGE = &H2

Private Declare Function SystemParametersInfo _

Lib "User32" Alias "SystemParametersInfoA" ( _

ByVal uAction As Long, ByVal uParam As Long, _

lpvParam As Any, ByVal fuWinIni As Long) As Long

' This is a made-up constant.

Private Const SPIF_TELLALL = SPIF_UPDATEINIFILE Or _

SPIF_SENDWININICHANGE

　　 使用SystemParametersInfo检索值需要做一些工作。为了检索值，你必须传递一个变量作为第三个参数，（一般）将0作为第四个参数。SystemParametersInfo用所要求的值来填充变量，下面是Keyboard类模块里面的一段：

Property Get Speed() As Long

Get the keyboard repeat-speed setting.

Dim lngValue As Long

Call SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, _

lngValue, 0)

Speed = lngValue

End Property

　　 使用^符号。还可以使用Windows API调用来设置和检索文字插入^符号之间闪烁的豪秒数。GetCaretBlinkTime函数用来检索有关^符号的信息，SetCaretBlinkTime函数用来设置闪烁时间。为了使用这些函数，你必须首先声明它们。

Private Declare Function GetCaretBlinkTime _

Lib "User32" () As Long

Private Declare Function SetCaretBlinkTime _

Lib "User32" (ByVal wMSeconds As Long) As Long

　　 一旦你已经声明了这些函数，它们的使用则是非常简单的。例如，为了设置^符号以便每隔50毫秒闪烁一次（不是非常好的主意），那么你可以编写如下的代码：

Call SetCaretBlinkTime(50)

　　 注意！^符号是全局资源，因此如果你为应用程序改变了闪烁时间的话，它将在所有应用程序中都改变。

　　 不要为详细资料而烦恼

　　 Don't Sweat the Details