Keskustelu: Ohjelmointikysymykset: VB6: list ongelmaa (vb)

julius_88 [29.10.2003 22:03:37]

mul on ohjelmas lista ja siel eri vaihtoehtoja, miten saan tehtyy sillee et ottaa tietyn sieltä ja sit painaa nappia ni se tekee tietyn jutun?

Antti Laaksonen [30.10.2003 00:58:08]

ListIndex sisältää valitun rivin indeksin ja List-taulukossa taas on indeksejä vastaavat tekstit. Minkä perusteella voisit tehdä jotain tämäntapaista:

Private Sub Command1_Click()
    Dim kohta As String
    'haetaan vaihtoehto kohta-muuttujaan
    kohta = List1.List(List1.ListIndex)
    'toimitaan vaihtoehdon mukaan
    Select Case kohta
    Case "Eka"
        MsgBox "Ylin kohta on valittu!"
    Case "Toka"
        MsgBox "Keskimmäinen kohta on valittu!"
    Case "Kolmas"
        MsgBox "Alin kohta on valittu!"
    End Select
End Sub

Private Sub Form_Load()
    'lisätään listaan pari vaihtoehtoa
    List1.AddItem "Eka"
    List1.AddItem "Toka"
    List1.AddItem "Kolmas"
End Sub

julius_88 [30.10.2003 19:45:15]

ok, toi toimii kyllä kiitos, mut miten pystyn tehä sillee et se laskee tietyn laskun ku se on valinnu jonkun kohdan: esim:

Private Sub laske_Click()

Dim kohta As String
   kohta = List1.List(List1.ListIndex)
   Select Case kohta
   Case "1"
        83 - Text1.Text / 18.75

'toi ei toimi, mikä siin on?

julius_88 [30.10.2003 19:49:17]

eiku ei mitää, sain tehtyy, unohdin antaa objektin, alottelen vast....

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen