1、Public Class Form1 Dim mSTR As String Dim strData As String Dim strDat As String 'Dim mSize1 As Integer Dim mRecvByte() As Byte Dim Hexsj As String Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e AsHandles SerialPort1.DataReceived Dim mSize As Integer = Me.SerialPort1.BytesT

2、oRead 'mSize1 = mSize ReDim mRecvByte(mSize - 1) SerialPort1.Read(mRecvByte, 0, mSize) BeginInvoke(New EventHandler(AddressOf ONMLoadA), SerialPort1.BytesToRead() '使用委托方式顯示接收到的字符串 End Sub Sub ONMLoadA(ByVal sender As System.Object, ByVal e As System.EventArgs) '委托 'TextBox4.Text = mS

3、TR Dim i As Integer For i = 0 To UBound(mRecvByte) 'mSize - 1 strData = strData & IIf(mRecvByte(i) > 15, Hex(mRecvByte(i), "0" & Hex(mRecvByte(i) Next Dim sj As Byte For i = 1 To Len(strData) Step 2 '處理為ASCII字符 sj = Val("&H" & Mid(strData, i, 2) If sj &

4、lt; 32 Or sj > 128 Then '當(dāng)接收字節(jié)中有Chr(0)時(shí)，其后字符被切割 strDat = strDat & "." Else strDat = strDat & Chr(sj) End If Next TextBox1.Text = strDat '顯示字符 TextBox2.Text = strData '顯示為進(jìn)制 TextBox3.Text = Len(strData) / 2 End Sub Private Sub Form1_Load(ByVal sender As System.Object,

5、 ByVal e As System.EventArgs) Handles MyBase.Load SerialPort1.BaudRate = 9600 '波特率設(shè)為 SerialPort1.PortName = "com1" '端口為串口 If SerialPort1.IsOpen = False Then SerialPort1.Open() '打開串口 Hexsj = TxtSend.Text = Hexsj End Sub Private Sub Button1_Click(ByVal sender As System.Object, By

6、Val e As System.EventArgs) Handles Button1.Click strData = "" strDat = "" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim

7、 bytHex() As Byte ReDim bytHex(Len(Hexsj) 2) - 1) Dim i As Integer For i = 1 To Len(Hexsj) Step 2 bytHex(i - 1) / 2) = Val("&H" & Mid(Hexsj, i, 2) Next SerialPort1.Write(bytHex, 0, bytHex.Length) End SubEnd ClassPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.Event

8、Args) Handles Me.Load  Dim port As SerialPort = New SerialPort("COM4", 9600, Parity.Even, 8, StopBits.One)  port.Open()  port.DtrEnable = True  port.RtsEnable = True  port.ReceivedBytesThreshold = 64  End Sub當(dāng)你需要接收到幾個(gè)字符觸發(fā)一次DataReceived的時(shí)候，ReceivedBytesThreshold就設(shè)置為幾你設(shè)置的接收長度不對(duì)吧，你設(shè)置為1試試不就知道了嘛設(shè)置為port.ReceivedBytesThreshold =1也測(cè)試過了，也不能觸發(fā)。之前用另一種方式，數(shù)據(jù)傳送沒有問題(用串口助手測(cè)試的)現(xiàn)在，只是form畫面打開了，只是不觸發(fā)Seri