form1.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 15 行

Imports System.Net.Sockets
Imports System.Net

Public Class Form1

    Private Sub btnDiscover_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub btnDiscover_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDiscover.Click
        Dim devices As IrDADeviceInfo() = New IrDAClient().DiscoverDevices(6)
        Me.DataGrid1.DataSource = devices
    End Sub
End Class