69界面设计PPT课件
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第七章
—— 用户界面设计
06.12.2020
1
一、对话框的设计 • 对话框: 特殊类型的窗体对象。 • 作用: 是用户和应用程序交互的主要途径。 • 建立方法:
• 使用预定义对话框，即输入框、消息框。 • 自定义对话框。 • 使用CommonDialog控件创建通用对话框。 1 自定义对话框 设计步骤 : (1) 添加窗体: 工程添加窗体。 (2) 将窗体定义成对话框风格。
06.12.2020
12
(2) 处理: 设置“取消引发错误”，编写代码如 下: Private Sub Command1_Click() On Error GoTo ErrHandler CommonDialog1.ShowOpen Image1.Picture = _ LoadPicture(CommonDialog1.) Exit Sub ErrHandler: Exit Sub End Sub
CancelError
06.12.2020
9
例：使用打开文件对话框，在运行时打开一幅图像。
在窗体Form1上放置一个图像控件、一个通用对话 框控件、一个命令按钮，界面如图所示。
CommonDialog1
06.12.2020
Image1 Command1
10
指文件名
All files|*.*|Bmp Files|*.bmp|Icon Files|*.ico
CommonDialog1.ShowSave
Open CommonDialog1. For Output As #1
Print #1, Text1.Text
'保存文件
Close #1
' 关闭文件
End Sub
06.12.2020
16
颜色对话框
由ShowColor方法打开颜色对话框 重要属性Color，它返回或设置选定的颜色
通用对话框的类型 打开文件对话框 另存为对话框 颜色对话框 字体对话框 打印机对话框 帮助对话框
Action属性
Show方法
1
ShowOpen
2
ShowSave
3
ShowColor
4
ShowFont
5
ShowPrinter
6
ShowHelp
该属性只能在程序中赋值
06.12.2020
6
•DialogTiltle属性 设置通用对话框标题 •CancelError属性
如:不能移动、改变尺寸、最大或最小化
06.12.2020
2
Hale Waihona Puke Baidu
例: BorderStyle设置为1—单边框，不能改变大小 ControlBox设置为False—删除控制菜单框 MaxButton设置为False—删除最大化按钮 MinButton设置为False—删除最小化按钮
(3) 在对话框上添加按钮，如“确定”与“取消”按 钮。
ShowOpen: 显示“打开文件”对话框 ShowSave: 显示“文件存储”对话框 ShowColor: 显示“颜色”对话框 ShowFont: 显示“字体”对话框 ShowPrinter: 显示“打印”对话框 ShowHelp: 显示“帮助”对话框
06.12.2020
5
•Action属性和Show方法 打开对话框
True：选择取消按钮，Err.Number设置 为32755(cdCancel)。
False：选择取消按钮，没有错误警告。
06.12.2020
7
打开文件对话框
由 ShowOpen方法来实现
重要属性 :
(1) 文件名称，包含路径 (2) 文件名，不包含路径 (3) Filter 确定所显示文件的类型
例如: Form2.Show vbModal
Form2.Show vbModeless
为确保对话框可以随其父窗体的最小化而
最小化，随其父窗体的关闭而关闭，需要在 Show方法中定义父窗体。
例如: Private Sub Command1_Click()
Form2.Show vbModeless, Form1
(4) 在对话框上添加其它控件。 (5) 在适当的位置编写显示对话框的代码。
两种显示方式: 模式对话框与无模式对话框 。 • 显示模式对话框:
窗体名.Show vbModal 或: 窗体 名.Show 1
• 显示无模式对话框: 窗体名.Show vbModeless
06.12.20或20: 窗体名.Show 0 或: 窗体名.Show 3
例: 典型的颜色命令按钮编写事件过程，设置文 本框的前景色。
Sub Command3_Click ()
End Sub
(6) 编写从对话框退出的代码
例如: Unload Form2
或: Form2.Hide
06.12.2020
4
二、通用对话框
使用通用对话框控件(CommonDialog)可以创建多种标准对 话框。
设计步骤: (1) 添加: 工程 部件 选择
“Microsoft Common Dialog Controls 6.0” (2) 在窗体的任意位置画通用对话框控件。 (3) 设置通用对话框控件的“属性页”。 (4) 在代码中使用以下方法打开对话框 。
例如：Text Files|*.txt|所有文件|*.*显示文本 文件和所有文件 (4) FilterIndex文件列表中指定某类型文件 (5) InitDir 初始化路径
06.12.2020
8
1.文件对话框 属性页:
DialogTitle
InitDir Filter
Flags DefaultExt Max FilterIndex
06.12.2020
13
综合应用举例：
06.12.2020
14
InitDir
FilterIndex
06.12.2020
Filter
15
保存文件对话框
由 ShowSave方法来实现
与打开文件对话框的属性基本相同，特有的属性
是DefaultExt属性，用于设置缺省的扩展名 。
读程序,写结果:
Sub Command2_Click ()
06.12.2020
11
“装入图像”按钮代码如下： Private Sub Command1_Click()
CommonDialog1.ShowOpen Image1.Picture = _
LoadPicture(CommonDialog1.) End Sub 在对话框中按取消按钮的处理: (1) 不处理: 不设置“取消引发错误”
—— 用户界面设计
06.12.2020
1
一、对话框的设计 • 对话框: 特殊类型的窗体对象。 • 作用: 是用户和应用程序交互的主要途径。 • 建立方法:
• 使用预定义对话框，即输入框、消息框。 • 自定义对话框。 • 使用CommonDialog控件创建通用对话框。 1 自定义对话框 设计步骤 : (1) 添加窗体: 工程添加窗体。 (2) 将窗体定义成对话框风格。
06.12.2020
12
(2) 处理: 设置“取消引发错误”，编写代码如 下: Private Sub Command1_Click() On Error GoTo ErrHandler CommonDialog1.ShowOpen Image1.Picture = _ LoadPicture(CommonDialog1.) Exit Sub ErrHandler: Exit Sub End Sub
CancelError
06.12.2020
9
例：使用打开文件对话框，在运行时打开一幅图像。
在窗体Form1上放置一个图像控件、一个通用对话 框控件、一个命令按钮，界面如图所示。
CommonDialog1
06.12.2020
Image1 Command1
10
指文件名
All files|*.*|Bmp Files|*.bmp|Icon Files|*.ico
CommonDialog1.ShowSave
Open CommonDialog1. For Output As #1
Print #1, Text1.Text
'保存文件
Close #1
' 关闭文件
End Sub
06.12.2020
16
颜色对话框
由ShowColor方法打开颜色对话框 重要属性Color，它返回或设置选定的颜色
通用对话框的类型 打开文件对话框 另存为对话框 颜色对话框 字体对话框 打印机对话框 帮助对话框
Action属性
Show方法
1
ShowOpen
2
ShowSave
3
ShowColor
4
ShowFont
5
ShowPrinter
6
ShowHelp
该属性只能在程序中赋值
06.12.2020
6
•DialogTiltle属性 设置通用对话框标题 •CancelError属性
如:不能移动、改变尺寸、最大或最小化
06.12.2020
2
Hale Waihona Puke Baidu
例: BorderStyle设置为1—单边框，不能改变大小 ControlBox设置为False—删除控制菜单框 MaxButton设置为False—删除最大化按钮 MinButton设置为False—删除最小化按钮
(3) 在对话框上添加按钮，如“确定”与“取消”按 钮。
ShowOpen: 显示“打开文件”对话框 ShowSave: 显示“文件存储”对话框 ShowColor: 显示“颜色”对话框 ShowFont: 显示“字体”对话框 ShowPrinter: 显示“打印”对话框 ShowHelp: 显示“帮助”对话框
06.12.2020
5
•Action属性和Show方法 打开对话框
True：选择取消按钮，Err.Number设置 为32755(cdCancel)。
False：选择取消按钮，没有错误警告。
06.12.2020
7
打开文件对话框
由 ShowOpen方法来实现
重要属性 :
(1) 文件名称，包含路径 (2) 文件名，不包含路径 (3) Filter 确定所显示文件的类型
例如: Form2.Show vbModal
Form2.Show vbModeless
为确保对话框可以随其父窗体的最小化而
最小化，随其父窗体的关闭而关闭，需要在 Show方法中定义父窗体。
例如: Private Sub Command1_Click()
Form2.Show vbModeless, Form1
(4) 在对话框上添加其它控件。 (5) 在适当的位置编写显示对话框的代码。
两种显示方式: 模式对话框与无模式对话框 。 • 显示模式对话框:
窗体名.Show vbModal 或: 窗体 名.Show 1
• 显示无模式对话框: 窗体名.Show vbModeless
06.12.20或20: 窗体名.Show 0 或: 窗体名.Show 3
例: 典型的颜色命令按钮编写事件过程，设置文 本框的前景色。
Sub Command3_Click ()
End Sub
(6) 编写从对话框退出的代码
例如: Unload Form2
或: Form2.Hide
06.12.2020
4
二、通用对话框
使用通用对话框控件(CommonDialog)可以创建多种标准对 话框。
设计步骤: (1) 添加: 工程 部件 选择
“Microsoft Common Dialog Controls 6.0” (2) 在窗体的任意位置画通用对话框控件。 (3) 设置通用对话框控件的“属性页”。 (4) 在代码中使用以下方法打开对话框 。
例如：Text Files|*.txt|所有文件|*.*显示文本 文件和所有文件 (4) FilterIndex文件列表中指定某类型文件 (5) InitDir 初始化路径
06.12.2020
8
1.文件对话框 属性页:
DialogTitle
InitDir Filter
Flags DefaultExt Max FilterIndex
06.12.2020
13
综合应用举例：
06.12.2020
14
InitDir
FilterIndex
06.12.2020
Filter
15
保存文件对话框
由 ShowSave方法来实现
与打开文件对话框的属性基本相同，特有的属性
是DefaultExt属性，用于设置缺省的扩展名 。
读程序,写结果:
Sub Command2_Click ()
06.12.2020
11
“装入图像”按钮代码如下： Private Sub Command1_Click()
CommonDialog1.ShowOpen Image1.Picture = _
LoadPicture(CommonDialog1.) End Sub 在对话框中按取消按钮的处理: (1) 不处理: 不设置“取消引发错误”