（4）运行 对于多重窗体程序来说，运行前应该首先设置某个窗体为启动。本例设 Form1为启动窗体，步骤如下： ① 选择“工程”菜单的“工程1属性”命令； ② 在弹出的对话框中选择“通用”选项卡； ③ 单击“启动对象”列表框的下拉箭头，从中选择“Form1”； ④ 单击“确定”按钮，完成启动窗体设置。
“字体”对话框 字体” 字体
字体对话框是Action=4时的通用对话框，如下图所示，提 时的通用对话框，如下图所示， 字体对话框是 供用户选择字体、字号及字体样式等。 供用户选择字体、字号及字体样式等。 字体对话框重要的属性有： 字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max, mint等，见下图。 等 见下图。
［例5-16］在［例5－15］的基础上增加一个弹出式菜单，包含 16］ “剪切”、“复制”和“粘贴”功能，右击文本框时弹出该快 捷菜单。
操作步骤： （1）在菜单编辑器里新增一个菜单，保证该菜单为顶 层菜单项，即无缩进符号。标题设定为“Edit”(该标题和 名称可任意设定，因为它在快捷菜单弹出时不显示)。 （2）将“Edit”菜单的可见属性设置为False。 （3）单击“下一个”命令按钮，标题文本框中输入 “剪切”，编辑对应的名称，单击按钮，将“剪切”菜单 设置为“Edit”菜单的下一级菜单。 （4）参照步骤3完成“复制”和“粘贴”菜单的设置。 （5）使用PopupMenu方法来显示弹出式菜单。 语法格式：[对象].PopupMenu 菜单名 [对象].PopupMenu
Text1
CommonDialog1
“颜色”对话框 颜色” 颜色
颜色对话框是当Action=3时的 颜色对话框是当 时的 通用对话框，如右图。 通用对话框，如右图。 重要属性： 重要属性：Color，用来返回 ， 或设置选定的颜色。 或设置选定的颜色。
Private Sub cmdColor_Click() CommonDialog1.Action = 3 ‘将通用对话框显示为颜色对话框 将通用对话框显示为颜色对话框 将通用对话框显示为 Text1.ForeColor = CommonDialog1.Color End Sub
（2）编写事件代码 程序清单（略） （3）保存 在工程管理器窗口中列出的每个窗体或标准模块，都必须分别存入磁盘。 本例共保存了三个窗体文件(.frm)，最后把整个工程以.Vbp为扩展名存入磁 盘。 一个完整的Visual Basic应用程序由多个工程文件（扩展名为.Vbp）组成， 在工程中含有标准模块（扩展名为.Bas）、窗体模块（扩展名为.Frm）和 类模块（扩展名为.Cls）。如图5-21所示。
再如：使用打开文件对话框，在运行时打开一幅图像 再如：使用打开文件对话框，
Image1
Command1
CommonDialog1
“装入图像”按钮代码设计如下： 装入图像”按钮代码设计如下： 装入图像
Private Sub Command1_Click() CommonDialog1.ShowOpen ′将通用对话框显 将通用对话框显 示为打开文件对话框 Image1.Picture = _ LoadPicture(CommonDialog1.FileName) End Sub
（3）属性与代码设计 菜单属性设置好后，要给每个需要完成某些功能的 菜单项编写对应的代码。 先给窗体内添加一个文本框Text1，Text1的属性如 下表所示。
对象名
Text
属性 Name Text MultiLine ScrollBar
属性值 Text1 清空 True 3-both
单击“编辑”菜单下的“字体”子菜单，选择 “黑体”，弹出对应的“单击”事件代码编辑窗口， 黑体菜单的名称为在设计时输入的名称“Font1”。 “黑体”子菜单“单击”事件代码： Private Sub Font1_Click() Text1.FontName= "黑体" End Sub 按照上述步骤依次选择“宋体”、“楷体”子菜 单，完成相应的代码编写。
［例5-17］ 将“文件”菜单里“打开”和“保存” 菜单功能补充完整。 问题分析： 本例涉及到两种通用对话框的使用，当单击“打开” 就弹出打开对话框，当用户选择一文本文件，便可将 该文件内容读入到文本框；当单击“保存”就打开另 存为对话框。用户输入文件名后，便可以新的文件名 保存文本框的内容。
通用对话框不是标准控件，使用时必须先将该控件添加 到工具箱里。步骤如下 工程/部件 工程 部件 选定部 件标签
5.4.2 建立多重窗体应用程序 18］ ［例5-18］创建一个工程，由三个窗体组成，Form1用于输 入用户名和口令，当输入正确时单击“确定”按钮显示Form2， 当输入错误时则显示Form3，单击退出按钮结束程序；Form2 中用文本框显示系统信息，单击“返回”按钮回到Form1； Form3为退出窗体，单击窗体则结束程序。 • 问题分析 VB中允许应用程序有多个窗体，每个窗体有自己的代码和 不同的操作，从而实现复杂的功能。 多重窗体程序设计中，需要打开、关闭、隐藏或显示指定 的窗体，这可以通过相应的语句和方法来实现。 （1）Load语句把一个窗体装入内存。 （2）Unload语句清除内存中指定的窗体。 （3）Show方法是用来显示一个窗体。 （4）Hide方法用来将窗体暂时隐藏起来。
cdlCFScreenFonts &H1 屏幕字体 cdlCFPrinterFonts &H2 打印机字体 cdlCFBoth &H3 打印机字体和屏幕字体。 打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框
“字体”按钮的Click事件过程如下： 字体”按钮的 事件过程如下： 字体 事件过程如下 Private Sub Command2_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects 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
End If
End Sub
这两条语句用于屏 蔽系统的快捷菜单
1 — 按下鼠标的左按钮 2 — 按下鼠标的右按钮 4 — 按下鼠标的中间按钮

剪切的Click事件代码： Clipboard.Clear ‘清空剪贴板的内容 ’将文本框中所选的内容复制给剪贴板 Clipboard.SetText Text1.SelText Text1.SelText = “ ” ‘删除所选 mnueditpaste.enable=true '粘贴恢复为可用 复制的Click事件代码： Clipboard.Clear Clipboard.SetText Text1.SelText mnueditpaste.enable=true 粘贴的Click事件代码： Text1.SelText = Clipboard.GetText()
选定Microsoft 选定 CommDialog Control 6.0 确定
通用对话框可以提供6种形式的对话框， 通用对话框可以提供 种形式的对话框，通过设置 种形式的对话框 Action属性值或调用 属性值或调用 方法来建立不同类型的对 属性值或调用Show方法来建立不同类型的对 方法 话框。如下表： 话框。如下表：
（6）需要在文本框的Mousedown事件里编写对应的代 码。具体代码如下： Private Sub Text1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Text1.Enabled = False Text1.Enabled = True PopupMenu edit
操作步骤： （1）创建三个窗体及控件 选择“工程”菜单的“添加窗体”命令，添加两个 窗体，窗体的名称按添加顺序分别为Form2和Form3， 这样工程就由三个窗体组成。 ① 窗体1：该窗体为主窗体，名称为Form1，是用来 供用户确认和调用其他相应的窗体。该窗体上有三个 标签，两个文本框、两个按钮，文本框Text1用于输 入用户名称，文本框Text2用于输入口令。 ② 窗体2：该窗体名称为Form2，该窗体上有一个标 签一个文本框、一个按钮、文本框采用多行显示，具 有垂直滚动条，锁定文本框不能编辑。 ③ 窗体3：该窗体名称为Form3，为退出窗体，窗体 上有一个图片框、一个标签。
VB菜单包含下拉菜单和弹出式菜单，用菜单编辑器可以非 常方便的建立菜单。 操作步骤： （1）从“工具”菜单上，选取“菜单编辑器”，进入对 话框；
（2）菜单属性设置
表5-10 菜单属性设置
标题 文件 新建 打开 保存 － 退出 编辑 剪切 复制 粘贴 字体 黑体 宋体 楷体 名称 mnuFile mnuFileNew mnuFileOpen mnuFileSave mnuFileBar mnuFileQuit mnuEdit mnuEditCut mnuEditCopy mnuEditPaste mnuEditFont Font1 Font2 Font3 上级菜单 无 文件 文件 文件 文件 文件 无 编辑 编辑 编辑 编辑 字体 字体 字体 热键 F N O S 无 Q E 无 无 无 无 无 无 无 Ctrl＋S 无 Ctrl＋Q 无 Ctrl＋X Ctrl＋C Ctrl＋V Ctrl＋F 无 无 无 快捷键 无 Ctrl＋N