リストボックス[ListBox1]に列挙
1 2 3 4 5 6 |
Sub GetSerialPortNames() ' Show all available COM ports. For Each sp As String In My.Computer.Ports.SerialPortNames ListBox1.Items.Add(sp) Next End Sub |
コンボボックス[ComboBox1]に列挙
1 2 3 4 5 6 |
Sub GetSerialPortNames() ' Show all available COM ports. For Each sp As String In My.Computer.Ports.SerialPortNames ComboBox1.Items.Add(sp) Next End Sub |
コメント