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

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

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

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

3.如何使用委托，如下面這個(gè)例子

(1)定義委托函數(shù)

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

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

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

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

 
 
 
  
  
  
Public Function myPROC(ByVal nCode As 
Integer, ByVal wParam As Integer, 
ByVal lParam As Integer) As Integer  
  
  
  
`這中間是具體的實(shí)現(xiàn)代碼  
  
  
  
`這中間是具體的實(shí)現(xiàn)代碼  
  
  
  
`這中間是具體的實(shí)現(xiàn)代碼  
  
  
  
`這中間是具體的實(shí)現(xiàn)代碼  
  
  
  
end function  
  
  
  
()`通過API函數(shù)來調(diào)用委托函數(shù)  
  
  
  
SetWindowLong(wParam, GWL_WNDPROC, 
AddressOf myPROC) 
 
 

4.啟示API函數(shù)申明可以重載如下例：

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

以上是編寫程序時(shí)要注意的幾點(diǎn)

名稱欄目：VB.NET窗體鉤子具體實(shí)現(xiàn)方法介紹
轉(zhuǎn)載來源：http://uogjgqi.cn/article/cogshds.html