VisualBasic程序设计刘瑞VB9课件教学.pptVIP

【例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 = 0, False, True) End Sub 鼠标键抬起（MouseUp）事件代码为： Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) edi(0).Visible = IIf(Text1.SelLength = 0, False, True) edi(1).Visible = IIf(Text1.SelLength = 0, False, True) edi(3).Visible = IIf(Text1.S