vb程序设计第10章

20
第 十 章 界 面 设 计
【例10-3】在例10-2的基础上添加工具栏。如下图。 放置4各复选框控件，分别用于完成“效果”菜单 下的四个功能。 在复选框的ToolTipText属性中分别设置功能提 示: 删除线、下划线、粗体、斜体。
Check1~ Check4
21
第 十 章 界 面 设 计
分别在复选框控件的Click事件过程中编写代码： Private Sub Check1_Click() Text1.FontStrikethru = Check1.Value End Sub Private Sub Check2_Click() Text1.FontUnderline = Check2.Value End Sub Private Sub Check3_Click() Text1.FontBold = Check3.Value End Sub Private Sub Check4_Click() Text1.FontItalic = Check4.Value End Sub 22
10
第 十 章 界 面 设 计
Private Sub DD2_Click() If DD2.Checked = True Then Text1.FontUnderline = False DD2.Checked = False Else Text1.FontUnderline = True DD2.Checked = True End If End Sub
第10章
Visual BASIC
程 序 设 计
界面设计
本章要点: • 菜单的设计 • 工具栏的设计 • 状态栏的设计 • 多文档界面的设计 • 对话框的设计
1
10.1 菜单的设计 两种菜单类型: 下拉式菜单；弹出式菜单
10.1.1 下拉式菜单
第 十 章 界 面 设 计 1. 下拉式菜单的结构
子 菜 单
12
第 十 章 界 面 设 计
Private Sub DD4_Click() If DD4.Checked = True Then Text1.FontItalic = False DD4.Checked = False Else Text1.FontItalic = True DD4.Checked = True End If End Sub
9
第 十 章 界 面 设 计
Private Sub DD1_Click() If DD1.Checked = True Then Text1.FontStrikethru = False DD1.Checked = False Else Text1.FontStrikethru = True DD1.Checked = True End If End Sub
• 从窗体快捷菜单中选择“菜单编辑器”命令
菜单编辑器结构: 属性区、编辑区、菜单列表区
3
Caption Name Index 第 十 章 界 面 设 计
Shortcut
Checked Enabled Visible WindowList(MDI) HelpContextID NegotiatePosition
注: 标题框中键入“-”和“&”符号的作用。 不能给顶级菜单项加快捷键。
4
第 十 章 界 面 设 计
【例10-1】设计菜单界面，各主菜单项及其下拉菜 单如下图所示。下拉菜单中的子菜单项用于对文 本框Text1设置字体、字号、文字颜色和文字效 果。其中，效果子菜单下的各菜单项具有复选功 能，设运行初始时各项前面没有√符号，与文本 框的初始状态一致。
(1) “字体”菜单下的菜单项设计成一个控件数组 AA1，共享以下事件过程: Private Sub AA1_Click(Index As Integer) Text1.Font = AA1(Index).Caption End Sub (2) ―字号”菜单下的菜单项设计成一个控件数组 BB1，共享以下事件过程: Private Sub BB1_Click(Index As Integer) Text1.FontSize = Val(BB1(Index).Caption) End Sub (3)“颜色”菜单下的各菜单项为独立的菜单控件， 因此应分别在其单击事件过程中编写代码，各事 件过程如下:
第 十 章 界 面 设 计
10.3 状态栏的设计 1. 作用: 显示应用程序当前的运行状态、系统状态、 提供一些操作提示等 。 2. 设计步骤 (1) 添加StatusBar控件 工程部件选择“Microsoft Windows Common Controls 6.0‖； (2) 在窗体上画状态栏。 (3) 设置StatusBar控件的“属性页”。 定义Panels对象集合 (Panel: 窗格)。 在代码中访问索引为n的Panel对象: Panels(n ) 例:设置状态栏StatusBar1中索引值为2的窗格的 显示文本为“锁定”: StatusBar1.Panels(2).Text = ―锁定” (4) 编写代码。 24
(续表)
标 题
颜色(&C) 第 十 章 界 面 设 计 ....红色 ....绿色 ....蓝色
名称
CC CC1 CC2 CC3
索引 快捷键 说
明
访问键Alt+C
效果(&E)
....删除线 ....下划线
DD
DD1 DD2
访问键Alt+E
....粗体
....斜体
DD3
DD4
7
第 十 章 界 面 设 计
11
第 十 章 界 面 设 计
Private Sub DD3_Click() If DD3.Checked = True Then Text1.FontBold = False DD3.Checked = False Else Text1.FontBold = True DD3.Checked = True End If End Sub
14
第 十 章 界 面 设 计
【例10-2】在例10-1的基础上设计窗体和文本框的 弹出式菜单。如下图所示。 (1) 设置菜单编辑器: 第 十 章 界 面 设 计
标题 名称 可见 EE1 EE2

....锁定
窗体快捷菜单 ....红色背景 ....绿色背景 ....默认背景
16
第 十 章 界 面 设 计
(3) 在窗体的MouseDown事件过程中编写代码 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu FF,8 Or 0, , ,FF3 End If End Sub (4) 编写实现菜单命令功能的代码 Dim Fcolor As Long Private Sub Form_Load() Fcolor = Form1.BackColor End Sub
主菜单标题 主菜单栏 子 菜 单 分隔条
2
菜单命令
2. 菜单编辑器 菜单项: 看成控件，具有其属性、事件、方法。 菜单项也称为菜单控件。 第 十 章 界 面 设 计 设计: 通过“菜单编辑器”完成。 打开菜单编辑器:
• 首先使窗体成为当前窗体
• 执行“工具”菜单下的“菜单编辑器”命令
• 单击标准工具栏的“菜单编辑器”按钮
第 十 章 界 面 设 计
10.2.2 使用工具栏控件(ToolBar)制作工具栏 设计步骤: (1) 添加ToolBar控件、 ImageList控件。 工程部件选择 “Microsoft Windows Common Controls 6.0‖ 常用ImageList控件提供工具栏所需的图片。 (2) 在窗体上画ToolBar控件、ImageList控件 (3) 设置ImageList控件。 (4) 设置ToolBar控件的“属性页”。定义按钮对象 集。 引用索引号为n的按钮: Buttons(n) 例:设置Toolbar1中索引号为3的按钮的标题。 Toolbar1.Buttons(3).Caption = "显示" (5) 编写代码: 在ButtonClick事件过程或 23
17
第 十 章 界 面 设 计
Private Sub EE1_Click() Text1.FontSize = Text1.FontSize + 1 End Sub Private Sub EE2_Click() Text1.FontSize = Text1.FontSize – 1 End Sub Private Sub EE3_Click() If EE3.Caption = "锁定" Then EE3.Caption = "取消锁定" Text1.Locked = True Else EE3.Caption = "锁定" Text1.Locked = False End If End Sub
18
第 十 章 界 面 设 计
Private Sub FF1_Click() Form1.BackColor = vbRed End Sub Private Sub FF2_Click() Form1.BackColor = vbGreen End Sub Private Sub FF3_Click() Form1.BackColor = Fcolor End Sub
13
10.1.2 弹出式菜单 弹出式菜单:上下文菜单、快捷菜单、右键菜单 为某对象设计弹出式菜单的步骤: (1) 在菜单编辑器中设计弹出式菜单，然后将顶级菜 单设置为不可见。 (2) 在对象的MouseDown事件过程中编写代码，用 以下的PopupMenu方法显示弹出式菜单: [<窗体名>.]PopupMenu <菜单名> ,flags[,x[,y[,boldcommand]]]] 功能: 在当前鼠标位置或指定的坐标位置显示弹 出式菜单。 说明: 见P171-172