Question

VB弹出式菜单

我编的
If Button=2 Then PopupMenu FileMenu
但是调试的时候，第一次按右键先在桌面左上角跳出了一个弹出试菜单，第二次按右键时才会跳出我要的那个菜单
然后我试了一下，上边这句代码没有的时候，按右键就会跳出第一次出现的那个菜单，所以我想是不是text原来就有个弹出式菜单的，我再编一个就冲突了，要怎能解决呢

Answer 1

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 2 Then
        Text1.Enabled = False '禁止出现系统菜单
        Text1.Enabled = True
        PopupMenu FileMenu
    End If

End Sub