鼠标右击事件

Private Sub Command1_Click() Unload Me End Sub

Private Sub sunfile2_Click() Text1.BackColor = RGB(0, 0, 255) End Sub

Private Sub sunfile3_Click() Text1.BackColor = vbRed End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu mnufile, 0, X, Y '对已有菜单的引用 End If End Sub

如何在鼠标点击处产生菜单项？ 1.mnufile(设为不可见)为主菜单项，sunfile2、sunfile3为子菜单项 2.popupMenu方法的运用（只需输入Form1.后该方法可以被找到)

过程Text1_MouseDown参数 button 参数是具有相应于左按钮（位 0），右按钮（位 1），以及中间按钮（位 2）的一个位字段。这些位的值分别等于 1，2，和 4。其中仅有一位被设置，指示出引起该事件的那个按钮。