VB教案－对话框.docVIP

[教案] 第八课　　对话框 授课方式：讲授法 授课学时：2学时 教学目的： 通过本次课的学习，学生应该掌握能灵活使用消息框（MsgBox）和输入对话框（InputBox）和通用对话框，体现用户界面更具有交互性。能灵活使用控件数组，并能编写出响应事件的代码。 教学重点和难点： 1．消息框（MsgBox）和输入对话框（InputBox）的语法格式； 2．各种属性的灵活使用。 教学过程： 消息框（MsgBox）和输入对话框（InputBox）和通用对话框 一、 消息框（MsgBox）和输入对话框 1．了解其在VB中的用途。 2．掌握基语法格式 　 3．实际中的应用 二、 通用对话框 1．用途 介绍其在VB中的用途。 2．主要属性 3．在实际中应用实例 《Visual Basic程序设计语言》授课教案 [讲稿] （八 对话框消息框（MsgBox）和输入对话框 1 InputBox 示例：设计一个程序，将输入的时、分和秒的和转换成秒数。要求从输入对话框输入时、分和秒数。 事件过程与代码： 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 Private Sub Command2_Click() MsgBox LCase(Text1.Text), 0, 转换成小写字母 End Sub 二、通用对话框 1、 通用对话框不是标准控件，默认情况下不在工具箱中。 2 、添加到工具箱的方法： “工程”——“部件”——“控件”选项卡，选中“Microsoft Common Dialog Control 6.0” 3 、通用对话框是一个后台控件。 4 、打开通用对话框的两种形式： Action属性 Show方法 表 Action属性值 方法 对话框类型 1 SnowOpen 打开 2 ShowSave 保存 3 ShowColor 颜色 4 ShowFont 字体 5 ShowPrint 打印机 6 ShowHelp 帮助 例： Commondialog1.Action = 1 Commondialog1.ShowOpen 1、文件对话框（打开、保存）需设置的属性 “打开”文件对话框属性页 属性 FileName：包含路径； FileTitle：不包含路径。 Filter：例如， Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：决定在文件类型列表框中显示第几组类型的文件。 InitDir：初始化路径。 例：用命令按钮的Click事件显示文件打开对话框。 CommonDialog1.InitDir= C:\Windows 设置初始目录 CommonDialog1.Filter = 文本文件 | *.Txt 过滤文件类型 CommonDialog1.CancelErro