好吧问答库 > vb中的mscomm控件获取数据问题？帮我改该代码，拜托各位高手了

vb中的mscomm控件获取数据问题？帮我改该代码，拜托各位高手了

2024年11月23日 08:07

有2个网友回答

网友（1）：

InStr(buffer$, Chr$(32))这个函数用的不对,该函数返回的应该是一个整数值,你再查下资料.

试用mid函数,mid(buffer$,len(buffer),1)=" "

网友（2）：

private beginget as boolean

Select Case MSComm1.CommEvent
Case comEvReceive
beginget=false
Do
DoEvents
if beginget=false then
buffer1 = MSComm1.Input
if buffer1 ="&"then
beginget=true
endif
endif
if beginget=true then
buffer$=buffer$& MSComm1.Input
if InStr(buffer$, Chr$(32)) > 0 then
beginget=false
exit do
endif
Loop
Text1.Text = buffer$
end select

柳少爷
湖北武汉
2008年6月12日