220 likes | 504 Views
第八章 用户界面设计. 8.1 菜单的设计与应用. 本节重点 : 用菜单编辑器设计和编辑菜单 本节难点 : 给菜单命令编写代码. 1. 菜单的类型 下拉菜单: 常以菜单栏的形式出现在标题栏下面 弹出菜单 ( 快捷菜单 ) : 独立于菜单栏而显示在窗体上的浮动菜单,其菜单项取决于按下鼠标右键时指针所指的对象。. 返回目录. 8.1 菜单的设计与应用 _ 相关概念. 8.1 菜单的设计与应用 _ 相关概念. VB 中的菜单控件 菜单和菜单项均看作是菜单控件 菜单控件两个最重要的属性 名称 (Name) :程序 代码中用来引用菜单控件
E N D
8.1菜单的设计与应用 • 本节重点: 用菜单编辑器设计和编辑菜单 • 本节难点: 给菜单命令编写代码
1. 菜单的类型 下拉菜单: 常以菜单栏的形式出现在标题栏下面 弹出菜单(快捷菜单): 独立于菜单栏而显示在窗体上的浮动菜单,其菜单项取决于按下鼠标右键时指针所指的对象。 返回目录 8.1 菜单的设计与应用_相关概念
8.1 菜单的设计与应用_相关概念 VB中的菜单控件 • 菜单和菜单项均看作是菜单控件 • 菜单控件两个最重要的属性 名称(Name):程序代码中用来引用菜单控件 标题(Caption):出现在控件上的文本 • 菜单控件只响应Click事件
例8-1编写一个简单的文本编辑程序,效果如图所示:例8-1编写一个简单的文本编辑程序,效果如图所示: • 首先建立如下表所示的菜单结构:
打开菜单编辑器: “工具→菜单编辑器” 工具栏“菜单编辑器”按钮 常用属性 标题:设置Caption属性 字符前加&,该字符成为访问键 只输入一个减号-,创建分隔条 名称:设置Name属性 注:对分隔条,也需定义名称 索引(Index):用于菜单控件数组 快捷键 、 复选(Checked) 有效(Enabled)、 可见(Visible) 8.1 菜单的设计与应用-介绍菜单编辑器
步骤: 1. 设计菜单 2.编写菜单控件的 Click事件过程 8.1 菜单的设计与应用_下拉式菜单的设计 如果菜单控件的前面没有内缩符号“····”,表明该控件建立的是主菜单,否则为菜单命令或子菜单。
例8-1编写一个简单的文本编辑程序,效果如图所示:例8-1编写一个简单的文本编辑程序,效果如图所示: • 首先建立如下表所示的菜单结构:
弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单。为了显示弹出式菜单,可使用 PopupMenu 方法。这个方法使用下列语法(p155) [Object.]PopupMenu menuname [, Flags [,x [, y [, boldcommand ]]]] 步骤: 1.用菜单设计器设计一个菜单 2.用PopupMenu方法可将这个菜单显示成弹出式菜单 语法结构: [对象.]PopupMenu 菜单控件名称 若“对象”缺省,则在当前窗体中显示弹出菜单 8.1 菜单的设计与应用-设计弹出菜单 注意:创建弹出式菜单时,要将菜单编辑器中的 visible 复选框选中
例8-2在例8-1的基础上添加一个弹出式菜单,弹出式菜单中内容为编辑菜单中的菜单项。如图所示:例8-2在例8-1的基础上添加一个弹出式菜单,弹出式菜单中内容为编辑菜单中的菜单项。如图所示: Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, _ Y As Single) If Button = 2 Then '检查是否单击了鼠标右键。 PopupMenu EditMenu ‘把编辑菜单显示为一个弹出式菜单。 End If End Sub
返回目录 8.2 通用对话框 -概述 1. 添加通用对话框控件 (1) 添加到工具箱: “工程→部件” (2) 添加到窗体 用 在窗体任意位置 添加(无需调整大小),名 称默认为CommonDialog1 利用通用对话框控件可创建六种标准对话框:打开、另 存为、颜色、字体、打印、帮助
返回目录 10.3 通用对话框 -概述 2. 通用对话框的基本属性和方法 (1) Action属性(只能在程序中赋值):决定打开何种类型 的对话框 • 0—None 无对话框显示 • 1—Open 显示“打开”对话框 • 2—Save As 显示“另存为”对话框 • 3—Color 显示“颜色” • 4—Font 显示“字体”对话框 • 5—Print 显示“打印”对话框 • 6—Help 显示“帮助”对话框 例如,CommonDialog1.Action=3 表示打开“颜色”对话框 (2) DialogTiltle属性:用于设置对话框的标题
返回目录 8.2 通用对话框 -概述 (3) CancelError属性:确定在用户按下“取消”按钮时是否产 生错误信息(默认为False) (4) 通用对话框的常用方法 • ShowOpen 显示“打开”对话框 • ShowSave 显示“另存为”对话框 • ShowColor 显示“颜色”对话框 • ShowFont 显示“字体”对话框 • ShowPrint 显示“打印”对话框 • ShowHelp 显示“帮助”对话框 例如,CommonDialog1. ShowColor 也表示打开“颜色”对话框
返回目录 8.2 通用对话框 -使用 1.“打开”对话框(该对话框仅供一个选取文件的用户界面, 而打开文件的具体操作还需编写代码) 常用属性: • FileName:设置在“文件名称”文本框中所显示的文件名,或 返回所选取的文件名 (包含路径) • FileTitle:返回或设置所要打开文件的文件名(不包含路径) • Filter:确定文件列表框中所显示的文件类型,例如 CommonDialog1.Filter =“word文档|*.文本|*.txt|所有文档|*.*" • FilterIndex:表示用户在文件类型列表框中选取的文件类型 对上例设定的Filter,若选定文本文件,则FilterIndex值为2 • InitDir:指定在“打开”对话框中显示的默认目录
InitDir Filter FileName FilterIndex 1.文件对话框(打开、保存)需设置的属性
使用CommonDialog 弹出“打开”对话框 Private Sub FileOpen_Click() CommonDialog1.CancelError = False CommonDialog1.Filter = "文本文件|*.txt|word文档|*.doc" CommonDialog1.InitDir = "c:\windows" CommonDialog1.ShowOpen End Sub 使用CommonDialog 弹出“保存”对话框 Private Sub FileSave_Click() CommonDialog1.CancelError = False CommonDialog1.DialogTitle = "保存" CommonDialog1.Filter = "文本文件|*.txt|word文档|*.doc" CommonDialog1.ShowSave End Sub 使用CommonDialog 弹出“另存为”对话框 Private Sub FileSaveAs_Click() CommonDialog1.CancelError = False CommonDialog1.DialogTitle = "另存为" CommonDialog1.Filter = "文本文件|*.txt|word文档|*.doc" CommonDialog1.ShowSave End Sub
返回目录 8.2 通用对话框 -使用 2.“另存为”对话框 为保存文件提供一个标准用户界面,供选择或键入文件路径名。同样,储存文件的操作需要编写代码。 涉及的属性基本上与“打开”对话框相同。此外,还有一个DefaultExt属性,表示所存文件的缺省扩展名。 3.“颜色”对话框 最重要的是Color属性,用于返回或 设置选定的颜色。例如: Text1.ForeColor = CommonDialog1.Color
8.2 通用对话框 -使用 4.“字体”对话框常用属性: • Flags:指示所显示的字体类型 注:显示“字体”对话框之前必须设置Flags属性 • Color:返回所选颜色 • FontName:返回所选字体的名称 • Fontsize:返回所选字体的大小 • FontBold、FontItalic、 FontStrikethru、FontUnderline: 这些属性的值取True或False,用于设定文本是否粗体、斜体、加删除线或加下划线 • Min、Max:确定所能选择的字体大小的最小值和最大值(单位为Point) Flags属性:指示所显示的字体类型,必须设置。 cdlCFScreenFonts &H1 屏幕字体 cdlCFPrinterFonts &H2 打印机字体 cdlCFBoth &H3 打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框
FontName FontBold、FontItalic FontSize 4.“字体”对话框 Min、Max FontStrikethru FontUnderline Color
例 用”字体“对话框设置文本框的字体,要求对话框内出现删除线、下划线、并可控制颜色 Private Sub Command1_Click() CommonDialog1.Flags = cdlCFBoth or cdlCFEffects CommonDialog1.ShowFont If CommonDialog1.FontName <> "" Then Text1.FontName = CommonDialog1.FontName End If Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color End Sub
返回目录 8.2 通用对话框 -使用 5.“打印”对话框 “打印”对话框同样不能处理具体的打印作业,仅提供一个标准打印界面供用户选择打印参数。所选参数存于各属性中,比较常用的有: • Copies:复制份数 • FromPage:起始页号 • Topage:终止页号
6. “帮助”对话框 帮助文件需要用其他的工具制作,如Microsoft Windows Help Compiler。 属性: HelpCommand:Help帮助类型; HelpFile:Help文件的路径及其名称; HelpKey:在帮助窗口显示由该帮助关键字指定的帮助信息。 例 ”帮助“对话框的使用。 Private Sub Command2_Click() CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.HelpFile = "c:\windows\help\notepad.hlp" CommonDialog1.HelpKey = " 创建页眉" CommonDialog1.ShowHelp End Sub