Keskustelu: Ohjelmointikysymykset: VB6: Tekstitiedoston luku comboboxiin ja tekstiboxiin

Moi!
Olis seuraavankaltainen ongelma: Mulla on tekstitiedosto,
josta löytyy Nimi ja Kerroin. Ideana on, että nimet luetaan
comboboxiin ja kun tiettyä nimeä klikataan, ohjelma hakee
vastaavan kertoimen tekstiboxiin. Kerroin on muotoa 0.00, mutta
tekstiboxissa se näkyy muodossa -1,55357904E+22 (tai sinne
päin). Eli missä vika?

Tässä olis yksi vaihtoehto...

Private Sub Command1_Click()
Dim i As Integer
Dim LineOfText As String
Dim apu() As String

i = FreeFile
Open App.Path & "\TESTFILE.txt" For Input As #i
    Do While Not EOF(i)
        Line Input #i, LineOfText
        apu = Split(LineOfText, "=")
        Combo1.AddItem apu(0)
        Combo1.ItemData(Combo1.NewIndex) = (Val(apu(1)) * 100)
    Loop
Close #i

End Sub

Private Sub Combo1_Click()
    Text1.Text = (Combo1.ItemData(Combo1.ListIndex) / 100)
End Sub

Kerto- ja jakolaskusekoilu on sen takia, että ItemData on kokonaisluku.

Eli TESTFILE-tiedosto tiedot muodossa Nimi=Kerroin

edit: typo ja typo