604
社区成员
发帖
与我相关
我的任务
分享
ole_MSComm的oncomm事件:
choose case ole_MSComm.object.CommEvent
case 2
String ls_Msg
//ole_mscomm.object.InputLen = 0 //把这一句去掉
ls_Msg = ole_mscomm.object.Input
st_3.text += ls_Msg //这里累加起来 用 +=
//messagebox("11",ls_Msg)//这个先注释掉
end choose