Visual Basic程序设计(第3版)-电子教案第10章

Visual Basic程序设计(第3版)-电子教案

第 10 章 高级界面设计

Visual Basic程序设计(第3版)-电子教案

10.1

菜 单 对 话 框

10.2

10.3

多重文档界面(MDI)

10.4

文件操作控件 工 具 栏

10.5

Visual Basic程序设计(第3版)-电子教案

本章中主要介绍菜单、对话框、多文 档界面、工具栏等一些与界面设计有关的 知识。

Visual Basic程序设计(第3版)-电子教案

10.1 菜 单在VB中，利用系统提供的工具可以非 常方便地建立下拉菜单和弹出式菜单。

Visual Basic程序设计(第3版)-电子教案

10.1.1

下拉菜单

在关闭状态下，下拉菜单作为菜单栏 位于窗口的标题栏下面，当单击其中某一 项时，下拉出其相应的子菜单。如图10-1 所示。

Visual Basic程序设计(第3版)-电子教案

子菜单

菜单项分隔条

菜单标题

图10-1

下拉菜单示例

Visual Basic程序设计(第3版)-电子教案

菜单标题也就是基本菜单项，水平排 列在窗体标题栏的下面。 子菜单由若干菜单项组成。菜单项可 以包括菜单命令、分隔条和子菜单标题。 如果某一菜单项还有子菜单，也即该 菜单项是一个子菜单标题，它的后面将会 自动添加一个“ ”。

Visual Basic程序设计(第3版)-电子教案

VB中的菜单通过菜单编辑器，即菜单 设计窗口建立。将要建立下拉菜单的窗体 设为活动窗体后，可以通过4种方法进入菜 单编辑器。

Visual Basic程序设计(第3版)-电子教案

(1)选择“工具”菜单中的“菜 单编辑器”命令。 (2)使用热键Ctrl+E。 (3)单击工具栏中的“菜单编辑 器”按钮。 (4)在要建立菜单的窗体上单击 鼠标右键，在弹出的快捷菜单中选 择“菜单编辑器”命令。

Visual Basic程序设计(第3版)-电子教案

通过以上任一方法，均可调出“菜单 编辑器”对话框。 【例10.1】菜单设计。建立一个图103所示的菜单，用户可以通过选择菜单中的 菜单项改变文本框中内容的外观。 设计步骤如下。

Visual Basic程序设计(第3版)-电子教案

(1)建立控件在窗体上添加一个文本框，将它的 Text属性置为空。

(2)设计菜单在窗体设计状态下选择“工具”菜单 下的“菜单编辑器”命令，调出“菜单编 辑器”对话框。在菜单设计窗口中，按表 10-1设计菜单项。

Visual Basic程序设计(第3版)-电子教案

表10-1

菜单项及其属性设置

菜

单 项 字体 宋体 黑体 隶书 -

名Zt St Ht Lsh Sep

称

快

捷

键

Ctrl+A Ctrl+B Ctrl+C

Visual Basic程序设计(第3版)-电子教案

续表 退出 Quit Ctrl+Q

字形 粗体 斜体

ZxCt Xt Ctrl+D Ctrl+E

下划线 字号 20号

Xhx ZhEr

Ctrl+F

Ctrl+G

12号

Sh

Ctrl+H

Visual Basic程序设计(第3版)-电子教案

(3)把代码连接到菜单上在窗体窗口单击菜单标题，然后在下 拉菜单中选择要连接代码的菜单项，在屏 幕上就会出现代码窗口，并自动给出事件 过程的头尾语句。只要在头尾语句间输入 代码即可。

Visual Basic程序设计(第3版)-电子教案

程序代码如下： Private Sub ct_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub er_Click() Text1.FontSize = 20 End Sub

Visual Basic程序设计(第3版)-电子教案

Private Sub ht_Click() Text1.FontName = "黑体" End Sub Private Sub lsh_Click() Text1.FontName = "隶书" End Sub

Visual Basic程序设计(第3版)-电子教案

Private Sub quit_Click() End End Sub Private Sub sh_Click() Text1.FontSize = 12 End Sub

Visual Basic程序设计(第3版)-电子教案

Private Sub st_Click() Text1.FontName = "宋体" End Sub Private Sub xhx_Click() Text1.FontUnder

line = Not Text1.FontUnderline End Sub

Visual Basic程序设计(第3版)-电子教案

Private Sub xt_Click() Text1.FontItalic = Not Text1.FontItalic End Sub

Visual Basic程序设计(第3版)-电子教案

10.1.2

弹出式菜单

弹出式菜单(快捷菜单)不需要在窗 口顶部下拉打开，而是通过单击鼠标右键 在窗体的任意位置打开，因而使用方便， 具有较大的灵活性。

Visual Basic程序设计(第3版)-电子教案

建立弹出式菜单通常有两步：首先用 菜单编辑器中建立菜单，然后用PopupMenu 方法弹出显示。第一步的操作与前面介绍 的基本相同，唯一的区别是，如果不想在 窗体顶部显示该菜单，就应把菜单名(即 主菜单项)的“可见”属性设置为False (子菜单项不要设置为False)。

本文来源：https://www.bwwdw.com/article/jkem.html