Imports System.IO.Ports Public Class UartForm1 ''' ''' 调用窗口 ''' ''' ''' Private Sub UartForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load UartPort_cob.Items.AddRange(SerialPort.GetPortNames()) CommunicationData_txt.Select() CommunicationData_txt.ScrollBars = ScrollBars.Vertical CommunicationData_txt.AllowDrop = False CommunicationData_txt.ScrollToCaret() End Sub ''' ''' 串口刷新 ''' ''' ''' Private Sub RefreshSerialPort_btn_Click(sender As Object, e As EventArgs) Handles RefreshSerialPort_btn.Click End Sub ' Private Function GetUartPort() End Class