菜单

菜单菜单的类型•Windows环境下的应用程序一般为用户提供三种菜单：窗体控制菜单、下拉菜单与快捷菜单(右键)。下拉菜单分隔线主菜单名快捷键热键下级子菜单标记主菜单条菜单项子菜单名启动菜单编辑器有三种方法1单击工具栏菜单图标2工具/菜单编辑器(CTRL+E)3窗体上快捷菜单／菜单编辑器菜单编辑器的使用1.标题(Caption)：2.名称(Name)：3.快捷键(Shortcut)：4.下一个(Next)：5.←和→按钮6.插入(Insert)按钮：7.删除(Delete)按钮：8↓和↑按钮：9.复选(Checked)检查框：10.有效(Enabled)检查框：11.显示窗口列表(WindowList)检查框：菜单的主要属性标题(Caption)：显示在菜单项上的文本。例如：输入&File，显示为File，热键Alt+F输入减号（－）在菜单中加分隔线;名称(Name)：菜单项的名称，分界符也有名称;下一个(Next)：设置下一个菜单项。←和→按钮：下一级(→)或上一级(←)菜单项；插入(Insert)按钮：插入菜单项删除(Delete)按钮：删除菜单项↓和↑按钮：改变菜单项位置。例:制作一个编辑器，中间是文本框，菜单如下所示，对清除、退出、绿色、红色、查找菜单编写程序代码。两个框中的子菜单分别作成控件数组连续的、相同级别的子菜单才可以成为控件数组编辑菜单步骤•逐条输入菜单项标题、名称(控件名，不可少)，设置层次关系、相对位置等。•下拉菜单分隔线,标题设为“-”•通过Checked属性（Boolean类型）可将菜单项设计为复选项的形式。菜单设计要点菜单项相当于控件，应分别命名。亦可给功能相近的菜单项命以相同的控件名，将它们设计为控件数组，并在“索引”栏设置下标.菜单设计要点若有需要可以给没有下级菜单的菜单项设计快捷键（如Ctrl+D）热键(键盘“Alt+字母”操作菜单)，带下划线的字母。设计方法：&字母下拉式菜单事件在下拉式菜单中，一般只需要对下拉菜单的最低级菜单项编写单击事件代码。单击菜单项，在代码窗口输入各菜单项功能代码PrivateSub菜单项名_Click()…………EndSub快捷菜单(弹出式菜单)•设计一个两层菜单•可设顶层菜单项为不可见•通过某个事件过程（一般是右击鼠标）来激活菜单MouseDown事件参数Button=2PrivateSub对象_MouseDown(ButtonAsInteger,……)IfButton=2Then'右击PopupMenu菜单名'弹出菜单EndIfEndSub快捷菜单(弹出式菜单)通用对话框通用对话框添加到工具箱工程/部件选定部件标签选定MicrosoftCommDialogControl6.0确定通用对话框图标或[浏览]查找文件Comdlg32.ocx（通常在C:\Windows\System）打开通用对话框通用对话框可以提供6种形式的对话框，通过设置Action属性值或调用Show方法来建立不同类型的对话框。如下表：打开通用对话框的方法与Action属性设置在运行时显示“打开”对话框用：CommonDialog1.ShowOpen或CommonDialog1.Action=1“打开”/“另存为”对话框在运行时显示“另存”对话框用：CommonDialog1.ShowSave或CommonDialog1.Action=2文件对话框（打开、另存）需设置的属性FilterFileNameInitDir1.FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径）2.FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径）3.Filter（过滤器）属性：确定文件列表框中所显示文件的类型。如Word文挡|*.DOC|文本文件|*.txt|所有文件|*.*4.InitDir（初始化路径）属性：该属性用来指定打开对话框中的初始目录，若不设置，系统则默认为“C:\MyDocuments\”。文件对话框（打开、另存）的主要属性的设置颜色对话框是当Action值为3时的通用对话框。重要属性Color：用来返回或设置选定的颜色“颜色”对话框PrivateSubCommand2_Click()CommonDialog1.ShowColorLabel1.ForeColor=CommonDialog1.ColorEndSub字体对话框是Action为4时的通用对话框，提供用户选择字体、字号及字体样式等。.FontNameFontBold、FontItalicFontSizeFontStrikethruFontUnderlineColorMin、Max“字体”对话框字体对话框重要的属性•Font属性集：包括FontName,FontBold,FontItalic,FontStrikethru,FontUnderline•Flags属性：在显示“字体”对话框前必须设置.常数值说明cdlCFScreenFonts&H1屏幕字体cdlCFPrinterFonts&H2打印机字体cdlCFBoth&H3两者皆有cdlCFEffects&H100出现删除线、下划线、颜色元素PrivateSubCommand1_Click()CommonDialog1.Flags=&H100Or&H3CommonDialog1.ShowFontEndSub