【例102】我们将例101中的“字形”菜单的内容 作为弹出式菜单的内容。 我们只需在代码窗口添加如下代码: Private Sub Form Mouse Down(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button =2 Then PopupMenu ZX, 2 End if End sub 运行程序,鼠标右键单击窗体,即可弹出“字形” 菜单的菜单内容。如果不想在窗体顶部显示“字形” 菜单,则可在窗体编辑器中将zX主菜单项的“可见” 属性设为 False即可。 请单属标左键换页【例10.2】我们将例10.1中的“字形”菜单的内容 作为弹出式菜单的内容。 我们只需在代码窗口添加如下代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu zx, 2 End If End Sub 运行程序，鼠标右键单击窗体，即可弹出“字形” 菜单的菜单内容。如果不想在窗体顶部显示“字形” 菜单，则可在窗体编辑器中将zx主菜单项的“可见” 属性设为False即可