一般我们可能在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
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 