11-2菜单项的控制与弹出式菜单.docVIP

教案序号 11-2 学科 Visual Basic 班级： 课题 菜单项的控制与弹出式菜单 课型 新授 教具 多媒体系统 课时 2 【教学知识与技能目标】 1．掌握菜单项的控制方法。 2．掌握弹出式菜单建立。Private Sub fz_Click() Clipboard.SetText Text1.SelText‘选择的内容送剪贴板 zt.Enabled = True End Sub Private Sub tc_Click() End End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then If Text1.SelText Then fz.Enabled = True End If End If End Sub Private Sub zt_Click() Text2.Text = Clipboard.GetText End Sub 【学生练习】 当前文本的字体在菜单中被关闭——菜单项呈灰色，可以选择未被选择的字体。 11-2-2 二、菜单项标记。 1、概念：菜单标记就是在菜单前加上一个“√”标志。它一方面可以明显地表