问题描述
我这有一个用VB.NET写的winform程序，其中引用了一个COM组件，由VS2005自动导入类型库COM对象创建、订阅COM事件与COM调用都是在一个STA子线程中执行，问题是无法接收到COM消息，如果上面的过程都在UI线程是可以的不知道是什么原因
解决方案
解决方案二：
相关代码如下：ImportsEMPPLibPublicClassMainFormPrivateSubbtnConnect_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnConnect.ClickDimthreadAsNewThreading.Thread(AddressOfWorkThread)thread.SetApartmentState(Threading.ApartmentState.STA)thread.IsBackground=Truethread.Start()EndSubPrivateSubWorkThread()DimsmsObjAsEmptclsmsObj=NewEmptcl()'预订COM组件事件AddHandlersmsObj.EMPPConnected,AddressOfOnConnect'能接收到事件消息AddHandlersmsObj.SubmitResp,AddressOfOnSubmitResp'不能接收到事件消息AddHandlersmsObj.StatusReceivedInterface,AddressOfOnReportStatus'不能接收到事件消息'以下为伪代码smsObj.connect()DoWhileworkingsmsObj.submit(msg)'提交信息至网关后，正常情况都能接收到COM组件的SubmitResp消息Threading.Thread.Sleep(1000)LoopEndSubPrivateSubOnConnect()Debug.WriteLine(String.Format("*****{0}连接成功",Now))EndSubPrivateSubOnSubmitRespInterface(ByValsmAsSMS.SubmitResp)SelectCasesm.ResultCase0Debug.WriteLine(String.Format("*****{2}提交成功：{0}MsgID:{1}",sm.SequenceID,sm.MsgID,Now))CaseElseDebug.WriteLine(String.Format("*****{2}提交失败：{0}Error:{1}",sm.SequenceID,sm.Result,Now))EndSelectEndSubPrivateSubOnReportStatus(ByValsmAsSMS.StatusReport)Debug.WriteLine(String.Format("*****{3}状态报告：{0}MsgID:{1}Status:{2}",sm.SeqID,sm.MsgID,sm.Status,Now))EndSub
解决方案三：
ImportsEMPPLibPublicClassMainFormPrivateSubbtnConnect_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnConnect.ClickDimthreadAsNewThreading.Thread(AddressOfWorkThread)thread.SetApartmentState(Threading.ApartmentState.STA)thread.IsBackground=Truethread.Start()EndSubPrivateSubWorkThread()DimsmsObjAsEmptclsmsObj=NewEmptcl()'预订COM组件事件AddHandlersmsObj.EMPPConnected,AddressOfOnConnect'能接收到事件消息AddHandlersmsObj.SubmitResp,AddressOfOnSubmitResp'不能接收到事件消息AddHandlersmsObj.StatusReceivedInterface,AddressOfOnReportStatus'不能接收到事件消息'以下为伪代码smsObj.connect()DoWhileworkingsmsObj.submit(msg)'提交信息至网关后，正常情况都能接收到COM组件的SubmitResp消息Threading.Thread.Sleep(1000)LoopEndSubPrivateSubOnConnect()Debug.WriteLine(String.Format("*****{0}连接成功",Now))EndSubPrivateSubOnSubmitRespInterface(ByValsmAsSMS.SubmitResp)SelectCasesm.ResultCase0Debug.WriteLine(String.Format("*****{2}提交成功：{0}MsgID:{1}",sm.SequenceID,sm.MsgID,Now))CaseElseDebug.WriteLine(String.Format("*****{2}提交失败：{0}Error:{1}",sm.SequenceID,sm.Result,Now))EndSelectEndSubPrivateSubOnReportStatus(ByValsmAsSMS.StatusReport)Debug.WriteLine(String.Format("*****{3}状态报告：{0}MsgID:{1}Status:{2}",sm.SeqID,sm.MsgID,sm.Status,Now))EndSubEndClass
解决方案四：
没人直到吗？还是这问题太简单了？我好急啊。。。