frmfindportgps.vb

来自「Chuong trinh tren PDA cho phep ket noi v」· VB 代码 · 共 14 行

Imports System.IO.Ports
Public Class FrmFindPortGPS

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kq As SerialPort
        Dim gps As New ClassGPS()
        kq = gps.FindPort()

        MessageBox.Show(kq.PortName.ToString())
        MessageBox.Show(kq.ReadTimeout.ToString())
        Me.Refresh()

    End Sub
End Class