デリゲートについて

質問

初心者です。デリゲートを初めて使うのですが、
スレッド処理でWebClientでイベントハンドラを作成した後、
以下の

Delegate Sub MyDelegate()

Private Sub downloadClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
If InvokeRequired Then
Invoke(New MyDelegate(AddressOf DownloadProgressA))
'終わり
Else
ProgressBar1.Value = e.ProgressPercentage
Label1.Text = e.ProgressPercentage & "%"
End If
End Sub

でDownloadProgressAには

ProgressBar1.Value = e.ProgressPercentage
Label1.Text = e.ProgressPercentage & "%"

と書いたのですが、

メソッド 'Private Sub DownloadParmertar(sender As Object, e As System.Net.DownloadProgressChangedEventArgs)' に、デリゲート 'Delegate Sub MyDelegate()' と互換性があるシグネチャがありません

とエラーが発生します。
スレッド処理やDelegate、Invokeを初めて使うので
よく分かりません。どうすれば進行度を処理表示
出来るでしょうか…。

お優しい方教えて下さい。

回答No.1

heburusu · ベストアンサー

こんにちわ。
参考URLのソースが参考になると思います。

大まかには以下のような処理の流れになります。
--
1. downloadClient_DownloadProgressChanged プロシージャを用意しておく
2. downloadClientインスタンスを作成した後に、以下のようにAddHandler(delegate)で呼び出すプロシージャを設定
> AddHandler downloadClient.DownloadProgressChanged, _
> AddressOf downloadClient_DownloadProgressChanged
3. downloadClient.DownloadFileAsync でダウンロードを開始
--

すると、donwloadClientからdownloadClient_DownloadProgressChangedが呼び出されるようになりますので、以下部分は不要になるかと思います。
>If InvokeRequired Then
>Invoke(New MyDelegate(AddressOf DownloadProgressA))
>'終わり
>Else

参考URL：

http://dobon.net/vb/dotnet/internet/downloadfile.html