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

[教案]

（八）对话框

授课方式：讲授法

授课学时：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 ：初始化路径。 Filte FileNa

InitDir

FilterInde DialogTiltle

FileName

Filter FilterIndex

DefaultExt

例：用命令按钮的Click 事件显示文件打开对话框。

CommonDialog1.InitDir= "C:\Windows " ' 设置初始目录

CommonDialog1.Filter = "文本文件 | *.Txt" ' 过滤文件类型

CommonDialog1.CancelError = True ' 控制取消按钮

CommonDialog1. ShowOpen ' 打开对话框

2.、“另存为”对话框

没有提供真正的存储文件操作，仍需要编程完成储存操作。

属性 DefaultExt ：缺省扩展名。

3. “颜色”对话框

属性 Color ：返回或设置选定的颜色。

例：“颜色”对话框的使用。

4.“字体”对话框

Flags 属性：指示所显示的字体类型

cdlCFScreenFonts &H1 屏幕字体

cdlCFPrinterFonts &H2 打印机字体

cdlCFBoth &H3 打印机字体和屏幕字体。

FontName FontBold 、FontItalic

FontSize FontStrikethru

FontUnderline

Color

Min 、Max