建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET窗體鉤子具體實現(xiàn)方法介紹
VB.NET作為一款功能比較強大的開發(fā)平臺，我們可以通過這一編程語言實現(xiàn)許多功能需求。那么首先就先來從一個簡單的實現(xiàn)范例來詳細解讀這款語言給我們帶來的好處。編寫VB.NET窗體鉤子程序的幾點啟發(fā)：#t#
網(wǎng)站設(shè)計、成都做網(wǎng)站的開發(fā)，更需要了解用戶，從用戶角度來建設(shè)網(wǎng)站，獲得較好的用戶體驗。創(chuàng)新互聯(lián)公司多年互聯(lián)網(wǎng)經(jīng)驗，見的多，溝通容易、能幫助客戶提出的運營建議。作為成都一家網(wǎng)絡(luò)公司，打造的就是網(wǎng)站建設(shè)產(chǎn)品直銷的概念。選擇創(chuàng)新互聯(lián)公司，不只是建站，我們把建站作為產(chǎn)品，不斷的更新、完善，讓每位來訪用戶感受到浩方產(chǎn)品的價值服務(wù)。
1.在vb.net中l(wèi)ong 要該定義為Integer類型
2.在vb.net中Rect要改定義為Rectangle類型，并用byref來引用
3.如何使用委托，如下面這個例子
(1)定義委托函數(shù)
- Public Delegate Function HOOKPROC
(ByVal nCode As Integer, ByVal
wParam As Integer, ByVal lParam
As Integer) As Integer
(2)定義在API的函數(shù)原型中使用委托函數(shù)來作為一個變量類型
- 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)具體的函數(shù)功能
- Public Function myPROC(ByVal nCode As
Integer, ByVal wParam As Integer,
ByVal lParam As Integer) As Integer- `這中間是具體的實現(xiàn)代碼
- `這中間是具體的實現(xiàn)代碼
- `這中間是具體的實現(xiàn)代碼
- `這中間是具體的實現(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
以上是編寫程序時要注意的幾點
標(biāo)題名稱：VB.NET窗體鉤子具體實現(xiàn)方法介紹
網(wǎng)頁鏈接：http://www.5511xx.com/article/cogshds.html
