problems creating events...

[PT Exorcist]

i put this code in a class...


Public Event DownloadComplete(ByVal Status As Integer, ByVal ReturnValue As String, ByVal URL As String, ByVal FileName As String)

'~~~~~~~~~~~~~~~~~~

Sub DownloadPicture()
Dim MyWebClient As WebClient = New WebClient()

Try
MyWebClient.DownloadFile(URLName, LocalFileName)
Catch ex As Exception
RaiseEvent DownloadComplete(0, ex.Message, "", "")
Finally
RaiseEvent DownloadComplete(1, "Imagem carregada com sucesso no disco rigido!", "", "")
Msgbox("download complete!")
End Try
End Sub


and then in form i have


Private WithEvents Dev As New Deviations()

Private Sub Dev_DownloadComplete(ByVal Status As Integer, ByVal ReturnValue As String, ByVal URL As String, ByVal FileName As String) Handles Dev.DownloadComplete
MsgBox(Status)
End Sub


but the Dev_DownloadComplete is never fired although the msgbox saying "download complete" is fired!!! grrrrr

what am i missing..?

[PT Exorcist]

sorry about posting twice this was really lagged and i clicked twice :o

[hellswraith]

Try using this for the even declaration (I am not to sure on the use of the shared keyword, but I think this is what you need.


Public Shared Event DownloadComplete(ByVal Status As Integer, ByVal ReturnValue As String, ByVal URL As String, ByVal FileName As String)


The reason I think you need the Shared keyword in there is because you are trying to raise an event from an instance of a class which means that you haven't subscribed to that event. The other way to do it would probably be to use the AddHandler statement in the form load event.

I am sorry if I don't make much sense, I am getting pretty tired now. Tell me what happens, if it doesn't work I will spend more time figuring it out.

[hellswraith]

Oh ya, if you are still having problems, post more code (like the whole class), or a zip file so I can just drop it in and start messing around to help you figure it out.

opps, adding this part:
I forgot to mention that you have the order wrong on your try/catch/finally block, check this out:


Try
MyWebClient.DownloadFile(URLName, LocalFileName)
Catch ex As Exception
RaiseEvent DownloadComplete(0, ex.Message, "", "")
Finally
'**This will always fire, even if the catch block is used. This
'**means that you will get two events fired if there is an error
'**One to show the error, the other to show a success even
'**though there was an error.
RaiseEvent DownloadComplete(1, "Imagem carregada com sucesso no disco rigido!", "", "")
Msgbox("download complete!")
End Try

'Change the above code to something like this:

Try
MyWebClient.DownloadFile(URLName, LocalFileName)
RaiseEvent DownloadComplete(1, "Imagem carregada com sucesso no disco rigido!", "", "")
Msgbox("download complete!")
Catch ex As Exception
RaiseEvent DownloadComplete(0, ex.Message, "", "")
End Try