kombo box mit schleife "füllen"?

[schleeper]

hi

ich hab auf einem formular 10 komboboxen in die genau das selbe zur auswahl stehen soll....
sie heissen cboAuswahl1 - cboAuswahl10
nu meine frage....ich weiss, dass mand as irgendwie mit ner schleife füllen kann...nur wie??
habs bisher mit ner For schleife versucht aber nur fehler bekommen :-(

 

[Zorck]

Also ich würd mit Index arbeiten.
Oder ist der Name zwingend notwendig?

private sub comboFuellen()
   for i = 1 to 10
      cboAuswahl(i).additem ("Text")
   next i
end sub

 

[schleeper]

ne der name is net wichtig...
naja so wie dus schreibst, hatte ich des schon :-(

 

[schleeper]

hups...zu früh gepostet...
hier mein code:

For inti = 1 To 10
cbo(inti).AddItem ("XXXX")
cbo(inti).AddItem ("XXXX")
Next inti

aber des funtzt nioch....der bringt mir immer bei:

cbo(inti)

sub oder function nicht defeniert

 

[Zorck]

Hast du auch bei den ObjektEigenschaften einen Index festgelegt?
Muss eigentlich funktionieren.

 

[Dario Linsky]

Klar, das ist eine Möglichkeit. Kann allerdings wie schon gesagt nur funktionieren, wenn Du ein Steuerelementfeld angelegt hast. Das ist im Prinzip ein Array aus einzelnen Steuerelementen.

Andere Möglichkeit wäre, dass Du einfach alle Steuerelemente auf dem Formular durchgehst, prüfst ob es sich um eine Combobox handelt und wenn ja, dann füllst Du die einfach. Dabei kommst Du auch ohne Steuerelementfelder aus, und es ist auch egal, wie die Comboboxen heissen.

Dim c As Control

For Each c In Me.Controls
    If TypeOf c Is ComboBox Then
        c.AddItem "bla"
    End If
Next c