关于文本框EN_CHANGE消息的问题

[HollyBeing]

我想让文本框的内容发生改变时触发事件，但不想用Text1_Change事件，用API的SendMessage的EN_CHANGE如何实现呢？最好给个例子，谢谢啊。

[孙小雄]

http://www.lihuasoft.net/article/show.php?id=348

你看看这个文档

[HollyBeing]

谢谢关注，但这个地址没有相关内容。

[homezj]

Edit给父窗体发送WM_COMMAND消息，在wParam参数中HIWORD包含EN_CHANGE消息。
这个消息属系统通知类消息，是用于接收的，不适于自己发送的。

[knight_ice]

用SetWindowLong修改一个值，好像是（-4），把它改为自己的函数，不要的时候弄回去（SetWindowLong返回的就是原来的值。

[gogc]

这个问题到底解决了吗？
以下代码为什么 只能捕捉到“VK_LEFT” 而不能捕捉“EN_CHANGE”事件
请大家帮忙解决一下，谢谢

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 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_USER = &H400
Public Const GWL_WNDPROC = (-4)
Private OldWndProc As Long
Public Const VK_UP = &H101
Public Const VK_DOWN = &H100
Private Const VK_LEFT = &H25
Public Const EN_CHANGE = &H300
Private Const ENM_CHANGE = &H1
Private Const ENM_SELCHANGE = &H80000


Public Function WindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
' Debug.Print Msg, wParam, lParam
Select Case wParam
Case EN_CHANGE
Debug.Print "EN_CHANGE"
Case VK_LEFT
Debug.Print "VK_LEFT"
Case Else
' If Msg = WM_MYMESSAGE Then
' Debug.Print "自定义消息！"
' Exit Function
' End If
WindowProc = CallWindowProc(OldWndProc, hWnd, Msg, wParam, lParam)
End Select
End Function
Public Sub HookWindow(hWnd As Long)
OldWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHook(hWnd As Long)
SetWindowLong hWnd, GWL_WNDPROC, OldWndProc
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit

Private Sub Form_load()
Call HookWindow(Text1.hWnd)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call UnHook(Text1.hWnd)
End Sub

[热爱生活]

?/?、