Private Sub xt Click Text1. fontltalic= not text 1. fontltalic End sub 10.12弹出式菜单 与下拉菜单不同,弹出式菜单不需要在窗口顶部 下拉打开,而是通过单击鼠标右键在窗体的任意位置 打开,因而使用方便,具有较大的灵活性。 请单属标左键换页Private Sub xt_Click() Text1.FontItalic = Not Text1.FontItalic End Sub 10.1.2 弹出式菜单 与下拉菜单不同,弹出式菜单不需要在窗口顶部 下拉打开,而是通过单击鼠标右键在窗体的任意位置 打开,因而使用方便,具有较大的灵活性