VB中的文本框怎样设置为不能使用右键

来源：百度知道 编辑：UC知道 时间：2024/06/14 02:53:37
只要用户对其不能修改即可，或者使用标签但有竖直滚动条
locked属性已经设置为True，但是还能使用右键，只是不能用剪切功能了
Enable属性设置为false后滚动条就不能用了。

一种简单的方法：

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Text1.Enabled = False '禁止出现系统菜单
PopupMenu abc1 '显示自已的菜单或做其它的事
Text1.Enabled = True
End If
End Sub

另一种复杂一点的：

Option Explicit

Public OldWindowProc As Long
' 保存默认的窗口函数的地址
Public Const WM_CONTEXTMENU = &H7B
' 当右击文本框时，产生这条消息

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam A