可视化程序设计第10章 菜单与工具栏

可视化程序设计第10章 菜单与工具栏

ID:43209705

大小:784.00 KB

页数:30页

时间:2019-10-03

可视化程序设计第10章 菜单与工具栏_第1页
可视化程序设计第10章 菜单与工具栏_第2页
可视化程序设计第10章 菜单与工具栏_第3页
可视化程序设计第10章 菜单与工具栏_第4页
可视化程序设计第10章 菜单与工具栏_第5页
资源描述:

《可视化程序设计第10章 菜单与工具栏》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、VisualBasic程序设计教程机械工业出版社同名教材 配套电子教案2003年6月第10章菜单与工具栏10.1使用菜单10.1.1下拉式菜单10.1.2弹出式菜单10.2使用工具栏10.2.1用手工方式制作工具栏10.2.2使用Toolbar控件与ImageList控件10.1菜单编辑器启动菜单编辑器:有三种方法1单击工具栏菜单图标2工具/菜单编辑器(CTRL+E)3窗体上快捷菜单/菜单编辑器菜单编辑器操作界面如右所示。菜单编辑器的使用技巧1.标题(Caption):2.名称(Name):3.快

2、捷键(Shortcut):4.下一个(Next):5.←和→按钮6.插入(Insert)按钮:7.删除(Delete)按钮:8↓和↑按钮:10.复选(Checked)检查框:10.有效(Enabled)检查框:11.显示窗口列表(WindowList)检查框:根据设计要求,依次输入或选择所面项目,即可完成。例:菜单的主要属性:1.标题(Caption):在窗口上显示,例如:输入&File,显示为:File,热键:Alt+F2.名称(Name):菜单项的名称,分界符也应有名称。3.快捷键(Short

3、cut):下拉列表框4下一个(Next):设置下一个菜单项。5.←和→按钮:“→”下一级菜单项;“←”上一级菜单项。6.插入(Insert)按钮:插入菜单项7.删除(Delete)按钮:删除菜单项8.↓和↑按钮:改变菜单项位置。10.复选(Checked)检查框:菜单项为选定项。10.有效(Enabled)检查框:True:菜单项可选;False:不可选。11.显示窗口列表(WindowList)检查框:10.1.1下拉式菜单在下拉式菜单中,一般有一个主菜单,称为菜单栏。每个菜单栏包括一个或多个选

4、择项,称为菜单标题。在下拉式菜单中,一般只需要对下拉菜单的最低级菜单项编写单击事件代码,如果对一个有下级菜单的菜单项编写了单击事件,则在执行下一级菜单时,该菜单程序将先执行。菜单控件(对象)只有一个事件——单击事件(Click())【例10-1】为例4-15中的电子标题板增加一个菜单,利用菜单来控制标题板的内容、字体、字体风格等,如图10-4所示。图10-4利用菜单控制标题板:(1)打开菜单编辑器。(2)编写菜单项代码。编写“文本内容”项Txt的Click事件代码:PrivateSubTxt_Cl

5、ick()temp=InputBox("请输入标题板的新内容","输入",Label1.Caption)Iftemp<>""ThenLabel1.Caption=tempEndIfEndSub编写“文本字体”中4个菜单选项的Click事件代码:PrivateSubsong_Click()Label1.FontName="宋体"EndSubPrivateSubli_Click()Label1.FontName="隶书"EndSubPrivateSubkai_Click()Label1.FontNam

6、e="楷体_GB2312"EndSubPrivateSubhei_Click()Label1.FontName="黑体"EndSub编写“文本风格”中3个菜单选项的Click事件代码:PrivateSubbld_Click()bld.Checked=Notbld.CheckedLabel1.FontBold=bld.CheckedEndSubPrivateSubItl_Click()Itl.Checked=NotItl.CheckedLabel1.FontItalic=Itl.CheckedEnd

7、SubPrivateSubUndrln_Click()Undrln.Checked=NotUndrln.CheckedLabel1.FontUnderline=Undrln.CheckedEndSub3.菜单控件数组【例10-2】将例9-2中的命令按钮改为菜单控制,并在此基础上增加“编辑”子菜单。使用菜单控件数组设计的文本编辑器。编写菜单项代码:编写“编辑”菜单中的菜单控件数组Edi的Click事件代码:PrivateSubedi_Click(IndexAsInteger)i=IndexClipb

8、oard.SetTextText1.SelTextSelectCaseiCase0'剪切Clipboard.SetTextText1.SelTextText1.SelText=""Case1'复制Case2'粘贴Text1.SelText=Clipboard.GetText()Case3'删除Text1.SelText=""EndSelectEndSub【例10-3】当文本中没有被选中的内容时,剪切、复制和删除等功能被关闭——菜单项呈灰色。一旦选中某些文本后,剪切、复制和删除等功能

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。