关于xmlhttp异步方式回调的问题
现在用xmlhttp异步方式,可以指定一个回调,程序如下:
Dim xmlhttp AS MSXML.XMLHTTPRequest
Dim MyOnReadyStateWrapper As MyReadyStateHandler
Set MyOnReadyStateWrapper = New MyReadyStateHandler
Set xmlhttp = New MSXML.XMLHTTPRequest
xmlStr = GetXmlDom '获得数据
xmlhttp.Open "POST", strWebUrl, True
xmlhttp.OnReadyStateChange = MyOnReadyStateWrapper
xmlhttp.send xmlStr '发送数据
建一个Class Module,名为MyReadyStateHandler,然后在里面写一个默认的Sub来作为回调处理
现在的问题是如何在这个回调里传递参数?(比如我要把这个xmlhttp对象实例的Ref传到回调函数里使用)