发表于:2006/2/22 17:42:00
#10楼
使用Timer和doEvents函数和
Timer返回0点至今的秒数,doevents等待事件处理完毕
mscomm属性
handShaking :2 CTS/RTS
Sthreshold=1
Rthreshold=1
Inputlen=0
inbuffersize=1024
outbuffersize=512
接收数据时候是这样处理的:
private sub ON_msomm ()
dim l as long
l=timer
while abs(timer-l)<2 ‘延时2秒,用abs防止午夜时刻出错
DoEvents
Wend
dim s as string
s=mscomm1.input
Timer返回0点至今的秒数,doevents等待事件处理完毕
mscomm属性
handShaking :2 CTS/RTS
Sthreshold=1
Rthreshold=1
Inputlen=0
inbuffersize=1024
outbuffersize=512
接收数据时候是这样处理的:
private sub ON_msomm ()
dim l as long
l=timer
while abs(timer-l)<2 ‘延时2秒,用abs防止午夜时刻出错
DoEvents
Wend
dim s as string
s=mscomm1.input