C# と VB.NET の質問掲示板

'----- vb.netのClass(COMVisibleEvents)-----
Imports System.EnterpriseServices
Imports System.IO
Imports System.Net
Imports System.Runtime.InteropServices
Imports System.Threading.Tasks

Namespace COMVisibleEvents

    <ComVisible(True)>
    <InterfaceType(ComInterfaceType.InterfaceIsIDispatch)>
    <Guid("B64928E8-1D07-4FE8-AD5D-E479CD75C6C4")>
    Public Interface IEvents
        <DispId(1)> Sub OnDownloadCompleted()
    End Interface

    <ComVisible(True)>
    <InterfaceType(ComInterfaceType.InterfaceIsDual)>
    <Guid("47A87A45-2B51-482F-ADF5-AF818A31F96D")>
    Public Interface IDemo
        <DispId(2)> Function DownloadFileAsync(address As String, filename As String) As Task
    End Interface

    <ComVisible(True)>
    <ClassInterface(ClassInterfaceType.None)>
    <ComDefaultInterface(GetType(IDemo))>
    <ComSourceInterfaces(GetType(IEvents))>
    <Guid("C58721B1-15B3-4eeb-9E1E-BCDA33D38EE6")>
    Public Class DemoEvents : Inherits ServicedComponent : Implements IDemo
        Public Delegate Sub OnDownloadCompletedDelegate()
        Public Event OnDownloadCompleted As OnDownloadCompletedDelegate

        Public Function DownloadFileAsync(address As String, filename As String) As Task Implements IDemo.DownloadFileAsync
            Try
                Using webClient As WebClient = New System.Net.WebClient()
                    webClient.Credentials = New NetworkCredential("user", "psw", "domain")
                    'イベントハンドラの作成
                    AddHandler webClient.DownloadFileCompleted, AddressOf downloadClient_DownloadFileCompleted
                    webClient.DownloadFileAsync(New Uri(address), filename)
                End Using
            Catch ex As Exception
                ' Log exception here ...
            End Try
        End Function

        Private Sub downloadClient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
            If e.Cancelled Then
                MsgBox("キャンセルされました。")
            ElseIf Not (e.Error Is Nothing) Then
                MsgBox("エラー:" & e.Error.Message)
            Else
                MsgBox("ダウンロードが完了しました。")
            End If
            Try
                RaiseEvent OnDownloadCompleted()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

    End Class

End Namespace

'----- vba側の参照設定 -----
COMVisibleEvents

'----- vba側のClass(Class1)-----
Public WithEvents objCOMVisibleEvents As COMVisibleEvents.DemoEvents

'※WithEventsにてイベント記述が取得できている事は確認できています
Private Sub objCOMVisibleEvents_OnDownloadCompleted()
    Debug.Print "OnDownloadCompleted"
End Sub

'----- vba側のModule(Module1)-----
Function Test1()
    Dim cl As Class1
    Set cl = New Class1
    Set cl.objCOMVisibleEvents = New COMVisibleEvents.DemoEvents
    Call cl.objCOMVisibleEvents.DownloadFileAsync("https://www.google.com/〜/googlelogo_color_272x92dp.png", "c:\googlelogo.png")
End Function

https://support.microsoft.com/ja-jp/help/17455/lifecycle-faq-net-framework
一応書いておきますが、.NET 4は既にサポート終了しています。
.NET 4.5.2, または.NET 4.6以降に移行することをお勧めします。

さて、実際に確認する環境がないので推測ですが、OnDownloadCompletedの呼び出しが、
DownloadFileAsyncを呼び出したスレッドと同じでなければならないということなのだと思います。
なので、.NET 4向けだとこんな感じの記述になるんじゃないでしょうか。

Dim ctx = TaskScheduler.FromCurrentSynchronizationContext()
Return Task.Factory.StartNew(Sub() wc.DownloadFile(_address, _filename)) _
    .ContinueWith(Sub(_task) RaiseEvent OnDownloadCompleted, ctx)

■No93922 (Hongliang さん) に返信
> https://support.microsoft.com/ja-jp/help/17455/lifecycle-faq-net-framework
> 一応書いておきますが、.NET 4は既にサポート終了しています。
> .NET 4.5.2, または.NET 4.6以降に移行することをお勧めします。
HPまでありがとうございます。お客様を説得するのに役に立ちます。

> さて、実際に確認する環境がないので推測ですが、OnDownloadCompletedの呼び出しが、
> DownloadFileAsyncを呼び出したスレッドと同じでなければならないということなのだと思います。
> なので、.NET 4向けだとこんな感じの記述になるんじゃないでしょうか。
> 
> Dim ctx = TaskScheduler.FromCurrentSynchronizationContext()
> Return Task.Factory.StartNew(Sub() wc.DownloadFile(_address, _filename)) _
>     .ContinueWith(Sub(_task) RaiseEvent OnDownloadCompleted, ctx)

まずご指摘がありましたのでバージョン.NET 4.5.2に上げました。
次に教えていただいたソースを組み込んで実行しましたが、やはりイベントが発生しませんでした。

さらにご指摘がありました「呼び出したスレッドと同じ」という事で単純に
webClient.DownloadFile(address, file)
RaiseEvent OnDownloadCompleted()
したところイベントの発生が確認できました。

という事はやはり「呼び出したスレッドと同じ」でなければ実行されないようです。
構成を考え直さなければなりませんのでこれで解決済とさせていただきます。

Hongliang さんにご指摘されなければ気づきませんでした。
ありがとうございます。