替代client.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中，如果沒有，我如何從服務器中獲取多個項目。

服務器提供股票價格（符號，名稱，開盤價，最高價，最低價，收盤價）

服務器名稱= tickerchart

主題=直播

我需要很多項目（符號，名稱，打開，高，低，關閉）

例如：

    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