Keskustelu: Ohjelmointikysymykset: VB6: ComboBox ei toimi

Voisko joku ystävällisesti neuvoa miten saan ComboBoxin toimimaan kunnolla? esim. Vaihtoehdoilla kani,rusakkko,jänis, jne... On ollut ongelmana kun se ei avaudu automaattisesti kun ohjelman avaa vaan joutuu aina "käynnistämään" erikseen ja noi vaihtoehdot tulee useaan kertaan alasvedettävään listaan aina kun niitä kokeilee.

Miten käynnistämään?

Jos lisäät vaihtoehdot jonkin aliohjelman avulla kutsu aliohjelmaa Form_Loadissa.

Ja ComboBoxin saa tyhjennettyä muistaakseni ComboBoxinNimi.Clear.

Kristallipallostani ei löydy vastausta sille, mitä tarkoitat "kunnolla", mutta seuraavassa pieni esimerkki käytöstä...

Private Sub Form_Load()
    With Combo1
        .Clear 'tyhjätään combo
        .AddItem "Jänis" 'asetetaan arvot...
        .AddItem "Kani"
        .AddItem "Pupu"
        .AddItem "Rusakko"
    End With
End Sub

Private Sub Combo1_Click()
    If Combo1.ListIndex > -1 Then 'Varmistetaan että jotain on valittu, että sen voi näyttää
        MsgBox Combo1.List(Combo1.ListIndex) 'esitetään valinta
    End If
End Sub

Kiitokset sain sen toimimaan lähes oikein. ComboBox ei vain vieläkään avaudu kun sivun avaa, vaan näyttää tyhjää, eli joutuu käydä erikseen aktivoimassa jotta noi kohteet(jänis, kani...) tulee näyttöön?

JarkkoB kirjoitti:

ComboBox ei vain vieläkään avaudu kun sivun avaa, vaan näyttää tyhjää, eli joutuu käydä erikseen aktivoimassa jotta noi kohteet(jänis, kani...) tulee näyttöön?

Jos nyt oikein ymmärsin, niin haluat ListBoxin, et ComboBoxia. Käyttö onnistuu samalla tavalla.

Kirjoita Form_Loadin loppuun:

Combo1.ListIndex = 0

Nyt ensimmäinen kohta listasta on valittu suoraan.

Jos et halua, että käyttäjä voi kirjoittaa listaan omia kohtia, vaihda listan Style-ominaisuudeksi "2 - Dropdown List".