二实作vbxk项02-01.docVIP

1.设计一个如图2-1所示的菜单系统，要求： （1）设计一个如图2-1所示的菜单系统，要求： （1）在菜单栏中有“文件”和“颜色”两个菜单，其中“文件”菜单中包含“新建”、“打开”、“保存”、“发送”和“退出”五个菜单项，其中“发送”子菜单又包含 “邮件收件人”和“传送收件人”两个选项。“颜色”菜单中包含“红色”、“蓝色”和“绿色”三个子菜单。程序运行后，若文本框中没有文本，“颜色”菜单中的各项均为灰色显示，表示当前不可用。当用户向文本框中输入了文字后，单击“颜色”菜单中相应的选项可以改变文本框中文字的颜色。 ? ??（2）为文本框增加一个弹出式菜单，该菜单包括“粗体”、“斜体”和“下划线”3个选项，要求单击某选项后可以使文本框中文字的字体作出相应的变化，并在当前活动项的前面加一个“”。 ?（3）各菜单控件按下表（表2-1）要求设置 ? ? ? 表21 菜单控件设置列表 菜单层次 标题(Caption) 名称(Name) 顶层 文件(F) File 一级 新建( N) FileNew 一级 打开(O) FileOpen 一级 保存(S) FileSave 一级 - sep1 一级 发送(D) Filesend 二级 邮件收件人(M) FilesendEmail 二级 传送收件人(R) Filesendnew 一级 - sep2 一级 退出(X) Exit 顶层 颜色 Color 一级 红色(R) Red 一级 蓝色(B) Blue 一级 绿色(G) Green 顶层 字体(F) Fon 一级 粗体 Bld 一级 斜体 Itl 一级 下划线 Undrln ? 提示：（1） ???????弹出式菜单包括内置的弹出菜单和定制的弹出菜单两种。因为文本框TextBox已经含有内置的弹出菜单，所以程序运行后，在第二次点击鼠标右键时，才显示定制的弹出菜单。 ?????? 弹出式菜单在运行时是不可见的，所以在设计“字体”菜单时，应将其Visible属性设为False，即将“可见”前面的“”去掉。 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-01.vbp，窗体文件名为vbxk2-01.frm，文件夹名为vbxk2-01。 Private Sub Form_Load() red.Enabled = False blue.Enabled = False green.Enabled = False bld.Checked = False itl.Checked = False undrln.Checked = False End Sub Private Sub Red_Click() Text1.ForeColor = vbRed End Sub Private Sub Blue_Click() Text1.ForeColor = vbBlue End Sub Private Sub Green_Click() Text1.ForeColor = vbGreen End Sub Private Sub bld_click() Text1.FontBold = Not Text1.FontBold bld.Checked = Not bld.Checked End Sub Private Sub Itl_click() Text1.FontItalic = Not Text1.FontItalic itl.Checked = Not itl.Checked End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 如果是鼠标右键按下时 Text1.Enabled = False 使文本框无效 Form1.PopupMenu fon 弹出右键菜单 Text1.Enabled = True 再次使文本框有效 End If End Sub Private Sub Undrln_click() Text1.FontUnderline = Not Text1.FontUnderline undrln.Checked = Not undrln.Checked End Sub Private Sub Text1_Change() If Text1 = Then red.Enabled = False blue.Enabled = False green.Enabled = False Else red.Enabled =