VB消息框(MsgBox)和输入对话框(InputBox).pdfVIP

[教案 ] （八） 对话框 授课方式：讲授法 授课学时： 2 学时 教学目的： 通过本次课的学习，学生应该掌握能灵活使用消息框（ MsgBox ）和输入对话框 （InputBox ）和通用对话框，体现用户界面更具有交互性。能灵活使用控件数组， 并能编写出响应事件的代码。 教学重点和难点： 1．消息框（ MsgBox ）和输入对话框（ InputBox ）的语法格式； 2 ．各种属性的灵活使用。 教学过程： 消息框（ MsgBox ）和输入对话框（ InputBox ）和通用对话框 一、 消息框（ MsgBox ）和输入对话框 1．了解其在 VB 中的用途。 2 ．掌握基语法格式 3 ．实际中的应用 二、 通用对话框 1．用途 介绍其在 VB 中的用途。 2 ．主要属性 3 ．在实际中应用实例 《Visual Basic 程序设计语言》授课教案 [ 讲稿 ] （八） 对话框 一、消息框（ MsgBox ）和输入对话框 我们已学习了两个函数的语法格式，下面通过例子来说明其在实际的用法。 1 InputBox 1 示例：设计一个程序，将输入的时、分和秒的和转换成秒数。要求从输入对话框 输入时、分和秒数。 事件过程与代码： Private Sub Command1_Click() Dim h As Integer, m As Integer, s As Integer Dim x As Long h = Val(Text1.Text) m = Val(Text2.Text) s = Val(Text3.Text) x = h * 3600 + m * 60 + s Label1.Caption = 共计 Str(x) 秒 End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Command3_Click() Text1.Text = InputBox( 时间中的小时数 , 请输入 , 0) End Sub Private Sub Command4_Click() Text2.Text = InputBox( 时间中的分钟数 , 请输入 , 0) End Sub Private Sub Command5_Click() Text3.Text = InputBox( 时间中的秒数 , 请输入 , 0) End Sub 2 、MsgBox 函数 例题： ? 将文本框中的英文字母进行大小写切换。 切换结果用消息框给出。 事件过程与代码： ? Private Sub Command1_Click() ? MsgBox UCase(Text1.Text), 0, 转换成大写字母 ? End Sub 2 ? Private Sub Command2_Click() ? MsgBox LCase(Text1.Text), 0, 转换成小写字母 ? End Sub 二、通用对话框 通用对话框的使用： 1、 通用对话框不是标准控件，默认情况下不在工具箱中。 2 、添加到工具箱的方法： “工程 ”——“部件 ”——“控件 ”选项卡，选中 “Microsoft Common Dialog Control 6.0 ” 3 、通用对话框是一个后台控件。 4 、打开通用对话框的两种形式： Action 属性 Show 方法 表 Action 属性值 方法