zoukankan      html  css  js  c++  java
  • 转载-VB中禁用文本框右键菜单等功能

    '==========================================================
    '| 模 块 名 | TextBoxDisableAbility
    '| 说  明 | 禁止文本框的功能
    '==========================================================Option Explicit
    Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
    Private 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
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Const GWL_WNDPROC = (-4)
    Private Const WM_CUT = &H300 '-------------剪切消息
    Private Const WM_COPY As Long = &H301 '-------------复制消息
    Private Const WM_PASTE As Long = &H302 '-------------粘贴消息
    Private Const WM_CLEAR = &H303 '-------------删除消息[右键菜单的删除]
    Private Const EM_UNDO = &HC7 '-------------撤销消息
    Private Const WM_CONTEXTMENU = &H7B '-------------右键菜单
    Private prevWndProc   As Long
    Private Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
      Select Case Msg
      Case WM_CUT, WM_COPY, WM_PASTE, WM_CLEAR, EM_UNDO, WM_CONTEXTMENU
        '这里处理自定义的事件,最好为空
      Case Else
        '回调系统函数处理
        WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)
      End Select
    End Function
    Public Sub DisableAbility(TargetTextBox As TextBox)
      '程序启动时调用这个
      prevWndProc = GetWindowLong(TargetTextBox.hwnd, GWL_WNDPROC)
      SetWindowLong TargetTextBox.hwnd, GWL_WNDPROC, AddressOf WndProc
    End Sub
    

      

  • 相关阅读:
    asp.net 实现一级域名与二级域名共享COOKIE
    用jQuery解决弹出层的问题
    让PPC手机增加自动对时功能
    漂亮的弹出层效果jQuery
    用C# 实现C/S模式下软件自动在线升级
    C#应用中设计自己的配置文件
    开心网外挂程序
    C#实现IIS的启动、停止、重启
    类似MSN弹出通知消息功能的控件[转]
    C#修改app.config配置文件信息
  • 原文地址:https://www.cnblogs.com/xbj-hyml/p/4737056.html
Copyright © 2011-2022 走看看