Keskustelu: Ohjelmointikysymykset: ScrollBars ongelmia (VB6)

Ongelmana on saada vain yksi rivi kerrallaan text-ruutuun, kun siinä on scrollbars. Rivistä pitäisi saada luettua mikä sen luokka on. Tuossa on yks koodin pätkä jonka olen tehnyt, mutta se ei lue kuin rivin 50 tai minkä for-silmukkaan määrittelee viimeiseksi.

 Private Sub Command2_Click()
'Tiedosto auki
Dim f As Integer 'Tiedoston tunnus
f = FreeFile
Open "sarake.txt" For Input As f
Dim rivi As String
Dim i As Integer  ' Silmukkalaskuri forille
Dim luku As Integer
Dim luokka As String

For i = 0 To 49
   Input #f, rivi
   luku = Val(rivi)
   laskut(i) = luku
Next
Close f

'luokka ehdot
If luku >= 0 And luku <= 11 Then
luokka = 1
End If

If luku >= 12 And luku <= 23 Then
luokka = 2
End If

If luku >= 24 And luku <= 35 Then
luokka = 3
End If

If luku >= 36 And luku <= 48 Then
luokka = 4
End If

If luku > 48 Then
luokka = 5
End If


Text1.Text = luku
Label2 = luokka
End Sub

Tämä koodi taas lukee ja näyttää kaikki rivit kerrallaan text-ruutuun.

Private Sub Command1_Click()
Dim f As Integer 'Tiedoston tunnus
Dim fname As String
f = FreeFile
fname = "sarake.txt"
'Open "sarake.txt" For Input As f

Open fname For Input As #f
   Text2.Text = Input(LOF(f), #f)
Close #f

Lomakkeessa on kaksi nappulaa, lue ja etsi luokka. Päässä pyörii vain samat vaihtoehdot koko ajan. Joku noitten välimaasto pitäisi keksiä. Mikä neuvoksi?

Tuota... Tuo for-silmukka ei tietenkään toimi, koska luokkatunnistus on silmukan ulkopuolella. Alempi taas toimisi kenties silmukalla tehtynä. Käytä Line Input #-komentoa (lukee rivin kerrallaan) ja laita se tunnistus silmukan sisään. Text2.Text:iin: älä sijoita luettua riviä, vaan lisää se muuhun laittamalla väliin rivinvaihto.

En tässä sen kummemmin koodia anna, koeta pähkäillä itse.