vb配套电子教案--VB9.pptVIP

2021/3/27 * 图9-10 菜单项的可用与不可用 只需在例9-3的基础上增加“编辑”菜单项Edit的Click事件代码为: Private Sub Edit_Click() edi(0).Enabled = IIf(Text1.SelLength = 0, False, True) edi(1).Enabled = IIf(Text1.SelLength = 0, False, True) edi(3).Enabled = IIf(Text1.SelLength = 0, False, True) End Sub 2021/3/27 * 【例9-5】在例9-3的基础上改变程序,隐藏剪切、复制和删除菜单项。 隐藏菜单项的办法也是很简单的。在例9-3中,编写文本框Text1的事件代码。 键抬起（KeyUp）事件代码为: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) edi(0).Visible = IIf(Text1.SelLength = 0, False, True) edi(1).Visible = IIf(Text1.SelLength = 0, False, True) edi(3).Visible = IIf(Text1.SelLength =