Visual Basic程序设计(第二版下)ppt666.ppt

Visual Basic程序设计(第二版下) 第8章 对话框 8.1 消息框 8.2 输入对话框 8.3 自定义对话框 8.4 通用对话框 习题 8.1 消息框 Visual Basic提供MsgBox函数。在执行此函数时，屏幕上会出现一个消息框，例如，在程序中有如下语句： intResult = MsgBox(″数据正确吗？″, 65, ″Message Box Example″) 程序执行这条语句的结果如图8.1所示。 图8.1 从图8.1可以看到，消息框由标题栏信息（如“Message Box Example”）、消息框中的提示信息（如“数据正确吗？”）、一个图标以及一个或多个命令按钮构成。图8.1所显示的消息框有两个命令按钮，用户可以单击“确定”或“取消”按钮。作为函数，MsgBox可以有返回值。函数的返回值与用户选择哪个命令按钮有关。在上面的语句中，将函数的返回值赋给变量intResult，可以根据返回值来判断用户选择了消息框上的哪个按钮。 【例8.1】设计一个程序，在窗体上放置一个标签、一个文本框和三个命令按钮，如图8.2所示。程序开始运行后，用户在文本框中输入一个密码，用这个密码与程序中事先给出的密码进行比较，如果两个密码不相同，系统就会显示一个消息框，提示用户输入的密码不正确；如果两个密码相同，也显示一个消息框，告诉用户输入的密码正确。如果用户选择了消息框上的“取消”按钮，则结束程序运行。单击“结束”按钮，也能结束程序的运行。 属性设置如表8.1（见书153页）所示。 图8.2 程序代码如下： Private Sub cmdClear_Click() txtPW.Text = ″″ txtPW.SetFocus End Sub 程序开始运行，用户若单击“输入密码”命令按钮，则先使文本框清空，并将光标设于文本框左端。然后用户从键盘向文本框输入密码，再单击“核对密码”命令按钮，执行以下过程： Private Sub cmdCheck_Click() pw$ = ″MyProgram″ ′这是预设的密码 Title$ = ″密码核对框″ Info1$ = ″你输入了正确的密码″ Info2$ = ″你输入的密码不正确″ If Text1.Text = pw$Then answer = MsgBox(Info1$, 65, Title$) ′1+64+0=65 Else answer = MsgBox(Info2$, 277, Title$) ′16+5+256=277 End If If answer = 2 Then End ′选择了“取消”按钮 If answer = 1 Then ′选择了“确定”按钮 command1.Visible = False command2.Visible = False Text1.Visible = False Label1.Caption = ″继续运行程序!″ End If End Sub 程序中事先设置了一个字符串“MyProgram”作为密码。假如用户输入的密码（即文本框txtPW的Text属性值）等于“MyProgram”(即pw$)，则执行： answer = MsgBox (Info1$，65，Title$) 屏幕上显示的消息框如图8.3所示。 图8.3 MsgBox函数的第1个参数是消息框中的提示文字。现在，函数中的第1个参数Info1$的值是“你输入了正确的密码”，可以看到这段文字出现在消息框的中间位置上。函数的第3个参数用来指定消息框的标题。现在，Title$值是“密码核对框”，它出现在消息框的顶部。第2个参数（现为65）决定消息框内的按钮和图标的种类、数目。该参数是3个数值相加之和。这3个数值分别代表按钮的类型、显示图标的种类和哪一个按钮是默认的“活动按钮”。表8.2~8.4（见书154页）分别列出这3个数值的含义。 表8.2中列出消息框中包括哪些按钮。当值为0时，消息框中只包含一个“确定”按钮；当值为1时，消息框中有“确定”和“取消”两个按钮，如图8.3所示。其余类推。 表8.3列出消息框中左上部显示的小图标的种类。 当值为16时，显示出如图8.4(a)所示的图标，当值为64时，显示出如图8.4(d)所示的图标，图8.3的消息框中就显示了这种图标。 表8.4列出哪一个按钮是默认的“活动按钮”。 图8.4 当值为0时，第1个按钮为默认的活动按钮，即运行开始时第1个按钮是激活的，或称为“焦点在第1个按钮处”。图8.3所