关于System.IO.Ports接受数据事件。

[ffsquare]

Public Sub my_serial_DataReceive(ByVal sender As Object, ByVal e As IO.Ports.SerialDataReceivedEventArgs) Handles my_serial.DataReceived
MsgBox(my_serial.ReadExisting())
End Sub

在my_serial那里提示说Handles 子句要求一个在包含类型或它的某个基类型中定义的 WithEvents 变量。这个怎么解决啊？

[wdgphc]

Dim WithEvents my_serial As New IO.Ports.SerialPort
Public Sub my_serial_DataReceive(ByVal sender As Object, ByVal e As IO.Ports.SerialDataReceivedEventArgs) Handles my_serial.DataReceived
MsgBox(my_serial.ReadExisting())
End Sub

[it_gz_xi]

我以前写了一个，但是有信息过来他并不执行该方法

[ffsquare]

1楼的方法正确，现在已经能收到东西了。非常感谢！！