form2.vb

串口调试程序(vb)版本

Option Strict Off
Option Explicit On
Friend Class Form2
	Inherits System.Windows.Forms.Form
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		MSComm1.Output = Trim(Text1.Text)
	End Sub
	
	Private Sub Form2_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		MSComm1.PortOpen = True
	End Sub
	
	Private Sub MSComm1_OnComm(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MSComm1.OnComm
		Select Case MSComm1.CommEvent
			Case MSCommLib.OnCommConstants.comEvReceive ' 收到 RThreshold=1
				Text2.Text = Text2.Text & MSComm1.Input & Chr(13) & Chr(10) '
		End Select
	End Sub
End Class