zoukankan      html  css  js  c++  java
  • 拦截TextBox 双击消息

    Option Explicit
    
    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
    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 Const GWL_WNDPROC = (-4)
    Public Const WM_NCLBUTTONDBLCLK = &H203 'DoubleClick Message
    Public prevWndProc As Long
    
    Public Function WndProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If msg = WM_NCLBUTTONDBLCLK Then 'DoubleClick Message
    'Eat The Message
    Else 'Other Message send to next
    WndProc = CallWindowProc(prevWndProc, hwnd, msg, wParam, lParam)
    End If
    End Function
    
    '*************************************************************************
    '**主要函数
    '**添加 0-9 个?xtKairo txtIkisaki1 txtIkisaki2
    '*************************************************************************
    Public Sub TxtDoubleClickMassage(Frm As Form)
    Dim i As Integer
    For i = 0 To 9 '
    '区分符号
    prevWndProc = GetWindowLong(Frm.txtKairo(i).hwnd, GWL_WNDPROC)
    SetWindowLong Frm.txtKairo(i).hwnd, GWL_WNDPROC, AddressOf WndProc
    '名称1
    prevWndProc = GetWindowLong(Frm.txtIkisaki1(i).hwnd, GWL_WNDPROC)
    SetWindowLong Frm.txtIkisaki1(i).hwnd, GWL_WNDPROC, AddressOf WndProc
    '名称2
    prevWndProc = GetWindowLong(Frm.txtIkisaki2(i).hwnd, GWL_WNDPROC)
    SetWindowLong Frm.txtIkisaki2(i).hwnd, GWL_WNDPROC, AddressOf WndProc
    Next
    End Sub
    
  • 相关阅读:
    PIC基础学习3
    增强WebClient的同步下载功能
    同步模式下的端口映射程序
    .Net并行库介绍——Parallel
    写了一个测试正则表达式的小工具
    Windows 7下的虚拟光驱
    昨天发的一篇帖子竟然上了60天点击排行榜了
    .Net中的Junction Points操作
    在技嘉主板上实现USB启动
    正则表达式测试工具原型完成
  • 原文地址:https://www.cnblogs.com/lbnnbs/p/4782057.html
Copyright © 2011-2022 走看看