博客开通了

有许多不懂的，要学习的。

以下是用vb编程的，用

Private Sub Form_Load()
Dim bool1, bool2 As Boolean, Result As String, ErrInfo As String, Zqdms(1) As String, Markets(1) As Byte, ZqdmCount As Integer, Count As Integer
Result = Space$(409600)
ErrInfo = Space$(256)
Dim str1 As String
Count = 10

Markets(0) = 0
Zqdms(0) = "000001"
Markets(1) = 1
Zqdms(1) = "600000"

ZqdmCount = 3


bool1 = TdxHq_Connect("202.100.166.15", 7709, Result, ErrInfo)

'bool2 = TdxHq_GetSecurityQuotes(0, "000001", Count, Result, ErrInfo)
bool2 = TdxHq_GetSecurityQuotes(Markets(0), Zqdms(1), ZqdmCount, Result, ErrInfo)

Text1.Text = bool1

 

' TdxHq_Disconnect

Text2.Text = bool2

 

执行后，看不到结果，vb编辑器也自动地退出了。问题在哪里呢？