Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Port Nummer
Autor: darth roli
Datum: 13.04.04 14:31
Hallo hier haste ne Möglichkeit die freien Comports zu ermitteln und in eine ComboBox zu stellen. Hoffe der Code hilft dir weiter. mfg. Roli Code: Private Sub Form_Load() ' Nur gueltige COM-Ports zulassen sbrFillPortCobo ' 1.Eintrag aus Port-Combobox auswaehlen 'cboPort.SetFocus cboPort.Text = cboPort.List(0) End Sub Sub sbrFillPortCobo() ' Testet, welche freien COM-Ports es gibt und ' traegt diese in cboPort ein Dim nMaxPort As Integer Dim i As Integer ' Liste loeschen cboPort.Clear ' Soviel COM-Ports werden versucht zu oeffnen nMaxPort = 5 'Erste Stelle der Combobox soll leer sein cboPort.AddItem "" For i = 1 To nMaxPort Step 1 If fntPortAvailible(MSComm, i) Then ' zur Liste hinzufuegen cboPort.AddItem i End If Next i End Sub

Port Nummer	550	Zero-G.	13.04.04 12:09
Re: Port Nummer	468	darth roli	13.04.04 14:31
Re: Port Nummer	493	Zero-G.	13.04.04 14:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen