VB.NET窗体钩子具体实现方法介绍

VB.NET作为一款功能比较强大的开发平台，我们可以通过这一编程语言实现许多功能需求。那么首先就先来从一个简单的实现范例来详细解读这款语言给我们带来的好处。编写VB.NET窗体钩子程序的几点启发：#t#

网站设计、成都做网站的开发，更需要了解用户，从用户角度来建设网站，获得较好的用户体验。创新互联公司多年互联网经验，见的多，沟通容易、能帮助客户提出的运营建议。作为成都一家网络公司，打造的就是网站建设产品直销的概念。选择创新互联公司，不只是建站，我们把建站作为产品，不断的更新、完善，让每位来访用户感受到浩方产品的价值服务。

1.在vb.net中long 要该定义为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的函数原型中使用委托函数来作为一个变量类型

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

(3)实现具体的函数功能

 
 
 
  
  
  
Public Function myPROC(ByVal nCode As 
Integer, ByVal wParam As Integer, 
ByVal lParam As Integer) As Integer  
  
  
  
`这中间是具体的实现代码  
  
  
  
`这中间是具体的实现代码  
  
  
  
`这中间是具体的实现代码  
  
  
  
`这中间是具体的实现代码  
  
  
  
end function  
  
  
  
()`通过API函数来调用委托函数  
  
  
  
SetWindowLong(wParam, GWL_WNDPROC, 
AddressOf myPROC) 
 
 

4.启示API函数申明可以重载如下例：

 
 
 
  
  
  
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 
 
 

以上是编写程序时要注意的几点

本文标题：VB.NET窗体钩子具体实现方法介绍
文章链接：http://www.csdahua.cn/qtweb/news29/409779.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网