vb练习题,电子版 第12章 对话框程序设计

第十二章 对话框程序设计

教学要求：

对话框的分类与特点；自定义对话框；通用对话框；文件对话框。

了解对话框的作用和设计手段，掌握通用对话框控件的基本用法。能够自主设计出一个外型美观，功能全面的对话框。

知识点：

内容导航：

一、对话框的概念

（一）对话框的定义

对话框是一种特殊的窗口（窗体），它通过显示和获取信息与用户进行交流。

（二）对话框的分类和特点

1．对话框的分类

在Visual Basic中，对话框分为预定义对话框、自定义对话框和通用对话框。

2．对话框的特点

（1）在一般情况下，用户没有必要改变对话框的大小，因此其大小是固定的。

（2）为了退出对话框，必须单击其上的某个按钮，不能通过单击对话框外部的某个地方关闭对话框。

（3）在对话框中不能有最大化按钮和最小化按钮，以免被意外的扩大或缩成图标。

（4）对话框不是应用程序的主要工作区，只是临时使用，使用后就关闭。

（5）对话框控件的属性可以在设计阶段设置，但在有些情况下，必须在运行时设置控件的属性，因为某些属性设置取决与程序中的条件判断。

二、预定义对话框

预定义对话框即使用MsgBox和InputBox函数建立的信息框和输入框。

三、自定义对话框

预定义对话框很容易建立，但在应用上有一定的限制，例如输入框只有一个输入区域。如果需要比输入框或信息框功能更多的对话框，就只能由用户自己建立。

四、通用对话框控件

用MsgBox和InputBox函数可以建立简单的对话框。如果需要，也可以自己定义对话框。当定义的对话框较复杂时，将会花费较多的精力。为此Visual Basic 6.0提供了通用对话框控件，用它可以定义较为复杂的对话框。为了把通用对话框加到工具箱中，可按以下步骤操作：

①执行“工程”菜单中的“部件”命令，打开“部件”对话框；

②在对话框中选择“控件”选项卡，然后在控件列表框中选择“Microsoft Common Dialog

Control 6.0”；

③单击“确定”按钮，通用对话框即被加到工具箱中。

五、文件对话框

文件对话框分为两种，即打开（Open）文件对话框和保存（Save As）文件对话框。相应的使用方法是en和ve。

了解文件对话框的结构和文件对话框的属性，着重了解FileName（文件名）属性、InitDir

属性和Filter（过滤器）属性的用法。

六、其他对话框

用通用对话框控件除了能建立文件对话框外，还可以建立其他一些对话框，包括颜色对话框、字体对话框和打印对话框等。

训练：

一、选择题：

1．在用通用对话框控件建立“打开”文件对话框或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件，则正确的描述格式是________。

A)"(*.TXT)|*.TXT"

B)"文本文件 (.txt)|(.txt)"

C)"text(.text)||(*.text)"

D)"text(.text)(*.text)"

2．为了显示字体对话框；下列方法正确的是________。

A)nt

B)en

C)lor

D)ve

3．在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Private Sub Command1_Click()

me=" "

="All file |*.*|(*.Doc)|*.Doc|(*.Txt)|*Txt"

Index=2

Title="VBTest"

=1

End Sub

对于这个程序，以下叙述中错误的是________。

A)在该对话框中指定的默认文件类型为文本文件(*.Txt)

B)在该对话框中指定的默认文件名为空

C)该对话框的标题为VBTest

D)该对话框被设置为“打开”对话框

4．在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。能够满足上述要求的程序是________。

A)Private Sub Command1_Click()

me="SaveFile"

="All file |*.*|(*.txt)|*.txt|(*.doc)|*doc"

Index=2

Title="Save"

=2

End Sub

B)Private Sub Command1_Click()

me="SaveFile"

="All file |*.*|(*.txt)|*.txt|(*.doc)|*doc"

Index=1

Title="Save"

=2

End Sub

C)Private Sub Command1_Click()

me="Save"

="All file |*.*|(*.txt)|*.txt|(*.doc)|*doc"

Index=2

Title="SaveFile"

=2

End Sub

D)Private Sub Command1_Click()

me="SaveFile"

="All file |*.*|(*.txt)|*.txt|(*.doc)|*doc"

Index=1

Title="Save"

=1

End Sub

5．以下叙述中错误的是________。

A)在程序运行时，通用对话框控件是不可见的

B)在同一程序中，用不同的方法（如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用

C)调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件

D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框

6．通用对话框CommonDialog中的六种方法为________。

A)ShowOpen B)ShowOpen C)ShowOpen D)ShowOpen

ShowSave ShowClose ShowOut ShowClose

ShowColor ShowColor ShowSave ShowFont

ShowFont ShowFont ShowFont ShowOut

ShowPrinter ShowPrinter ShowPrinter ShowPrinter

ShowHelp ShowHelp ShowHelp ShowHelp

7．在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示“打开”对话框，要求在给对话框的“文件类型”栏中只显示扩展名为.DOC的文件，则对通用对话框的Filter属性的正确设置是________。

A)"(*.DOC) *.DOC" B)"(*.DOC)|(.DOC)"

C)"(*.DOC)||*.DOC" D)"(*.DOC)|*.DOC"

8．窗体上有一公共对话框CommonDialog1和一个命令按钮Command1，当单击按钮时程序的功能是________。

Private Sub Command1_Click()

lor

End Sub

A)打开文件对话框 B)打开颜色对话框

C)打开字体对话框 D)打开保存对话框

9．窗体中有一个命令按钮Command1、一个选择按钮OptionButton（设置该选项按钮的Index属性为0）以及一个CommonDialog控件。编写如下代码：

Private Sub Command1_Click()

If Option1(1).Value Then

lor

ElseIf Option1(2).Value Then

= cdlCFBoth

nt

End If

End Sub

Private Sub Form_Paint()

Static FlagFormPainted As Integer

If FlagFormPainted <> True Then

For i = 1 To 2

Load Option1(i)

Option1(i).Top = Option1(i - 1).Top + 350

Option1(i).Visible = True

Next i

Option1(1).Caption = "color"

Option1(2).Caption = "font"

n = "Show Dlg"

FlagFormPainted = True

End If

End Sub

程序运行后，分别选择两个选项，确认后点击命令按钮，显示________。

A)选择“Color”后，弹出共用颜色选择对话框，选择“Font”后，弹出共用字体选择对话框

B)选择“Color”后，弹出通用对话框选择颜色，选择“Font”后，弹出通用对话框选择字体

C)选择“Color”后，弹出文件选择对话框选择颜色文件，选择“Font”后，弹出文件选择对话框选择字体

D)选择“Color”后，弹出256色供选择，选择“Font”后，弹出常用字体供选择

10．刚建立一个新的标准EXE工程后，不在工具箱里出现的控件是________。

A)单选按钮 B)图片框 C)通用对话框 D)文本框

11．在使用打印对话框时，一般不会用到的属性是________。

A)Copies B)FileName C)ToPage D)FormPage

12．为使对话框显示为颜色对话框，下列方法正确的是________。

A)en

B)=2

C)lor

D)=8

13．通用对话框Msgbox作为函数的返回值一般为________。

A)Integer B)String C)Variant D)Long

二、填空题：

1．对话框可以被看作一种特殊的窗体，它的大小________。

2．通用对话框可以提供________种形式的对话框。

3．使用通用对话框的________方法或设置Action值为________时可显示“字体”对话框。

4．若已在窗体中加了一个通用对话框；要求在运行时，通过ShowOpen打开对话框时只显示扩展名为DOC的文件，则对通用对话框的Filter属性正确的设置是________。

5．使通用对话框C1显示为一个标准的颜色对话框，应使用语句________。

6．在打开对话框中，用户选中文件的文件名可通过________属性得到。

三、程序填空题：

1．下列程序的作用是使用字体对话框修改文本框字体的样式，完成下列程序。

Private Sub Command1_Click()

Error = True

On Error GoTo ErrHandler

= cdlCFEffects Or cdlCFBoth

CommonDialog1. 【1 】

= me

= 【2 】

= ld

= alic

ine = 【3 】

thru = rikethru

Exit Sub

ErrHandler:

End Sub

四、编程题：

1．设计一个简单的画板程序，用鼠标左键可以在图片框Picture1中绘图。

2．设计一个记事本应用程序。其中“编辑”菜单里有“剪切”、“复制”、“粘贴”三个子菜单。“文本风格”里有“粗体”、“斜体”两个子菜单。弹出式菜单里也有简切、复制、粘贴功能。

3．在窗体上画一个文本框和3个命令按钮，在文本框中输入一段文本（汉字），然后实现以下操作：

（1） 通过字体对话框把文本框中文本的字体设置为黑体，字体样式设置为粗斜体，字体大小设置为24。该操作在第一个命令按钮的事件过程中实现。

（2） 通过颜色对话框把文本框中文字的前景色设置为红色。该操作在第二个命令按钮的事件过程中实现。

（3） 通过颜色对话框把文本框中文字的背景色设置为黄色。该操作在第三个命令按钮的事件过程中实现。