一个拦截TEXT双击消息的代码!

最新推荐文章于 2022-08-08 16:21:03 发布

ZOU_SEAFARER

最新推荐文章于 2022-08-08 16:21:03 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： function integer user

本文链接：https://blog.youkuaiyun.com/zou_seafarer/article/details/1630956

VB 专栏收录该内容

67 篇文章

订阅专栏

本文介绍了一种在Visual Basic中通过API调用禁止特定文本框双击事件的方法，避免触发默认选择全部内容的行为，适用于自动补全等特殊场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

'*************************************************************************
'**三つ自動コンプリートテキストボックスの処理。
'**テキストボックスダブルクリックの時、システムのダブルクリックイベントを実行しない。
'**（システムダブルクリック実行の時、テキストボックスの内容を選択で表示します。）
'*************************************************************************
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