我写了一个回调函数函数调用时没有出错,但是调用的回调函数没有反应,大家帮忙看一下!
我写了一个回调函数函数调用时没有出错,但是调用的回调函数没有反应,大家帮忙看一下!
Function Downdata()
Dim lFigure As Long
Dim lre As Long
Dim ik_audit_buff As DOWN_SJCY_DATA
lFigure = FigureCheck(AddressOf datacallback, frm登录.Text1.Text, &H911, ikeeperadmin1, ikeeperadmin1)
MsgBox down1
MsgBox down2
End Function
Function datacallback(TypeCall As Long, Downdata As Long, length As Long) As Long
Dim SJCY_DATA_TEMP As IK_AUDIT_DATA_BUFFER__
Dim iCycount, isum As Long
Dim buf(100) As String
Dim DownSjcyData As DOWN_SJCY_DATA
Dim lre As Long
Dim iCycount As Long
DownSjcyData = Downdata
lre = DownLoadSjData(500105, frm登录.Text1.Text, &H911)
iCycount = DecodeBList(DownSjcyData.sData, DownSjcyData.sLen, SJCY_DATA_TEMP, buf)
down1 = DownSjcyData.DQ_Number
down2 = DownSjcyData.sData
End Function