VB基础教程第六章：输入（第6页）

　　下面介绍复选按钮，假设编写了一个共享软件，在让用户注册的时候你想知道你的用户使用的计算机情况，你就需要一个调查表，为了使这个调查表不止枯燥，可以在这个程序中加入一些图形。新建一个项目文件，窗体布局如图6－10。

　　程序很简单，一共有两个框架（Frame1和Frame2），它们的Caption分别为“选择你的计算机拥有的配置”和“这是你的计算机系统”，在Frame1有四个检查框（Check1到Check4），Caption分别为“网络系统”、“鼠标”、“密码保护”和“电子邮件”，另把Check4的Enabled属性改为False，使其无效；在Frame2中放置四个图片框（Picture1到Picture4）与四个检查框向对应，请把所有图片框的BorderStyle属性设为0（无边框），它们的Picture属性请根据上图，在存放图标的目录中找到相对的图标。下面是程序代码：

Private Sub Check1_Click()
　　If Check1.Value Then
　　　　Check4.Enabled = -1
　　　　Picture1.Visible = -1
　　Else
　　　　Check4.Enabled = 0
　　　　Picture1.Visible = 0
　　　　Check4.Value = 0
　　　　Picture4.Visible = 0
　　End If
End Sub

Private Sub Check2_Click()
　　If Check2.Value Then
　　　　Picture2.Visible = -1
　　Else
　　　　Picture2.Visible = 0
　　End If
End Sub

Private Sub Check3_Click()
　　If Check3.Value Then
　　　　Picture3.Visible = -1
　　Else
　　　　Picture3.Visible = 0
　　 End If
End Sub

Private Sub Check4_Click()
　　If Check4.Value Then
　　　　Picture4.Visible = -1
　　Else
　　　　 Picture4.Visible = 0
　　End If
End Sub

这个程序比我们见过的任何程序都简单，就不再做说明。