Re: vb.net 2010 compatibility (General questions)

by woddrazen, Thursday, December 03, 2009, 23:54 (5470 days ago) @ Klinzter

Klinzter ,

Here is VB.NET sample.

Please add Implements wodHttpDLXComLib.IwodHttpNotify line by yourself and Events will be created automatically. When you copy paste that line Events will not be created.
[code]
Implements wodHttpDLXComLib.IwodHttpNotify
Dim http(5) As wodHttpDLXComLib.wodHttpDLXCom
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 0 To 4
http(i) = New wodHttpDLXComLib.wodHttpDLXCom
http(i).Notification = Me
Next
End Sub

Public Sub ClientCertRequired(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom) Implements wodHttpDLXComLib.IwodHttpNotify.ClientCertRequired

End Sub

Public Sub Connected(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom) Implements wodHttpDLXComLib.IwodHttpNotify.Connected

End Sub

Public Sub Disconnected(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom, ByVal ErrorCode As Integer, ByVal ErrorText As String) Implements wodHttpDLXComLib.IwodHttpNotify.Disconnected

End Sub

Public Sub Done(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom, ByVal ErrorCode As Integer, ByVal ErrorText As String) Implements wodHttpDLXComLib.IwodHttpNotify.Done

End Sub

Public Sub HeadersDone(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom) Implements wodHttpDLXComLib.IwodHttpNotify.HeadersDone

End Sub

Public Sub HostCertificate(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom, ByVal Cert As wodHttpDLXComLib.ICertificate, ByVal ErrorCode As Integer, ByVal ErrorText As String, ByRef Accept As Boolean) Implements wodHttpDLXComLib.IwodHttpNotify.HostCertificate

End Sub

Public Sub Progress(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom, ByVal Position As Integer, ByVal Total As Integer) Implements wodHttpDLXComLib.IwodHttpNotify.Progress

End Sub

Public Sub Progress64(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom, ByVal PositionLo As Integer, ByVal PositionHi As Integer, ByVal TotalLo As Integer, ByVal TotalHi As Integer) Implements wodHttpDLXComLib.IwodHttpNotify.Progress64

End Sub

Public Sub Redirect(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom, ByRef URL As String, ByRef Allow As Boolean) Implements wodHttpDLXComLib.IwodHttpNotify.Redirect

End Sub

Public Sub StateChange(ByVal Owner As wodHttpDLXComLib.wodHttpDLXCom, ByVal OldState As wodHttpDLXComLib.HttpStates) Implements wodHttpDLXComLib.IwodHttpNotify.StateChange

End Sub[/code]
Drazen