|
我使用 VB6 撰寫程式碼
在Module 中先定義
Public Type SKTICK
nPtr As Long
nTimehms As Long
nTimemillismicros As Long
nBid As Long
nAsk As Long
nClose As Long
nQty As Long
nSimulate As Long
End Type
然後在 Form中,使用按鈕
On Error Resume Next
Dim nCode As Integer
Dim Tick As SKTICK
Set SKQuote = New SKQuoteLib
nCode = SKQuote.SKQuoteLib_RequestTicks(-1, "TX05")
nCode = SKQuote.SKQuoteLib_GetTick(MarketNo, Index, Ptr, Tick)
在上面程式碼 nCode = SKQuote.SKQuoteLib_GetTick(MarketNo, Index, Ptr,Tick)
中的 Tick
卻出現 "編輯錯誤,ByRef 引數型態不符 " 的訊息 !
請各位大大幫幫忙,要如何修改,謝謝。
|
|