VB: Ergebnis einer Funktion in ComboBox ausgeben

Hallo,

danke für die Antwort, und welches Array ist das (Name)?

mfg
Christoph

hi,

das Integerarray lPorts() wird beim Durchlaufen der Ports dynamisch 
erweitert
und beinhaltet dann die Nummern der verfügbaren Schnittstellen.

Der Rückgabewert dieser Function ist dann das Integerarray.

ich würde es so machen:


Dim ports() As Integer
Dim cnt As Integer


ports() = CommPortsAvail(Mscomm1, True)

For cnt = 1 To UBound(ports())
Combo1.AddItem CStr(ports(cnt))
Next cnt


cu
thomas

Hallo,

nein ich hab das im Form_Load in die ComboBox geladen so wie es thomas 
beschrieben hat, allerdings erhalte ich in der ComboBox nur einen 0er!

Irgendwas stimmt da glaub ich nicht!

mfg
Christoph

Hallo,

wenn man sich gut auskennt ist es sicher kein Problem aber ich kenn mich 
nit so gut aus!

mfg
Christoph

ok, 2 Fehler:


   If Not (FreePortsOnly And _
                Err.Number = comPortAlreadyOpen) Then
          ReDim Preserve lPorts(l)
         ' das ist falsch   lPorts(i) = lPort
         ' so richtig
          lPorts(l) = lPort

          l = l + 1
        End If



und hier so:



For cnt = 0 To UBound(ports())
Combo1.AddItem CStr(ports(cnt))
Next cnt




sollte jetzt gehen
also insgesamt so:






Option Explicit

Private Sub Form_Load()
Dim ports() As Integer
Dim cnt As Integer

ports() = CommPortsAvail(MSComm1, True)
For cnt = 0 To UBound(ports())
    Combo.AddItem CStr(ports(cnt))
Next cnt

End Sub

Public Function CommPortsAvail(ByRef MSComm As MSComm, _
                      Optional ByVal FreePortsOnly As Boolean _
                               ) As Variant
  Dim lPorts() As Integer
  Dim lPort    As Integer
  Dim l        As Integer

  On Error Resume Next

  With MSComm1
    For lPort = 1 To 16
      .CommPort = lPort
      .PortOpen = True

      If (Err.Number <> comPortInvalid) Then
        If Not (FreePortsOnly And _
                Err.Number = comPortAlreadyOpen) Then
          ReDim Preserve lPorts(l)
          lPorts(l) = lPort
          l = l + 1
        End If
      End If

      If (.PortOpen) Then
        .PortOpen = False
      End If

      Err.Clear
    Next
  End With

  CommPortsAvail = lPorts()
End Function

Könnte mir vielleicht wer helfen was ich da falsch mache?

mfg
Christoph

Wie weit funktioniert's den bis jetzt?

Setz doch mal Haltepunkte beim Funktionseinsprung und dann per 
Einzelschrittmodus mal prüfen, was richtig läuft und was noch nicht.

@ Thomas

Danke!! Es funktioniert jetzt!

mfg
Christoph

kleiner tip:

du solltest in vb immer "Option Explicit" verwenden.

wenn du das nicht tust, dann braust du auch keine Variablen zu 
declarieren.

bei einem Schreibfehler wie bei deinem Code (l <> i ) wird einfach die 
Variable i neu declariert und schon hast du einen fehler und man sucht 
sich dumm und dähmlich

cu