日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術(shù)開發(fā)教程 > 詳細頁面

偵測離開Form進入其他程式

偵測離開Form進入其他程式

更新時間:2022-05-13 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

雖然Form有Activate與DeActivate的Events,但是這兩個Events只對form的Focus是在  
同一個Process不同F(xiàn)orm之間的切換有效,如果我們在Form1,而Click其他的Process,  
則Form1并不會產(chǎn)生DeActivate的Events,相同的,由其他的Process 回到Form1時,也  
不會產(chǎn)生Activate的Events。唯一能得知的便是透過WM_ACTIVATE,其LowWord of wParam  
有以下叁個值:  
  WA_ACTIVE       Activated by some method other than a mouse click  
  WA_CLICKACTIVE  Activated by a mouse click.  
  WA_INACTIVE     Deactivated  
透過Subclassing的技巧便可來解決這個問題  

'以下在.bas  
Option Explicit  

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _  
  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long  
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _  
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long  
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_ACTIVATE = &H6  
Public Const WA_ACTIVE = 1  
Public Const WA_CLICKACTIVE = 2  
Public Const WA_INACTIVE = 0  


Public preWinProc As Long  

Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _  
                         ByVal wParam As Long, ByVal lParam As Long) As Long  
Dim fActive As Integer  
If Msg = WM_ACTIVATE Then  
    '取得wParam的LowWord  
    fActive = CInt(wParam And &HFFFF)  
    If fActive = WA_INACTIVE Then  
       Debug.Print "InActive "  
    Else  
       Debug.Print "Active"  
    End If  
End If  
'將之送往原來的Window Procedure  
wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)  
End Function  

'以下在form  
Option Explicit  
Private Sub Form_Activate()  
Debug.Print "Event Activate"  
End Sub  

Private Sub Form_Deactivate()  
Debug.Print "Event DeActivate"  
End Sub  

Private Sub Form_Load()  
Dim ret As Long  
'記錄原本的Window Procedure的位址  
preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)  
'設(shè)定Combo1的window Procedure到wndproc  
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)  
End Sub  

Private Sub Form_Unload(Cancel As Integer)  
Dim ret As Long  
'取消Message的截取,而使之又只送往原來的Window Procedure  
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)  
End Sub

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 天天操夜夜操免费视频 | 国产黄色网 | 夜夜操狠狠操 | 狠狠干天天爱 | 亚洲va乱码一区二区三区 | 久久网免费 | 性欧美人与物videos另类 | 亚洲精品一区二区三区www | 久久婷婷色综合老司机 | 日本视频中文字幕一区二区 | 91成人小视频| 国产精品玖玖玖在线观看 | 亚洲乱码尤物193yw在线播放 | 青青国产成人久久激情91麻豆 | 久久草在线精品 | 男女男精品网站 | 亚洲国产欧美日韩一区二区三区 | 精品日产一区二区三区手机 | 自拍偷自拍亚洲精品情侣 | 四虎免费网站 | 2019精品国产品免费观看 | 亚洲日本人成网站在线观看 | 日韩视频国产 | 欧美日日日 | 国产精品亚洲欧美日韩久久 | 97在线观看免费版 | 久久福利免费视频 | 欧美啪啪毛片一区二区 | 伊人久久大香线蕉综合热线 | 日韩欧美精品在线 | 伊人色综合久久天天人守人婷 | 久色视频在线观看 | 欧美日韩亚洲精品国产色 | 久久精品免视看国产盗摄 | 性欧美人与zozoxxxx视频 | 大香萑75久久精品免费 | 国产91大片精品一区在线观看 | 色综合久久天天综合观看 | 国产91精品高清一区二区三区 | 草草影院国产第一页 | 欧美一区二区另类有声小说 |