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

一般我们可能在 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 的技巧)，但是有人发现了以下的方式便可以解决(也是一个十分实作性的经验): Private Sub Text1_MouseDown(Button As Integer,Y As Single) If Button = 2 Then Text1.Enabled = False : Text1.Enabled = True PopupMenu MyMenu End If End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!