你好，EnableDisconnectNotification、 EnableWriteNotification 这两个是外部函数吧，是委托吗？
创新互联公司专注于宜黄网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供宜黄营销型网站建设，宜黄网站制作、宜黄网页设计、宜黄网站官网定制、小程序开发服务，打造宜黄网络公司原创品牌,更为您提供宜黄网站排名全网营销落地服务。
建议使用委托可以看看下面的例子
此示例演示如何使用委托将过程传递给另一个过程。
委托是一种类型，与任何其他类型一样可在 Visual Basic 中使用。AddressOf 运算符如果应用到一个过程名，则返回一个委托对象。
此示例有一个具有委托参数的过程，该委托参数可接受对另一个过程的引用，而引用则是通过 AddressOf 运算符获得的。
创建委托和匹配过程
创建一个名为 MathOperator 的委托。
Visual Basic
复制代码
Delegate Function MathOperator( _
ByVal x As Double, _
ByVal y As Double _
) As Double
创建一个名为 AddNumbers 的过程，其参数和返回值与 MathOperator 的参数和返回值匹配，以使签名匹配。
Visual Basic
复制代码
Function AddNumbers( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Return x + y
End Function
创建名为 SubtractNumbers 的过程，其签名与 MathOperator 匹配。
Visual Basic
复制代码
Function SubtractNumbers( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Return x - y
End Function
创建一个名为 DelegateTest 的过程，它接受一个委托作为参数。
此过程可接受对 AddNumbers 或 SubtactNumbers 的引用，这是因为它们的签名与 MathOperator 签名匹配。
Visual Basic
复制代码
Sub DelegateTest( _
ByVal x As Double, _
ByVal op As MathOperator, _
ByVal y As Double _
)
Dim ret As Double
ret = op.Invoke(x, y) ' Call the method.
MsgBox(ret)
End Sub
创建一个名为 Test 的过程，它使用 AddNumbers 的委托作为参数调用 DelegateTest 一次，然后使用 SubtractNumbers 的委托作为参数再次调用。
Visual Basic
复制代码
Protected Sub Test()
DelegateTest(5, AddressOf AddNumbers, 3)
DelegateTest(9, AddressOf SubtractNumbers, 3)
End Sub
调用 Test 时，它首先显示 AddNumbers 对 5 和 3 的操作结果，也就是 8。然后显示 SubtractNumbers 对 9 和 3 的操作结果，也就是 6。
创建一个名为 MySubDelegate 的委托。
Delegate Sub MySubDelegate(ByVal x As Integer)
声明一个类，该类包含与该委托具有相同签名的方法。
Class class1 Sub Sub1(ByVal x As Integer) MsgBox("The value of x is: " CStr(x)) End Sub End Class
定义一个方法，该方法创建该委托的实例并通过调用内置的 Invoke 方法调用与该委托关联的方法。
Protected Sub DelegateTest() Dim c1 As New class1 ' Create an instance of the delegate. Dim msd As MySubDelegate = AddressOf c1.Sub1 ' Call the method. msd.Invoke(10) End Sub
在VB.Net当中,事件的"关联"是需要明显标志的,不像vb6当中,声明一个过程就是事件执行过程了
Handles用来静态"关联"一个或多个事件到一个过程
"关联"时,过程的签名必须与事件的签名相同(签名的意义请查看相关文档)
在VB.Net当中,事件也是一个对象(VB.Net当中一切皆为对象)
使用Handles时实际就相当于创建了一个对委托的实现(委托的意义请查看相关文档)
可以简单的认为,当事件被触发时,被Handles"关联"了的那些过程代码将被执行
而且,被"关联"的过程可以任意起名,不需要与事件和对象的名称相对应
上述代码如果去掉Handles 及其后面的内容,它将是一个最普通不过的过程,与其它过程没有两样,也不会有任何事件被触发时去执行这段代码,正因为加入了Handles 及其后面的一堆事件,它才会因事件被触发而被执行
说得再简单一点: 当PictureBox1.DoubleClick, PictureBox4.DoubleClick, PictureBox3.DoubleClick,PictureBox2.DoubleClick当中的任何一个事件被触发时,上述这个过程的代码都将被执行
再说说参数: sender表示触发了此事件的对象,在这里就是PictureBox1/PictureBox2/PictureBox3/PictureBox4当中的某一个,利用它能知道到底是哪个对象触发了此事件,e在这里没有用处,利用不到什么,之所以有它,是因为Object/EventArgs是.Net事件的基本签名方式,它的好处在你以后对.Net深入之后能体会到.
这些参数的值都是通过被触发的事件传递过来的,可以简单的认为[事件调用了此过程并为参数赋了值]
自己仔细对比啊，就是说你同一个函数声明了多次，删除重复的就可以了。
项目属性引用
在列表中找到Shape什么的Dll然后它的属性里的复制本地设置为True。
然后那些dll和exe一起复制下来。
然后在XP运行。
关闭VS，到你的项目目录下，把 项目名称_TemporaryKey.pfx 文件删除。
然后，重新打开你的项目，编译
在Net.WebRequest.Create 之前,尝试一下用下面代码,呵呵,只是百度搜到的,还没有验证.
System.Net.ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(AddressOf RemoteCertificateValidationCallback)
Public Shared Function RemoteCertificateValidationCallback(ByVal sender As Object, ByVal certificate As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, ByVal sslPolicyErrors As Net.Security.SslPolicyErrors) As Boolean
Return True
End Function
重庆分公司
重庆分公司
