VB中LostFocus、GotFocus事件的改進

重慶郵電學院 徐原

---- VB中有一個LostFocus事件和一個GotFocus事件，看名字似乎是當當前窗口失去焦點或得到焦點時觸發的事件。但在實際應用時卻發現當這個窗口和Windows中其他窗口進行切換時并沒有觸發這兩個事件?，F在解析一下這兩個事件。

---- Form_LostFocus、Form_GotFocus是指的是一個MDI主父窗體調用了多個子窗體，當這些子窗體之間切換時，就觸發這兩個事件；當一個窗體中的多個文本框，鼠標點擊另一個文本框時，也會觸發這兩個此事件，文本框在 Windows內部實際上也是一個窗口。

---- Windows內部是通過消息來觸發事件的，這兩個事件在Windows內部對應的消息是WM_NCACTIVATE，當該消息的wParam為0時表示是失去焦點，為非0時表示得到焦點。在模塊中：

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 DefWindowProc Lib
"user32" Alias "DefWindowProcA"_
(ByVal hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Integer, ByVal_
lParam 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 WM_NCACTIVATE = &H86
Public Const GWL_WNDPROC = (-4)
Public OldWndProc&

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

Public Sub UnHook(ByVal hWnd1&)
SetWindowLong hWnd1, GWL_WNDPROC, OldWndProc
End Sub

Public Function NewWndProc&(ByVal hWnd1&, ByVal uMsg&,
ByVal wParam&, ByVal lParam&)
If uMsg = WM_NCACTIVATE Then
   If wParam = 0 Then ’失去焦點
      Form1.Caption = "失去焦點"
       注釋：在這里加入在失去焦點時想要執行的代碼
   Else
              Form1.Caption = "得到焦點"  
        ’在這里加入在得到焦點時想要執行的代碼
   End If
End If
NewWndProc = CallWindowProc(OldWndProc,
hWnd1, uMsg, wParam, lParam)
End Function

窗口中代碼如下：

Private Sub Form_Load()
Hook Form1.hwnd
End Sub

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

---- 注意：在編寫“失去焦點”和“得到焦點”的代碼時，不要使用VB本身自帶的函數，如： MsgBox()和Print()等，因為這里不支持，要用MessageBox()、TextOut()等API函數來代替,否則VB會出現“非法保護性錯誤”而把VB連帶程序一起關掉。
---- 本程序在VB6.0企業版中調試通過。

原文轉自：http://www.anti-gravitydesign.com