出包王女darkness2:VB有关PopMenu的问题

来源:百度文库 编辑:高考问答 时间:2024/05/07 09:11:09
我想让一文本框(Text1)右键菜单变成自己定义的菜单(Menu1),写了:

-----------------------------------------------------------------
Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu Form1.Menu1
End If
End Sub
-----------------------------------------------------------------

可是非会弹出TextBox的默认菜单,
请问如何解决?