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

■No29963 (Jitta on the way さん) に返信
> ■No29960 (ソル さん) に返信
>>■No29847 (やじゅ さん) に返信
> >>>■No29845 (ロック さん) に返信
> >>
> >>いまいち見えてこないんですけど、WithEventsとかは使えないんですか？
> >>http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard49.htm
>>
>>
>>Consoleアプリなので
>>
>>while(1)
>>
>>終了処理に入るまで
>>ここで複数種類ある（DLLからRaiseEventされた）イベントをハンドルし続ける
>>
>>loop
>>
>>ような形を考えているのですが、方向性が違うのですかね？
>>

やじゅさんが言ってるようにこんな感じじゃだめなのかな？
イベント発火側のDLLがこんな感じだったら

'HogeClass.vb(RaiseEventDLL.proj)
Public Class HogeClass
    Public Event HogeEvent()

    Public Sub Hoge()
        RaiseEvent HogeEvent()
    End Sub
End Class


呼び出し側のコンソールアプリでは、

'MainModuke.vb(ConsoleApp01.proj)
Imports RaiseEventDLL

Module MainModule
    Private WithEvents _hoge As New HogeClass

    Sub Main()
        _hoge.Hoge()
    End Sub

    Private Sub _hoge_HogeEvent() Handles _hoge.HogeEvent
        Debug.WriteLine("hogeeeeeee")
    End Sub
End Module

こんな感じ。
イベントの発火側には、ちゃんと発火処理やOnXXXも書いてないからいいサンプルではないけどm(..)m

■No29971 (ロック さん) に返信
> ■No29965 (たくボン さん) に返信
> ご提示内容で複数回かつ複数種類のイベントを取得するにはどうすれば良いでしょうか？

 うーん、いまいちwhileする意味がわからないけど、さっきのサンプルでも
「複数定義されているイベント」を「複数回呼び出す」事はできると思うの
ですが？


'HogeClass.vb(RaiseEventDLL.proj)
Public Class HogeClass
    Public Event HogeEvent()
    Public Event MogeEvent()

    Public Sub Hoge()
        RaiseEvent HogeEvent()
        RaiseEvent MogeEvent()
        RaiseEvent HogeEvent()
    End Sub
End Class


'MainModuke.vb(ConsoleApp01.proj)
Imports RaiseEventDLL

Module MainModule
    Private WithEvents _hoge As New HogeClass

    Sub Main()
        _hoge.Hoge()
    End Sub

    Private Sub Hoge_HogeEvent() Handles _hoge.HogeEvent
        Console.WriteLine("hogeeeeeee")
    End Sub

    Private Sub Hoge_MogeEvent() Handles _hoge.MogeEvent
        Console.WriteLine("moge???")
    End Sub
End Module


> Sub Main()
> _hoge.Hoge()
> End Sub

を使ってるのは、発火のタイミングがわからないので明示的に書いている
だけなんですけど、使えない理由があれば教えてください。

■No30034 (ロック さん) に返信

追記：
>現在は.NETアプリはFormなのでイベントが起きる度に各Subで処理をしています。
Form側で出来ているなら、下記は無意味だったかも･･･、一応残しておきます。

ActiveX Dll側のイベントとWindowsメッセージ処理の関係がいまいちよく分からんねー。


Visal Basic .NETのコンソールアプリケーションでイベントを受信するサンプルを示します。 
http://www.b21soft.co.jp/bfup/bfupp-user.html#2003.net

上記サイトを参考にした場合、こんなイメージだと思う

Sub Main()
    Dim hoge As New ActiveXHoge.hoge  ' ActiveX DLLインスタンス作成

    Dim onCompleteEvent_handler1 As ActiveXHoge.OnCompleteEventHandler
    onCompleteEvent_handler = AddressOf OnComplete  ' イベント設定
    AddHandler hoge.OnComplete, onCompleteEvent_handler 

    Dim onStopEvent_handler As ActiveXHoge.OnStopEventHandler
    onStopEvent_handler = AddressOf OnStop  ' イベント設定
    AddHandler hoge.OnStop, onStopEvent_handler 

    While(1)
     hoge.Hoge()
    Loop

    Return
End Sub

Sub OnComplete(ByVal xxx As String)   ' OnCompleteEventイベントルーチン
    Console.WriteLine("Complete " + xxx)
End Sub

Sub OnStop(ByVal xxx As String,ByVal yyy As String)   ' OnStopEventイベントルーチン
    Console.WriteLine("Stop " + xxx + yyy)
End Sub

End Module