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

导读：
　　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
　　
　　Trackback: http://tb.blog.youkuaiyun.com/TrackBack.aspx?PostId=1630956

本文转自
http://blog.youkuaiyun.com/zou_seafarer/archive/2007/05/30/1630956.aspx