Я пытаюсь преобразовать этот код, написанный на C #, в VB:
// Initialize the Message Broker Events
(Application.Current as App).MessageBroker.MessageReceived += new MessageReceivedEventHandler(MessageBroker_MessageReceived);
(Application.Current as App).MessageBroker.MessageReceived += new MessageReceivedEventHandler(MessageBroker_SpecialMessageReceived);
Это то, что у меня сейчас, но всегда выдает ошибку при запуске:
' Initialize the Message Broker Events
AddHandler TryCast(Application.Current, App).MessageBroker.MessageReceived, AddressOf MessageBroker_MessageReceived
AddHandler TryCast(Application.Current, App).MessageBroker.MessageReceived, AddressOf MessageBroker_SpecialMessageReceived
Есть ли что-то, что я делаю неправильно?
Вот остаток моего кода:
Partial Public Class MainWindow
Inherits Window
Public Sub New()
InitializeComponent()
' Initialize the Message Broker Events
'AddHandler TryCast(Application.Current, App).MessageBroker.MessageReceived, AddressOf MessageBroker_MessageReceived
'AddHandler TryCast(Application.Current, App).MessageBroker.MessageReceived, AddressOf MessageBroker_SpecialMessageReceived
TryCast(Application.Current, App).MessageBroker.MessageReceived += New MessageReceivedEventHandler(MessageBroker_MessageReceived)
TryCast(Application.Current, App).MessageBroker.MessageReceived += New MessageReceivedEventHandler(MessageBroker_SpecialMessageReceived)
End Sub
Private Sub MessageBroker_MessageReceived(ByVal sender As Object, ByVal e As MessageBrokerEventArgs)
' Use this event to receive all messages
Select Case e.MessageName.ToLower()
Case "message1"
' Do something with this message
Exit Select
Case "message2"
' Do something with this message
Exit Select
Case "etc."
' Do something with this message
Exit Select
Case Else
If Not String.IsNullOrEmpty(e.MessageObject.MessageBody) Then
MessageBox.Show(e.MessageObject.MessageBody)
End If
Exit Select
End Select
End Sub
Private Sub MessageBroker_SpecialMessageReceived(ByVal sender As Object, ByVal e As MessageBrokerEventArgs)
' Use this event to receive any special message objects
If TypeOf e.MessageObject Is MySpecialMessage Then
MessageBox.Show(DirectCast(e.MessageObject, MySpecialMessage).SpecialMessage)
End If
End Sub