📄 form1.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -