国开学习网电大VisualBasic程序设计形考任务三答案

经典word整理文档，仅参考，双击此处可删除页眉页脚。本资料属于网络整理，如有侵权，请联系删除，谢谢！【本人姓名】实验4菜单设计.zip4455实验目的1掌握菜单编辑器的使用方法。2掌握下拉式菜单的制作。实验内容本实验主要开发一个如图4.21所示的菜单系统。在菜单栏中有“插入”和个菜单项，“文本框”子菜单又包含“横排”和“竖排”两个选项。“颜色”菜单中包含“红色”“蓝色”和“绿色”3个子菜单。图4.21简单菜单设计程序的运行逻辑是：若文本框中没有文本，“颜色”菜单中的各项均为灰色显示，表示当前不可用。当用户向文本框中输入了文字后，单击“颜色”菜单中相应的选项可以改变文本框中文字的颜色。实验步骤1界面设计（1）启动VB进入VisualBasic6.0集成开发环境。单击工程菜单下的“菜单编辑器”命令，打开菜单编辑器对话框，如图4.22所示。图4.22菜单编辑器（2）在标题框中输入“插入(&I)”，在名称框中输入Insert，这样就创建了“插入”菜单。各菜单控件设置如表4.3所示。表4.3菜单控件设置快?（3）单击按钮，再单击按钮（条形光标的左端出现了“…”），在标题框中输入“符号（&S）”，在名称框中输入Symbol，即创建了“插入”菜单的一级子菜单：“符号”。Picture，中输入Horizon，即创建了“文本框”的下一级菜单：“横排”。用同样方法创建“文本框”的另一个子菜单：“竖排”。Sep，创建了分隔条。（7）单击按钮，在标题框中输入“文件”，在名称框中输入File，创建一级子菜单“文件”。（8）单击按钮，再单击按钮，在标题框中输入“颜色”，在名称框中输入Color，创建了顶级菜单“颜色”。（9）仿照上面的步骤，创建“颜色”菜单的一级子菜单：“红色”“蓝色”和“绿色”。创建了各菜单项的菜单编辑器如图4.23所示。[i图4.23创建了各菜单项后的菜单编辑器所示的菜单栏。图4.24菜单设计窗体界面(11)在Form1窗体上添加文本框Text1，并将文本框的Text属性值清空，将ScrollBars属性设置为3?both，将MultiLine设置为True。2代码设计单击工程资源管理器窗口中的“查看代码”按钮，打开代码编辑器窗口，编写如下程序代码：PrivateSubColor_Click()IfText1.Text=""ThenRed.Enabled=FalseBlue.Enabled=FalseGreen.Enabled=FalseElseRed.Enabled=TrueBlue.Enabled=TrueGreen.Enabled=TrueEndIfEndSubPrivateSubRed_Click()Text1.ForeColor=vbRedEndSubPrivateSubBlue_Click()Text1.ForeColor=vbBlueEndSubPrivateSubGreen_Click()Text1.ForeColor=vbGreenEndSub3保存和运行工程单击工具栏上的“保存”按钮，分别以CDSJ（1）.frm和CDSJ（1