精彩编程与编程技巧-保存复选框选项...

保存复选框选项

选项

在一些情况下，应用程序会用复选框来让用户对某些属性进行设置，并将这些设置保存到磁盘上以供下次使用。下面的程序能让减少处理用户设置所需的代码量。

一个复选框有两种状态，被选中(Checked)或是未被选中(UnChecked)。复选框的二进制的本质使我们能轻松地表示该控件的这两种状态。由于所有的复选框对这两种状态的回应都是一样的，因此把这些复选做为一个控件数组来处理会大大减少编写代码的工作量。

CBO_Click过程

CBO_Click过程通过控件数组的Click事件调用。它有两个常数，来决定复选框应做出怎样的反应。当设置LikeOptions时，一次只能选中一个复选框。当设置AllowNone时，允许用户不选中任何复选框。这两个开关能使复选框数组如同一组选择按钮一样。如果想让这些复选框操作起来象标准的复选框一样，就将LikeOptions设置为False或0，并将AllowNone设置为True或1. 如果想让这些复选框操作起来象一组选项按钮，就将LikeOptions设置为True或1，并将AllowNone设置为False或0。

CBO_Set过程

CBO_Set过程被用来调协复选框的状态。它通过CBO_Click过程调用，来强制一组复选框按照上面两个开关的设置来作出反应。同时它也可被程序员用来将一组复选框设为他所希望的状态。

过程参数

上面的两个过程都要求将对复选框数组的引用及当前正在使用的复选框的索引值作为参数传递给过程。将复选框的引用作为参数传递给过程，可以使这两个过程处理多个复选框数组。数组中所有复选框的当前状态用一个32位的数字来表示，该数字被储存在数组中第一个复选框的Tag属性中。在这里你可以访问些将被存盘以供下一个进程使用的数字。

第二个参数在两个过程中的使用情况和有不同。BO_Click过程需要VB提供复选框的Index值并传递给Click事件。但是CBO_Set过程却使用一个32位的数字。为把二者分开，用Index来保存VB提供的Index参数；CBOIndex用来保存32位的数字。在下面将分析这两个参数是如何使用的。

示例

为了说明这两个过程的功能，在窗体上放置一组复选框和一个文本框。为产生复选框数组，可以先在窗体上放置一个复选框，将其Index属性设为零，然后用拷贝、粘贴的方法产生一个复选框数组。然后输入下面的代码。

Dim CBOBusy As Boolean
Private Sub Check1_Click(Index As Integer)
CBO_Click Check1, Index
Text1 = Check1(0).Tag