Keskustelu: Ohjelmointikysymykset: VB6: ComboBoxiin tietojen hakeminen (vb6)

Seuraavanlainen ongelma:
On useita ComboBoxeja(25) joissa tiedot toistuu, eli 5 erillaista combo boxia joiden tiedot sitten toistuvat 5 kertaa, alla kirjoitettuna idea:

Hyökkääjä: maaliC  syöttöC avmaaliC yvmaaliC plus/minusC
              1       1
              2       2
             jne     jne

puolustaja : maaliP syöttöP avmaaliP yvmaaliP  plusminusP
               1       1
               2       2
               jne    jne

Nämä ovat kaikki samalla formilla. Jotta ei tarvitsisi kirjoittaa aivan älyttömän pitkää koodia, niin tämä olisi hyvä toteuttaa siten, että VB:hakisi jostain nämä arvot. HUOM! Minun on kuitenkin pystyttävä laskemaan näistä, eli esim:

MaaliC
case 0
 pisteet = 25

Kiitoksia jo etukäteen avusta.

Henrik

Vähän sekava kysymys mutta tässä perusvastaus, jos meni pieleen niin menköön...

Tee yksi combo. Ota siitä hiiren oikealla painikkeella copy, vastaa kyllä indeksi kysymykseen ja heti perään paste. Toista vielä kolmasti. Siirtele paikalleen. Combojen nimet ovat nyt Combo1(1), Combo1(2) jne.

Tässä esimerkki:

Private Sub Command1_Click()
For i = 0 To 3
    For k = 0 To 2
        Form1.Print Combo1(i).List(k)
    Next k
Next i
End Sub

Private Sub Form_Load()
For i = 0 To 3
    Combo1(i).AddItem ("Hevonen")
    Combo1(i).AddItem ("Kissa")
    Combo1(i).AddItem ("Hiiri")
Next i
End Sub