Альтернатива клиента.Advise += OnAdvise; в vb.net NDDE

Question

Я использую NDDE для получения данных с сервера. Проблема в том, что я не знаю, как получить несколько предметов.

Я много искал. В C# есть код, который получает несколько элементов. Я конвертировать его в VB, но я не могу найти альтернативу этой линии

client.Advise += OnAdvise;

Public Sub ConnectToDDE
  Dim list As New List(Of String)        
  list.Add("1010")        
  list.Add("2020")        
  list.Add("3030")        
  list.Add("4040")        
  list.Add("TASI")               
  Try            

    If client.IsConnected Then client.Disconnect()       
  Catch        
  End Try        
  Try                       
    client = New DdeClient(txtDDEServer.Text, txtDDETopic.Text, Me)            
    client.Connect()            
    'client.Advise += OnAdvise; Should be here '
    For i As Integer = 1 To list.Count - 1                
      client.StartAdvise("QO." & list(i) &     ".TAD$high", 1, True, 60000)            
    Next        
  Catch ex As Exception            
    displayTextbox.Text = ex.Message            
  End Try    
End Sub

Есть ли альтернатива client.Advise += OnAdvise; в VB, если нет, как я могу получить несколько элементов с сервера.

Сервер предоставляет цены на акции (символ, имя, открытие, максимум, минимум, закрытие)

имя сервера = тикерчарт

тема = жить

Есть много вещей, которые мне нужны (символ, имя, открытый, высокий, низкий, закрытый)

пример:

    client.StartAdvise("QO.1010.TAD$high", 1, True, 60000)

Этот предмет получает высокую цену за запас 1010. Как получить остальное.

Answer 1

Я не знаком с библиотекой NDde, но client.Advise += OnAdvise; выглядит как добавление обработчика событий, поэтому VB.NET-эквивалент будет выглядеть примерно так:

AddHandler client.Advise, AddressOf OnAdvise

куда OnAdvise это подпрограмма с соответствующей подписью, возможно, что-то вроде:

Private Sub OnAdvise(sender As Object, e As DdeAdviseEventArgs)
    ' Do something here...
End Sub