日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間:8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯(lián)網營銷解決方案
VB.NET窗體鉤子具體實現(xiàn)方法介紹

VB.NET作為一款功能比較強大的開發(fā)平臺,我們可以通過這一編程語言實現(xiàn)許多功能需求。那么首先就先來從一個簡單的實現(xiàn)范例來詳細解讀這款語言給我們帶來的好處。編寫VB.NET窗體鉤子程序的幾點啟發(fā):#t#

網站設計、成都做網站的開發(fā),更需要了解用戶,從用戶角度來建設網站,獲得較好的用戶體驗。創(chuàng)新互聯(lián)公司多年互聯(lián)網經驗,見的多,溝通容易、能幫助客戶提出的運營建議。作為成都一家網絡公司,打造的就是網站建設產品直銷的概念。選擇創(chuàng)新互聯(lián)公司,不只是建站,我們把建站作為產品,不斷的更新、完善,讓每位來訪用戶感受到浩方產品的價值服務。

1.在vb.net中l(wèi)ong 要該定義為Integer類型

2.在vb.net中Rect要改定義為Rectangle類型,并用byref來引用

3.如何使用委托,如下面這個例子

(1)定義委托函數

  1. Public Delegate Function HOOKPROC
    (ByVal nCode As Integer, ByVal 
    wParam As Integer, ByVal lParam 
    As Integer) As Integer 

(2)定義在API的函數原型中使用委托函數來作為一個變量類型

 
 
 
  1. Private Declare Function SetWindowLong 
    Lib "user32" Alias "SetWindowLongA" 
    (ByVal hwnd As Integer, ByVal nIndex 
    As Integer, ByVal dwNewLong As 
    HOOKPROCA) As Integer 

(3)實現(xiàn)具體的函數功能

 
 
 
  1. Public Function myPROC(ByVal nCode As 
    Integer, ByVal wParam As Integer, 
    ByVal lParam As Integer) As Integer  
  2. `這中間是具體的實現(xiàn)代碼  
  3. `這中間是具體的實現(xiàn)代碼  
  4. `這中間是具體的實現(xiàn)代碼  
  5. `這中間是具體的實現(xiàn)代碼  
  6. end function  
  7. ()`通過API函數來調用委托函數  
  8. SetWindowLong(wParam, GWL_WNDPROC, 
    AddressOf myPROC) 

4.啟示API函數申明可以重載如下例:

 
 
 
  1. Private Declare Function SetWindowLong 
    Lib "user32" Alias "SetWindowLongA" 
    (ByVal hwnd As Integer, ByVal nIndex 
    As Integer, ByVal dwNewLong As 
    HOOKPROCA) As Integer  
  2. Public Declare Function SetWindowLong 
    Lib "user32" Alias "SetWindowLongA" 
    (ByVal hwnd As Integer, ByVal nIndex 
    As Integer, ByVal dwNewLong As Integer) 
    As Integer 

以上是編寫程序時要注意的幾點


當前名稱:VB.NET窗體鉤子具體實現(xiàn)方法介紹
當前地址:http://m.5511xx.com/article/cogshds.html