窗体失去焦点事件浅谈

前端之家收集整理的这篇文章主要介绍了窗体失去焦点事件浅谈前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

从网上搜索到的方法,不敢独享。@H_301_3@

---- VB中有一个LostFocus事件和一个GotFocus事件,看名字似乎是当当前窗口失去焦点或得到焦点时触发的事件。但在实际应用时却发现当这个窗口和Windows中其他窗口进行切换时并没有触发这两个事件。现在解析一下这两个事件。@H_301_3@

---- Form_LostFocus、Form_GotFocus是指的是一个MDI主父窗体调用了多个子窗体,当这些子窗体之间切换时,就触发这两个事件;当一个窗体中的多个文本框,鼠标点击另一个文本框时,也会触发这两个此事件,文本框在 Windows内部实际上也是一个窗口。@H_301_3@

---- Windows内部是通过消息来触发事件的,这两个事件在Windows内部对应的消息是WM_NCACTIVATE,当该消息的wParam为0时表示是失去焦点,为非0时表示得到焦点。在模块中:@H_301_3@

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long,ByVal nIndex As Long,ByVal dwNewLong As Long) As Long@H_301_3@

ublic Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Integer,ByVal lParam As Long) As Long@H_301_3@

ublic 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@H_301_3@

Public Const WM_NCACTIVATE = &H86@H_502_30@Public Const GWL_WNDPROC = (-4)@H_502_30@Public OldWndProc&@H_301_3@

Public Function Hook&(ByVal hWnd1&)@H_502_30@OldWndProc = SetWindowLong(hWnd1,GWL_WNDPROC,AddressOf NewWndProc)@H_502_30@Hook = OldWndProc@H_502_30@End Function@H_301_3@

Public Sub UnHook(ByVal hWnd1&)@H_502_30@SetWindowLong hWnd1,OldWndProc@H_502_30@End Sub@H_301_3@

Public Function NewWndProc&(ByVal hWnd1&,ByVal uMsg&,ByVal wParam&,ByVal lParam&)@H_502_30@If uMsg = WM_NCACTIVATE Then@H_502_30@If wParam = 0 Then '失去焦点@H_502_30@Form1.Caption = "失去焦点"@H_502_30@'在这里加入在失去焦点时想要执行的代码@H_502_30@Else@H_502_30@Form1.Caption = "得到焦点"@H_502_30@'在这里加入在得到焦点时想要执行的代码@H_502_30@End If@H_502_30@End If@H_502_30@NewWndProc = CallWindowProc(OldWndProc,hWnd1,uMsg,wParam,lParam)@H_502_30@End Function@H_301_3@

窗口中代码如下:@H_301_3@

Private Sub Form_Load()@H_502_30@Hook Form1.hwnd@H_502_30@End Sub@H_301_3@

Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer)@H_502_30@UnHook Form1.hwnd@H_502_30@End Sub@H_301_3@

---- 注意:在编写“失去焦点”和“得到焦点”的代码时,不要使用VB本身自带函数,如: MsgBox()和Print()等,因为这里不支持,要用MessageBox()、TextOut()等API函数来代替,否则VB会出现“非法保护性错误”而把VB连带程序一起关掉。---- 本程序在VB6.0企业版中调试通过。@H_301_3@

猜你在找的VB相关文章