1466
社区成员
关于文本框EN_CHANGE消息的问题
我想让文本框的内容发生改变时触发事件，但不想用Text1_Change事件，用API的SendMessage的EN_CHANGE如何实现呢？最好给个例子，谢谢啊。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
热爱生活 2011-04-11
?/?、
- 打赏
- 举报
gogc 2007-07-11
这个问题到底解决了吗？
以下代码为什么 只能捕捉到“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
以下代码为什么 只能捕捉到“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
- 打赏
- 举报
knight_ice 2007-06-20
用SetWindowLong修改一个值，好像是（-4），把它改为自己的函数，不要的时候弄回去（SetWindowLong返回的就是原来的值。
- 打赏
- 举报
homezj 2007-06-19
Edit给父窗体发送WM_COMMAND消息，在wParam参数中HIWORD包含EN_CHANGE消息。
这个消息属系统通知类消息，是用于接收的，不适于自己发送的。
这个消息属系统通知类消息，是用于接收的，不适于自己发送的。
- 打赏
- 举报
HollyBeing 2007-06-19
谢谢关注，但这个地址没有相关内容。
- 打赏
- 举报
孙小雄 2007-06-19
http://www.lihuasoft.net/article/show.php?id=348
你看看这个文档
你看看这个文档
- 打赏
- 举报
继承的文本框控件怎么响应EN_CHANGE等消息 继承的文本框控件如何响应EN_CHANGE等消息？我从CEdit继承了一个CMyEdit类，想在这个类里填写它的一些消息。我在消息映射表里写的是MESSAGE_HANDLER(EN_CHANGE, OnChange)，但是文本框有字符键入时并没有响应...
VisualFreeBASIC基础——文本框的使用 文本框常用于文本的输入、显示和编辑。在VFB工具栏上找到文本框控件，选择，拖动到窗口，如图： 一、控件属性 1、Name（名称） 和窗口一样，Name属性是按钮类的实例化，我们可以用【名称.属性/方法】来使用...
winforms 文本框_在禁用的VB.Net WinForms文本框中自定义颜色的新方法 winforms 文本框 A request I've seen often here on Experts-Exchange and out on the internet is for the ability to customize the BackColor and ForeColor of a Disabled TextBox. A common...
JQuery 但是实际上这不是一个问题。目前在这方面有 一个单独的jQuery UI项目和众多插件来弥补此点。 第二节 JQuery文档加载事件 第一种 document ready 函数中： $(document).ready(function(){ ..... })...
最新关于TextField的不能够即时拿到文本框输入值的问题解决 使用到TextField代理方法去做拿到文本框里面的值然后去搜索相对应的结果做搜索款问题的时候 如果食用代理方法去得到输入框里面的值的话反应辉慢一步坑爹的代理方法，不知道那这个有什么用， 我这里的解决方法已经...
MFC 监控界面上所有文本框值的变化 //控件消息，菜单，按钮等 BOOL CXXDlg::OnCommand(WPARAM wParam, LPARAM lParam) { // TODO: 在此添加专用代码和/或调用基类 ... if ( wmEVENT == EN_CHANGE) { //HWND hwndCtl = (HWND) lParam; int
MFC界面编程基础（11）：静态文本框、命令按钮和编辑框 静态文本框、命令按钮和编辑框是Windows应用程序中最基本的控件。静态文本框是CStatic类的对象，命令按钮是CButton类的对象，编辑框是CEdit类的对象。这三个类都是从CWnd类直接派生来的，具有CWnd类的全部功能。 ...
文本框控件的消息及应用 编辑(或文字)控件是“文本框控件”的简称,它通常用于输入和编辑文字。它属于标准Windows编辑控件的一个子类,所以它支持所有编辑控件消息。这儿讲述的技术也适用于由其他厂商设计的,以Windows编辑控件类为基础的其他...
常见问题：文本框控件的消息及应用 (转) 常见问题：文本框控件的消息及应用 (转)[@more@] 文本(或文字)控件是“文本框控件”的简称,它通常用于输入和编辑文字。它属于标准windows编辑控件的一个子类,所以它支持所有编辑控件消息。这儿讲述的技术也适用于由...
layui的change监听事件 关于layui的下拉框的change监听事件 首先** 必须加上 lay-filter=“test” ， ** " " ** 中可以随便写，这里添加的是test** ， 然后下拉框如下 <label class="layui-form-label" style="line-height: 15px">...
jQuery监听文本框值改变触发事件（propertychange） DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <...
DOM change 事件 change事件当、、的值发生变化时触发。它与input事件的最大不同，就是不会连续触发，只有当全部修改完成时才会触发，另一方面input事件必然伴随change事件。具体来说，分成以下几种情况。 激活单选框（radio）或复选...
jquery文本框改变事件 <html lang="en"> <title>TEXTBOX EVENT <script src="jquery-ui-1.11.4.custom/external/jquery/jquery.js"></script> $(document).ready(function(){ //按键弹起时触发事件 $("#mytext").keyup(function...
文本框Edit · ON_EN_CHANGE 输入框中文字更新后产生 · ON_EN_ERRSPACE 输入框无法分配内存时产生 · ON_EN_KILLFOCUS / ON_EN_SETFOCUS 在输入框失去/ 得到输入焦点时产生 使用以上几种消息映射的方法为定义原型如：afx_...
Win32子控件-文本框 可以在_tWinMain函数中建立，也可以在WM_CREATE消息中建立，在WM_SIZE消息中再用MoveWindow函数初始化坐标和大小 //建立3个文本框 box_normal=CreateWindow(TEXT("EDIT"),TEXT("默认带边框样式"),WS_VISIBLE|WS_...
