Keskustelu: Ohjelmointikysymykset: VB6: Listboxista labelille

Mulla on listbox johonka tuloo allekkain erimerkkisiä autoja
ja jotain autoa klikkaamalla pitääs tulla labeliin auton hinta.
Autot ladataan tekstitiedostosta klikkaamalla esim."Ford" labelia:

Private Sub Label2_Click()
LataaAutotFord
End Sub

Aliohjelmas on tälläänen:

Sub LataaLista(lista As ListBox, tiedosto As String)
   Dim i As Integer, maara As String, rivi As String
   lista.Clear
   Open tiedosto For Input As #1
   Line Input #1, maara
   For i = 0 To Val(maara) - 1
       Line Input #1, rivi
       lista.AddItem rivi
   Next
   Close #1
End Sub

Kuinhkahan sen hinnan sais samalla tulemaan labeliin???

Eikös ihan Label1.Caption = List1.Text toimi kun kirjotttaa tuon List1:n Click metodiin? Niin jos nyt oikein ymmärsin pitäisi ListBoxista laittaa labelille. Mutta tuosta ei käynyt ilmi miten olet hinnan määritellyt?

Eiku auton hinta on tarkoitus ladata textitiedostosta vaikka jonkun auton textitiedostosta jossa on auton muutkin tiedot.
Jos sen sais lukemaan textitiedostosta tietyn rivin siihen labeliin...

No luuppaa sitten forrilla niin kauan että se rivi tulee vastaan. Tai lue rivit taulukkoon ja laita sitten labeliin taulukko jossa on auton hinta.

ListBoxiin voi tallentaa myös lukuarvon ItemDatana, jonka voi tunkea LisBoxin klikkauksella Labeliin. Itemdata On Long-tyyppinen luku, joten se on syötettävä sentteinä ja jaettava sitten sadalla näytettäessä.

Private Sub LisBox1_Click()
   Label1 = ListBox1.ItemData(ListBox1.LisIndex)/100
End Sub