计算机基础食谱,计算机技术基础（第十章 界面设计 ）

使用通用对话框控件(CommonDialog)可以创建多种标准对话框。

设计步骤：

(1)添加：工程(部件(选择

“Microsoft　Common　Dialog　Controls　6.0”

(2)在窗体的任意位置画通用对话框控件。

(3)设置通用对话框控件的“属性页”。

(4)在代码中使用以下方法打开对话框。

ShowOpen：显示“打开文件”对话框

ShowSave：显示“文件存储”对话框

ShowColor：显示“颜色”对话框

ShowFont：显示“字体”对话框

ShowPrinter：显示“打印”对话框

ShowHelp：显示“帮助”对话框

1．文件对话框

属性页：

【例10-7】使用打开文件对话框，在运行时打开一幅图像。

在窗体Form1上放置一个图像控件、一个通用对话框控件、一个命令按钮，界面如图所示。

其中，CommonDialog1的属性页设置如下：

“装入图像”按钮代码如下：

Private　Sub　Command1_Click()

CommonDialog1.ShowOpen

Image1.Picture=_

LoadPicture(CommonDialog1.FileName)

End　Sub

在对话框中按取消按钮的处理：

(1)不处理：不设置“取消引发错误”

(2)处理：设置“取消引发错误”，编写代码如下：

Private　Sub　Command1_Click()

On　Error　GoTo　ErrHandler

CommonDialog1.ShowOpen

Image1.Picture=_

LoadPicture(CommonDialog1.FileName)

Exit　Sub

ErrHandler：

Exit　Sub

End　Sub

2．颜色、字体对话框

属性页：

【例10-8】设计如图所示的界面，运行时单击“背景色”按钮打开颜色对话框，在对话框中选择的颜色用于设置文本框的背景颜色，单击“字体”按钮打开字体对话框，在对话框中选择字体、效果及颜色，用于设置文本框文字的字体、效果及颜色。

“背景色”按钮Command1的Click事件过程如下：

Private　Sub　Command1_Click()

CommonDialog1.ShowColor

Text1.BackColor=CommonDialog1.Color

End　Sub

“字体”按钮Command2的Click事件过程如下：

Private　Sub　Command2_Click()

CommonDialog1.ShowFont

Text1.Font=CommonDialog1.FontName

Text1.FontBold=CommonDialog1.FontBold

Text1.FontItalic=CommonDialog1.FontItalic

Text1.FontStrikethru=_

CommonDialog1.FontStrikethru

Text1.FontUnderline=_

CommonDialog1.FontUnderline

Text1.ForeColor=CommonDialog1.Color

Text1.FontSize=CommonDialog1.FontSize

End　Sub