Function ReceiveSerialData() As String
' Receive strings from a serial port.
Dim returnStr As String = ""
Using com1 As IO.Ports.SerialPort = _
My.Computer.Ports.OpenSerialPort("COM1")
Dim a As Boolean = com1.IsOpen
Do
Dim Incoming As String = com1.ReadLine
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
Exit Do
End If
Loop
com1.Close()
End Using
Return returnStr
End Function
这是微软提供的读数据的函数。
例如,我点击button1后,不停地循环着运行这个函数,在等数据的时候,其他button都不能点击。那我怎么实现点另外一个button来停止上面的那个函数?