Text控件问题

Question

不用API的话
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then PopupMenu MnuFile '文本框图不宜用菜单
End Sub
只要双击右键就可用了,单击时只有第偶数次可用!!

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
        PopupMenu MnuFile '文本框图不宜用菜单
        Text1.Enabled=True
        
    End If
End Sub

Answer 2

'消除text控件的右键菜单，弹出自定义菜单
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 MnuFile '文本框图不宜用菜单
    End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 93 Then '把键盘上的菜单键屏蔽了
        Text1.Enabled = False
        Text1.Enabled = True
        PopupMenu MnuFile '文本框图不宜用菜单
    End If
End Sub

Answer 3

'消除text控件的右键菜单，弹出自定义菜单
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 MnuFile '文本框图不宜用菜单
    End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 93 Then '把键盘上的菜单键屏蔽了
'        Text1.Enabled = False
'        Text1.Enabled = True
        PopupMenu MnuFile '文本框图不宜用菜单
    End If
End Sub
'Win98Se+VB5.0