1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Dim astrCOMPorts As String() = {}
astrCOMPorts = IO.Ports.SerialPort.GetPortNames()
If astrCOMPorts.Length > 0 Then
' für alle COM-Nr. < 10 ein Leerzeichen einfügen
For i As Integer = 0 To (astrCOMPorts.Length - 1)
If CInt(astrCOMPorts(i).Substring(3)) < 10 Then
astrCOMPorts(i) = "COM " & astrCOMPorts(i).Substring(3)
End If
Next
Array.Sort(astrCOMPorts)
' das Leerzeichen in "COM x" wieder entfernen
For i As Integer = 0 To (astrCOMPorts.Length - 1)
astrCOMPorts(i) = "COM" & astrCOMPorts(i).Substring(3).Trim
Next
End If
|