2011年度计算机等级考试二级VB复习指导(55)

　　在该段程序中，首先使用If语句判断用户是否输入了姓名，如果没有，则弹出消息框提示用户。用户确定后，接着执行下面的代码--Exit Sub语句，退出事件过程，返回到对话框，用户可以重新输入姓名。如果没有该语句，则会接着执行该If语句块之外的其他语句，一直会执行到Unload Dialog语句关闭对话框。

　　在判断用户爱好的程序段中，也使用了If语句，如果用户选中了某爱好(复选框的Va1ue属性为1)，则在主窗口的相应标签中显示该爱好;如果没有选中某爱好(复选框的Value属性为0)，则在主窗口的相应标签中显示“//”符号。

　　在程序的最后，使用Unload Dialog(对话框窗体的名称为Dialog)语句关闭对话框，返回到主窗体。如果直接单击对话框中的【取消】按钮，也应该关闭对话框，而不影响到主窗体。因此，将Unload Dialog语句也添加到Cancelbutton_Click事件过程中：

　　Private Sub Cancebutton_Click()

　　　Unload Dialog

　　End Sub

　　通过工程的【属性】对话框将启动对象设置为MainForm，运行该程序，则主窗体显示在屏幕上，单击【填写资料】按钮，则弹出自定义对话框。

　　填写完整各选项后，单击【确定】按钮，则对话框被关闭，用户输入的个人资料显示在土窗体中。如果用户输入的姓名为“郝云”，性别为“男”，年龄为“23”，爱好为“书法”、“摄影”和“旅游”，单击【确定】按钮后，显示个人资料的主窗体。