初中九年级信息技术vb中制作菜单

菜单设计世上最廉价，而且能得到最大利益的东西，就是礼节！目录1菜单术语2菜单编辑器3界面设计4菜单项的代码设计5上机操作菜单术语一组命令的集合，相当于命令按钮所起的作用1、菜单2、术语菜单栏复选菜单子菜单菜单分隔线无效菜单：是指灰色菜单菜单快捷键菜单编辑器的使用三种方式：工具菜单、工具栏、右击窗体1、打开菜单编辑器2、需要为每个菜单添加标题和名称菜单编辑器的使用3、“复选”属性：菜单的Checked属性，设置复选菜单（勾选或True时为复选菜单）4、“有效”属性：菜单的Enabled属性，设置灰色菜单。（勾选或True时为黑色的有效菜单）5、“可见”属性：菜单的Visible属性，设置菜单是否可见。（勾选或True时可见）菜单编辑器的使用6、四个箭头向上、向下箭头——改变菜单项的顺序。向左向右箭头——减少或增加内缩符号，即改变子菜单的级别7、“下一个”按钮：编辑下一菜单项四个小点是“内缩符号”，表示该菜单项是子菜单设计文本编辑器1、设计思路添加菜单标题名称可见有效级别文件（F）Ffile√√顶级打开Fopen√√1保存Fsave√√1分隔线Fline√√1退出FQuit√√1编辑（E）Edit√√顶级复制Ecopy√1剪切Ecut√1粘贴Epaste√1删除Edel√1文件与编辑菜单标题名称可见有效复选级别格式（G）Format√√顶级字体…FormatFont√√1颜色FormatColor√√1前景色…FCfore√√2分隔线FCLine√√2背景色…FCBack√√2特殊格式FormatOther√√1常规FOusual√√2分隔线FOLine√√2加粗FObold√√√2倾斜FOItalic√√√2下划线FOULine√√√2格式菜单的命令结构添加菜单编辑完成的菜单添加菜单学生自己操作界面设计—增强文本框的使用1、添加增强文本框控件（RichTextBox）：执行“工程/部件”命令2、将控件工具箱中的RichTextBox添加到窗体中作用：提供比文本框更强大的文本操作功能。边讲边做属性与操作界面设计—增强文本框的使用增强文本框（名称：RichTextBox1)可以进行文件操作：被选择的文本属性：SelText被选择的文本颜色属性：SelColor被选择的文本字体属性：SelFontName可对选定的文本进行相应的操作如：打开文件在增强文本框显示：RichTextBox1.LoadFile文件名将增强文本框的文本保存为文件：RichTextBox1.SaveFile文件名边讲边做界面设计—通用对话框的使用1、添加通用对话框控件（CommonDialog）：执行“工程/部件”命令2、将控件工具箱中的CommonDialog添加到窗体中边讲边做调用“打开”对话框：控件名.ShowOpen调用“保存”对话框：控件名.

ShowSave调用“颜色”对话框：控件名.

ShowColor调用“字体”对话框：控件名.ShowFont调用“打印”对话框：控件名.

ShowPrinter调用“帮助”对话框：控件名.

ShowHelp方法与操作界面设计—通用对话框的使用边讲边做格式为：说明字符1|类型描述1|说明字符2|类型描述2|……界面设计—通用对话框的使用通用对话框重要的属性Filter属性：确定打开和保存文件的类型CommonDialog1.Filter=“所有文件(*.*)|*.*|文本文件(*.txt)|*.txt“则在文件列表显示“所有文件(*.*)”和“文本文件(*.txt)”格式中的“|”不可缺少FileName属性：用于设置或返回要条形或保存的文件的路径及文件名。边讲边做1、文件菜单——“打开”命令的代码代码设计单击此处进入代码输入状态，输入如下代码：PrivateSubFopen_Click()'打开文件OnErrorGoToErrHandlerCD1.Filter="AllFiles(*.*)|*.*|TextFiles-(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"CD1.FilterIndex=2CD1.ShowOpenfn=CD1.FileNameRTB.LoadFilefnErrHandler:

ExitSubEndSub边讲边做2、文件菜单——“保存”命令的代码单击此处进入代码输入状态，输入如下代码：PrivateSubFsave_Click()'保存OnErrorGoToErrHandler‘出错处理CD1.Filter="AllFiles(*.*)|*.*|TextFiles(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"CD1.FilterIndex=2CD1.ShowSave’打开“另存为”对话框fn=CD1.FileName‘获取到文件名RTB.SaveFilefn’保存文件ErrHandler:

ExitSubEndSub边讲边做3、文件菜单——“退出”命令的代码单击此处进入代码输入状态，输入如下代码：PrivateSubFQuit_Click()'退出

EndEndSub边讲边做4、编辑菜单——“复制”命令的代码单击此处进入代码输入状态，输入如下代码：PrivateSubEcopy_Click()'复制Clipboard.SetTextRTB.SelTextEndSub思考与讨论：剪切、粘贴、删除三个命令的代码应如何编写？先小组讨论后回答与编写程序。边讲边做4、编辑菜单——“全选”命令的代码单击此处进入代码输入状态，输入如下代码：PrivateSubEall_Click()'全选RTB.SelStart=0RTB.SelLength=Len(RTB.Text)EndSub边讲边做5、格式菜单——“字体”命令的代码单击此处进入代码输入状态，输入如下代码：PrivateSubFormatFont_Click()'字体字号CD1.Flags=cdlCFBothCD1.ShowFontOnErrorGoToErrHandlerRTB.SelFontName=CD1.FontNameRTB.SelFontSize=CD1.FontSizeExitSubErrHandler:ExitSub'用户按了取消按钮EndSubFlags:看阅读材料边讲边做5、格式菜单——“颜色”命令的代码单击此处输入代码：PrivateSubFCfore_Click()'设置前景色CD1.ShowColorRTB.SelColor=CD1.ColorEndSub单击此处输入代码：PrivateSubFCBack_Click()'设置背景色

CD1.ShowColorRTB.BackColor=CD1.ColorEndSub边讲边做5、格式菜单——“特殊格式”命令的代码单击此处输入“常规”命令代码：PrivateSubFOusual_Click()'常规

FObold.Checked=FalseFOItalic.Checked=FalseFOLine.Checked=FalseRTB.SelBold=FalseRTB.SelItalic=FalseRTB.SelUnderline=FalseEndSub边讲边做5、格式菜单——“特殊格式”命令的代码单击此处输入“加粗”命令代码：PrivateSubFObold_Click()'加粗IfFObold.CheckedThenFObold.Checked=FalseRTB.SelBold=FalseElseFObold.Checked=TrueRTB.SelBold=TrueEndIfEndSub边讲边做5、格式菜单——“特殊格式”命令的代码单击此处输入“倾斜”命令代码：PrivateSubFOItalic_Click()'倾斜IfFOItalic.CheckedThenFOItalic.Checked=FalseRTB.SelItalic=FalseElseFOItalic.Checked=TrueRTB.SelItalic=TrueEndIfEndSub边讲边做5、格式菜单——“特殊格式”命令的代码单击此处输入“下划线”命令代码：PrivateSubFOULine_Click()'下划线IfFOULine.CheckedThenFOULine.Checked=FalseRTB.SelUnderline=FalseElseFOULine.Checked=TrueRTB.SelUnderline=TrueEndIfEndSub边讲边做丰富文本框:属性:SelText、SelStart、SelLength方法：LoadFile、SaveFile通用对话框：属性:Filter、Fil