第8章 界面设计
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VisualBasic程序设计
9/26
8.1 菜单设计
8.1.2 弹出式菜单
【例8.2】设计一弹出式菜单，用于设置窗体背景颜色。
VisualBasic程序设计
10/26
8.1 菜单设计
8.1.2 弹出式菜单
【例8.2】设计一弹出式菜单，用于设置窗体背景颜色。 Dim Dcolor As Long '保存窗体的初始背景色 Private Sub Form_Load() Dcolor = Form1.BackColor End Sub Private Sub green_Click() Form1.BackColor = vbGreen End Sub Private Sub Red_Click() Form1.BackColor = vbRed End Sub
显示“页”选项按钮
禁止“选定范围”选项按钮，见图 禁止“页”选项按钮 显示“打印到文件”复选框
64
vbPDPrintSetup
显示“打印设置”对话框
22/26
VisualBasic程序设计
8.2 通用对话框
表8.12 字体对话框中其它属性功能
属性 Copies FromPage ToPage HDC Max,Min PrinterDefault
注意：打印对话框只能通过Copies、FromPage、ToPage等属性返回在对话框中 的设置值，而不能实现打印操作，如果要启动实际的打印过程，必须编写相应的程 序代码。
操作步骤： 1．增加按钮Commandprint，将其caption设为“打印&P”。 2. 在原有代码后面添加事件过程。具体代码如下： Private Sub Commandprint_Click() CommonDialogFile.Flags = 4 CommonDialogFile.Copies = 5 CommonDialogFile.ShowPrinter End Sub
(3) Checked 控制菜单项左边是否显示“√”
菜单项的事件Click 为菜单项编写程序
VisualBasic程序设计
6/26
8.1 菜单设计
8.1.1 下拉式菜单
【例8.1】 源自文库计一个输入界面并能设置输入框中字体、字号和 字的颜色的程序。
VisualBasic程序设计
7/26
8.1 菜单设计
热键 &
分隔符VisualBasic程序设计
本章目录
5/26
8.1 菜单设计
8.1.1 下拉式菜单 菜单项的常用属性: 除了Name、Visible、Enabled等属性, 还有 (1) Caption 菜单项上显示的标题文本 在字符前加一个 & 符号构成热键。例如，输 入“文件(&F)”，则菜单显示“文件(F)”，F为热 键。菜单项的分隔符，输入一个减号"-"。 (2) ShortCut 设计时设置菜单项的快捷键。
VisualBasic程序设计
8/26
8.1 菜单设计
8.1.2 弹出式菜单 独立于窗体菜单栏而显示在窗体内的浮动菜单。 显示位置取决于单击鼠标键时的位置。 设计过程与普通菜单相同。菜单弹出的方法： [对象.]PopupMenu 菜单名 [, 标志, x, y]
Sub Form_Click() Form1.PopupMenu zt End Sub
VisualBasic程序设计
17/26
8.2 通用对话框
【例8.3】 在例8.2中，增加一个设置文本框文本颜色的按钮 ，通过使用该按钮能够对文本框中的内容改变颜色。 设计步骤： 1．在窗体上增加按钮Commandcolor，将其caption设为 “颜色&Y”，把Form1的caption属性值设为“通用对话框” 2. 编写颜色按钮的单击事件过程。具体代码如下： Private Sub Commandcolor_Click() CommonDialogFile.ShowColor Text1.ForeColor = CommonDialogFile.Color End Sub
Visual Basic程序设计
第8章 界面设计
电气与信息工程学院 计算机系
第8章
界面设计
8.1 菜单设计
8.2 通用对话框
8.3 多文档界面
8.4 工具栏、状态栏的设计
VisualBasic程序设计
2/26
8.1 菜单设计
菜单是程序界面设计中最常用的元素之一，它提供了 实现程序各个功能的命令集合，并能很好地对程序的操作 进行分类管理，使用户能够形象直观地进行操作。 菜单的具体组成：菜单栏、菜单、子菜单、菜单项、热键、 快捷键、菜单分隔线等 菜单分为2种类型：下拉式菜单和弹出式菜单 1.下拉式菜单一般位于窗口的顶部包含两部分：菜单栏和 菜单项 2. 弹出式菜单没有主菜单名，是显示于窗体之上、独立于 菜单 栏的浮动式菜单，只有使用时才显示出来。 注意：菜单设计制作过程中通常使用菜单编辑器来完成
VisualBasic程序设计
Private Sub Default_Click() Form1.BackColor = Dcolor End Sub
11/26
8.1 菜单设计
8.1.2 弹出式菜单
【例8.2】设计一弹出式菜单，用于设置窗体背景颜色。 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then '判断右键触发 Form1.PopupMenu MnuPopColor, 8 Or 0 End If End Sub
VisualBasic程序设计
15/26
8.2 通用对话框
代码：
Private Sub Commandopen_Click() CommonDialogFile.Flags = vbOFNAllowMultiselect CommonDialogFile.Filter = "All Files|*.*|(*.doc)|*.doc|(*.txt)|*.txt" CommonDialogFile.FilterIndex = 4 CommonDialogFile.FileName = "" CommonDialogFile.InitDir = "C:\" CommonDialogFile.DialogTitle = "打开文件" CommonDialogFile.Action = 1 ********** „此处为文件打开代码 End Sub
VisualBasic程序设计
13/26
8.2 通用对话框
8.2.1 文件对话框 文件对话框包括打开（Open）文件对话框和保存文 件（Save As）对话框。文件对话框主要用来获取用户指 定的文件信息并供程序使用，对话框本身并不提供打开文 件和另存为文件的功能，这些功能需另外编写代码。
VisualBasic程序设计
VisualBasic程序设计
18/26
8.2 通用对话框
8.2.3 字体对话框
字体对话框是界面设计中很重要的组成部分，它可以用来 给文字指定字体、大小、颜色、下划线等。同样，可以通过使 用通用对话框控件的ShowFont方法或将其action属性值设为4 来显示该对话框。 字体对话框具有Flags、FontBold、FontItalic、 FontName、FontSize、FontStrikeThru和 FontUnderline这些属性。 其中flags属性确定了字体对话框的样式，在显示字体 对话框之前必须设置flags标志，否则就会出现不存在 字体等错误。
VisualBasic程序设计
21/26
8.2 通用对话框
表8.11 字体对话框中常用的Flags属性值及其含义 值 0 1 常量 vbPDAllPages vbPDselection 功能 显示“所有页”选项按钮 显示“选定范围”选项按钮
2
4 8 32
vbPDPageNums
vbPDNoSelection vbPDNoPageNum s vbPDPrintToFile
VisualBasic程序设计
12/26
8.2 通用对话框
在VB应用中对话框分为3种类型:预定义对话框、通用对话 框和自定义对话框。 (1)预定义对话框也称预制对话框是由系统提供。VB提供了 两种预定义对话框即输入框和信息框(或消息框)前者用 InputBox建立，后者用MsgBox建立。 (2)通用对话框是一种Control控件。用这种Control控件可 以设计较为复杂对话框。 (3)自定义对话框也称定制对话框。用户可以根据具体需要 建立自己对话框。
VisualBasic程序设计
16/26
8.2 通用对话框
8.2.2 颜色对话框 颜色对话框用来设置颜色。通过使用通用对话框控件的 ShowColor方法或将其action属性值设为3时可显示颜色对 话框。有两个主要的属性，即Color属性和Flags属性。
Color属性用来设置或返回指定的颜色 ; Flags属性用来定义对话框的类型
VisualBasic程序设计
19/26
8.2 通用对话框
【例8.4】 在例8.3的基础上，增加一个“字体”按钮，通过 使用该按钮能够对文本框的文本进行字体、字号、字型等的 设置。
操作步骤： 1．在例8.3的窗体上增加按钮Commandfont，将其caption设为“字体&F”。 2. 编写字体按钮的单击事件过程。具体代码如下： Private Sub Commandfont_Click() CommonDialogFile.Flags = 3 Or 256 CommonDialogFile.Action = 4 Text1.FontName = CommonDialogFile.FontName Text1.FontSize = CommonDialogFile.FontSize Text1.FontBold = CommonDialogFile.FontBold Text1.FontItalic = CommonDialogFile.FontItalic Text1.FontUnderline = CommonDialogFile.FontUnderline Text1.FontStrikethru = CommonDialogFile.FontStrikethru End Sub
功能 返回打印份数 开始打印的页码 打印的结束页码 分配给打印机的句柄 设置打印范围允许的最大和最小值 表示是否可以设置默认打印机，如果为True，则可以 ，反之不可以。
VisualBasic程序设计
23/26
8.2 通用对话框
【例8.5】 在例8.4的基础上，增加一个“打印”按钮，实现打印 功能。
VisualBasic程序设计
3/26
8.1 菜单设计
8.1.1 下拉式菜单 下拉式菜单的基本结构：
主菜单 快捷键 菜单项 子菜单名 热键 分隔线 子菜单标记
VisualBasic程序设计
4/26
8.1 菜单设计
8.1.1 下拉式菜单 设计状态 — 窗体设计窗口 工具→菜单编辑器 工具条→ Ctrl+E 鼠标右键菜单
14/26
8.2 通用对话框
【例8.2】 用记事本写一文本文件”mytest.txt”，然后编写 一个能打开该文件和保存文件的程序，打开时要求能将 “mytest.txt”文件的内容在文本框中显示，保存时能将文本 框中的内容存到.doc或.txt类型的文件，具有清空文本框的功 能。
解题步骤： 1.在当前窗体上放置通用对话框控件，然后插入三个 按钮和一个文本框 ； 2.为三个按钮编写相应的程序代码；
VisualBasic程序设计
20/26
8.2 通用对话框
8.2.4 打印对话框
打印对话框可以指定打印输出方式、选择打印机、设置打 印范围和份数等，并可以配置或重新安装默认的打印机。通过 使用通用对话框控件的ShowPrinter方法或将其action属性值 设为5来显示该对话框。 打印对话框具有Flags、Copies、FromPage、ToPage、 PrinterDefault、Max和Min这些属性。
【例8.1】 设计一个输入界面并能设置输入框中字体、字号和 字的颜色的程序。 Private Sub ht_Click() '给文本设置黑体字体 Text1.FontName = "黑体" End Sub …… Private Sub red_Click() '给文本设置红颜色 Text1.ForeColor = vbRed End Sub …… Private Sub s50_Click() '给文本设置50磅字号 Text1.FontSize = 50 End Sub ……
9/26
8.1 菜单设计
8.1.2 弹出式菜单
【例8.2】设计一弹出式菜单，用于设置窗体背景颜色。
VisualBasic程序设计
10/26
8.1 菜单设计
8.1.2 弹出式菜单
【例8.2】设计一弹出式菜单，用于设置窗体背景颜色。 Dim Dcolor As Long '保存窗体的初始背景色 Private Sub Form_Load() Dcolor = Form1.BackColor End Sub Private Sub green_Click() Form1.BackColor = vbGreen End Sub Private Sub Red_Click() Form1.BackColor = vbRed End Sub
显示“页”选项按钮
禁止“选定范围”选项按钮，见图 禁止“页”选项按钮 显示“打印到文件”复选框
64
vbPDPrintSetup
显示“打印设置”对话框
22/26
VisualBasic程序设计
8.2 通用对话框
表8.12 字体对话框中其它属性功能
属性 Copies FromPage ToPage HDC Max,Min PrinterDefault
注意：打印对话框只能通过Copies、FromPage、ToPage等属性返回在对话框中 的设置值，而不能实现打印操作，如果要启动实际的打印过程，必须编写相应的程 序代码。
操作步骤： 1．增加按钮Commandprint，将其caption设为“打印&P”。 2. 在原有代码后面添加事件过程。具体代码如下： Private Sub Commandprint_Click() CommonDialogFile.Flags = 4 CommonDialogFile.Copies = 5 CommonDialogFile.ShowPrinter End Sub
(3) Checked 控制菜单项左边是否显示“√”
菜单项的事件Click 为菜单项编写程序
VisualBasic程序设计
6/26
8.1 菜单设计
8.1.1 下拉式菜单
【例8.1】 源自文库计一个输入界面并能设置输入框中字体、字号和 字的颜色的程序。
VisualBasic程序设计
7/26
8.1 菜单设计
热键 &
分隔符VisualBasic程序设计
本章目录
5/26
8.1 菜单设计
8.1.1 下拉式菜单 菜单项的常用属性: 除了Name、Visible、Enabled等属性, 还有 (1) Caption 菜单项上显示的标题文本 在字符前加一个 & 符号构成热键。例如，输 入“文件(&F)”，则菜单显示“文件(F)”，F为热 键。菜单项的分隔符，输入一个减号"-"。 (2) ShortCut 设计时设置菜单项的快捷键。
VisualBasic程序设计
8/26
8.1 菜单设计
8.1.2 弹出式菜单 独立于窗体菜单栏而显示在窗体内的浮动菜单。 显示位置取决于单击鼠标键时的位置。 设计过程与普通菜单相同。菜单弹出的方法： [对象.]PopupMenu 菜单名 [, 标志, x, y]
Sub Form_Click() Form1.PopupMenu zt End Sub
VisualBasic程序设计
17/26
8.2 通用对话框
【例8.3】 在例8.2中，增加一个设置文本框文本颜色的按钮 ，通过使用该按钮能够对文本框中的内容改变颜色。 设计步骤： 1．在窗体上增加按钮Commandcolor，将其caption设为 “颜色&Y”，把Form1的caption属性值设为“通用对话框” 2. 编写颜色按钮的单击事件过程。具体代码如下： Private Sub Commandcolor_Click() CommonDialogFile.ShowColor Text1.ForeColor = CommonDialogFile.Color End Sub
Visual Basic程序设计
第8章 界面设计
电气与信息工程学院 计算机系
第8章
界面设计
8.1 菜单设计
8.2 通用对话框
8.3 多文档界面
8.4 工具栏、状态栏的设计
VisualBasic程序设计
2/26
8.1 菜单设计
菜单是程序界面设计中最常用的元素之一，它提供了 实现程序各个功能的命令集合，并能很好地对程序的操作 进行分类管理，使用户能够形象直观地进行操作。 菜单的具体组成：菜单栏、菜单、子菜单、菜单项、热键、 快捷键、菜单分隔线等 菜单分为2种类型：下拉式菜单和弹出式菜单 1.下拉式菜单一般位于窗口的顶部包含两部分：菜单栏和 菜单项 2. 弹出式菜单没有主菜单名，是显示于窗体之上、独立于 菜单 栏的浮动式菜单，只有使用时才显示出来。 注意：菜单设计制作过程中通常使用菜单编辑器来完成
VisualBasic程序设计
Private Sub Default_Click() Form1.BackColor = Dcolor End Sub
11/26
8.1 菜单设计
8.1.2 弹出式菜单
【例8.2】设计一弹出式菜单，用于设置窗体背景颜色。 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then '判断右键触发 Form1.PopupMenu MnuPopColor, 8 Or 0 End If End Sub
VisualBasic程序设计
15/26
8.2 通用对话框
代码：
Private Sub Commandopen_Click() CommonDialogFile.Flags = vbOFNAllowMultiselect CommonDialogFile.Filter = "All Files|*.*|(*.doc)|*.doc|(*.txt)|*.txt" CommonDialogFile.FilterIndex = 4 CommonDialogFile.FileName = "" CommonDialogFile.InitDir = "C:\" CommonDialogFile.DialogTitle = "打开文件" CommonDialogFile.Action = 1 ********** „此处为文件打开代码 End Sub
VisualBasic程序设计
13/26
8.2 通用对话框
8.2.1 文件对话框 文件对话框包括打开（Open）文件对话框和保存文 件（Save As）对话框。文件对话框主要用来获取用户指 定的文件信息并供程序使用，对话框本身并不提供打开文 件和另存为文件的功能，这些功能需另外编写代码。
VisualBasic程序设计
VisualBasic程序设计
18/26
8.2 通用对话框
8.2.3 字体对话框
字体对话框是界面设计中很重要的组成部分，它可以用来 给文字指定字体、大小、颜色、下划线等。同样，可以通过使 用通用对话框控件的ShowFont方法或将其action属性值设为4 来显示该对话框。 字体对话框具有Flags、FontBold、FontItalic、 FontName、FontSize、FontStrikeThru和 FontUnderline这些属性。 其中flags属性确定了字体对话框的样式，在显示字体 对话框之前必须设置flags标志，否则就会出现不存在 字体等错误。
VisualBasic程序设计
21/26
8.2 通用对话框
表8.11 字体对话框中常用的Flags属性值及其含义 值 0 1 常量 vbPDAllPages vbPDselection 功能 显示“所有页”选项按钮 显示“选定范围”选项按钮
2
4 8 32
vbPDPageNums
vbPDNoSelection vbPDNoPageNum s vbPDPrintToFile
VisualBasic程序设计
12/26
8.2 通用对话框
在VB应用中对话框分为3种类型:预定义对话框、通用对话 框和自定义对话框。 (1)预定义对话框也称预制对话框是由系统提供。VB提供了 两种预定义对话框即输入框和信息框(或消息框)前者用 InputBox建立，后者用MsgBox建立。 (2)通用对话框是一种Control控件。用这种Control控件可 以设计较为复杂对话框。 (3)自定义对话框也称定制对话框。用户可以根据具体需要 建立自己对话框。
VisualBasic程序设计
16/26
8.2 通用对话框
8.2.2 颜色对话框 颜色对话框用来设置颜色。通过使用通用对话框控件的 ShowColor方法或将其action属性值设为3时可显示颜色对 话框。有两个主要的属性，即Color属性和Flags属性。
Color属性用来设置或返回指定的颜色 ; Flags属性用来定义对话框的类型
VisualBasic程序设计
19/26
8.2 通用对话框
【例8.4】 在例8.3的基础上，增加一个“字体”按钮，通过 使用该按钮能够对文本框的文本进行字体、字号、字型等的 设置。
操作步骤： 1．在例8.3的窗体上增加按钮Commandfont，将其caption设为“字体&F”。 2. 编写字体按钮的单击事件过程。具体代码如下： Private Sub Commandfont_Click() CommonDialogFile.Flags = 3 Or 256 CommonDialogFile.Action = 4 Text1.FontName = CommonDialogFile.FontName Text1.FontSize = CommonDialogFile.FontSize Text1.FontBold = CommonDialogFile.FontBold Text1.FontItalic = CommonDialogFile.FontItalic Text1.FontUnderline = CommonDialogFile.FontUnderline Text1.FontStrikethru = CommonDialogFile.FontStrikethru End Sub
功能 返回打印份数 开始打印的页码 打印的结束页码 分配给打印机的句柄 设置打印范围允许的最大和最小值 表示是否可以设置默认打印机，如果为True，则可以 ，反之不可以。
VisualBasic程序设计
23/26
8.2 通用对话框
【例8.5】 在例8.4的基础上，增加一个“打印”按钮，实现打印 功能。
VisualBasic程序设计
3/26
8.1 菜单设计
8.1.1 下拉式菜单 下拉式菜单的基本结构：
主菜单 快捷键 菜单项 子菜单名 热键 分隔线 子菜单标记
VisualBasic程序设计
4/26
8.1 菜单设计
8.1.1 下拉式菜单 设计状态 — 窗体设计窗口 工具→菜单编辑器 工具条→ Ctrl+E 鼠标右键菜单
14/26
8.2 通用对话框
【例8.2】 用记事本写一文本文件”mytest.txt”，然后编写 一个能打开该文件和保存文件的程序，打开时要求能将 “mytest.txt”文件的内容在文本框中显示，保存时能将文本 框中的内容存到.doc或.txt类型的文件，具有清空文本框的功 能。
解题步骤： 1.在当前窗体上放置通用对话框控件，然后插入三个 按钮和一个文本框 ； 2.为三个按钮编写相应的程序代码；
VisualBasic程序设计
20/26
8.2 通用对话框
8.2.4 打印对话框
打印对话框可以指定打印输出方式、选择打印机、设置打 印范围和份数等，并可以配置或重新安装默认的打印机。通过 使用通用对话框控件的ShowPrinter方法或将其action属性值 设为5来显示该对话框。 打印对话框具有Flags、Copies、FromPage、ToPage、 PrinterDefault、Max和Min这些属性。
【例8.1】 设计一个输入界面并能设置输入框中字体、字号和 字的颜色的程序。 Private Sub ht_Click() '给文本设置黑体字体 Text1.FontName = "黑体" End Sub …… Private Sub red_Click() '给文本设置红颜色 Text1.ForeColor = vbRed End Sub …… Private Sub s50_Click() '给文本设置50磅字号 Text1.FontSize = 50 End Sub ……