Sub Application_vbaStart()
Call MarketData.RegReportNotify("IF06","ZJ")
End Sub
Sub MarketData_ReportNotify(ReportData)
NewPrice=ReportData.NewPrice
stkLable=ReportData.Label
Application.Msgout Cdate(time) & ",Code:" & stkLabel & ",NewPrice:" & NewPrice
End Sub此主题相关图片如下:temp.png