Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Try Dim mySerialPort As New SerialPort(ComboBox1.Text) mySerialPort.BaudRate = 19200 mySerialPort.Parity = Parity.None mySerialPort.StopBits = StopBits.One mySerialPort.DataBits = 8 mySerialPort.Handshake = Handshake.None AddHandler mySerialPort.DataReceived, AddressOf DataReceivedHandler mySerialPort.Open() If mySerialPort.IsOpen = True Then 'For i As Integer = 1 To 3 ' mySerialPort.Write("AT+CMGR=" & i & vbCrLf) ' MsgBox("AT+CMGR=" & i & vbCrLf) 'Next ' ComboBox1.Enabled = False mySerialPort.Write("AT+CMGL=" & Chr(34) & "REC UNREAD" & Chr(34) & vbCrLf) End If ToolStripStatusLabel1.Text = ToolStripStatusLabel1.Text & " " & ComboBox1.Text & "," & "19200" & "," & "N" & "," & "1" & "," & "8" & "," & "N" Catch Ex As Exception MsgBox(Ex.Message) End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)