在vb中实现真正锁定的带自定义菜单的文本控件

     在vb中实现真正锁定的带自定义菜单的文本控件

///
///这个东西的出台,是由于一个网友的帖子,太气人,我才写的,很匆忙,又什么问题,请指出!谢谢
//QQ:9181729/mail:shawfile@163.net/http://shawls.yeah.net
///


     vb中的textbox控件,虽然可以设置locked属性来实现对文本的锁定,但是,如果用户使用右键菜单,那么就不起作用了,仍然可以对文本进行编辑,有没有办法使用户不能对文本框进行编辑而且替换掉控件的那个右键菜单呢?

     完整实现代码如下:
     ’核心代码的代码
     'uTextBox 是你要屏蔽的文本控件   m_Menu 是你要弹出的菜单  m_Read标记是否锁定
Private Sub uTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 And m_Read = True Then
        OldWindowProc = GetWindowLong(uTextBox.hWnd, GWL_WNDPROC)
        ' 取得窗口函数的地址
        Call SetWindowLong(uTextBox.hWnd, GWL_WNDPROC, AddressOf SubClass_WndMessage)
       ' 用SubClass_WndMessage代替窗口函数处理消息
    End If
End Sub

Private Sub uTextBox_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 And m_Read = True Then
        Call SetWindowLong(uTextBox.hWnd, GWL_WNDPROC, OldWindowProc)
        ' 恢复窗口的默认函数
        ' 弹出自定义菜单
        If Not m_Menu Is Nothing Then
            If TypeOf m_Menu Is Menu Then
                PopupMenu m_Menu
            End If
        End If
    End If
End Sub

'以下放置在模块中

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam 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


Public Function SubClass_WndMessage(ByVal hWnd As OLE_HANDLE, ByVal Msg As OLE_HANDLE, ByVal wp As OLE_HANDLE, ByVal lp As Long) As Long
    If

阅读终点,创作起航,您可以撰写心得或摘录文章要点写篇博文。去创作
  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

shawls

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值