Skip to main content

回调事件

使用事件回调方法

格式：事件对象_回调函数（obj_functionname）

Private Sub trade_OnMessage(ByVal nMsgType As Long, ByVal nMsgCode As Long, ByVal strMsgString As String)
    Debug.Print ("其他系统消息"+Str(nMsgType) + "  " + Str(nMsgCode) + "  " + strMsgString)
End Sub

Private Sub trade_OnConnect()
    Debug.Print ("连线成功")
End Sub

Private Sub trade_OnDisConnect()
    Debug.Print ("连线断开")
End Sub

Private Sub trade_OnAccountList(ByVal i As Integer, ByVal accountlistitem As ADIAccount)
    Debug.Print ("账号列表响应：" + accountlistitem.Account)
End Sub

Public Sub trade_OnMargin(ByVal index As Integer, ByVal AccMask As String, ByVal marginitem As ADIMargin)
    Debug.Print ("资金响应：" + AccMask)
End Sub

Public Sub trade_OnPosition(ByVal index As Integer, ByVal AccMask As String, ByVal positionitem As ADIPosition)
    Debug.Print ("持仓响应：" + AccMask)
End Sub
Public Sub trade_OnComPosition(ByVal index As Integer, ByVal AccMask As String, ByVal positionitem As ADIPosition)
    Debug.Print ("组合持仓响应：" + positionitem.Account)
End Sub

Public Sub trade_OnRealOrderReport(ByVal reportitem As RPTExecutionReport)
    Debug.Print ("实时委托响应：" + reportitem.Account)
End Sub

Public Sub trade_OnRealFilledReport(ByVal fillitem As RptFilledOrder)
    Debug.Print ("实时成交响应：" + fillitem.Account)
End Sub

Public Sub trade_OnOrderReport(ByVal index As Integer, ByVal reportitem As RPTExecutionReport)
    Debug.Print ("当日委托响应：" + reportitem.Account)
End Sub

Public Sub trade_OnFilledReport(ByVal index As Integer, ByVal fillitem As RptFilledOrder)
    Debug.Print ("当日成交响应：" + fillitem.Account)
End Sub

Public Sub trade_OnReportReset()
    Debug.Print ("回报清除通知")
End Sub

Public Sub trade_OnComOrderReport(ByVal index As Integer, ByVal AccMask As String, ByVal comborder As adiCombinationOrderItem)
    Debug.Print ("组合报单响应")
End Sub

Public Sub trade_OnPositionMonitor(ByVal posmonitoritem As adiPositionTracker)
Debug.Print ("期权持仓监控响应：")
End Sub

Public Sub trade_OnSymbol(ByVal symboljson As String)
    Debug.Print (symboljson)
End Sub
Back to top