使TextBox按Mouse右键时只出现自定PopUp Menu

来源: Jaric

一般我们可能在TextBox的MouseDown Event中Check是否按右键，若是，则设定出现Popup
Menu程式如下：
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
   PopupMenu MyMenu
End If

End Sub
可是出现的还是原先内定的Popup Menu，之後再按一次右键，才出现我们内定的menu
很奇怪吧，如果用API来解决，那便是要拦截Mouse的按键(使用SubClassing的技巧)，
但是Jaric发现了以下的方式便可以解决，也是一个十分实作性的经验。

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 MyMenu
End If

End Sub