Visual basic5 ongelma!

Joo, ei kai vielä ohjelmoija noilla tiedoilla, sillä harjoittelua ja opettelua se vaatii. Mutta harjoittelu on parasta opettelua ohjelmoinnissa.

Tekstin saaminen tekstilaatikkoon on helppoa. Lisää tekstikontrolli (Text1) ja 2 Command-kontrollia (Command1 ja Command2), joihin laitat Click-eventiin seuraavat koodit:

Private Sub Command1_Click()
Text1.Text = "Ykkönen"
End Sub

Private Sub Command2_Click()
Text1.Text = "Toinen"
End Sub

Kun nyt klikataan hiirellä Command1-komentoa, tulee Text1-laatikkoon sana ”Ykkönen”. Command2-nappia klikattaessa tulee teksti ”Toinen”. Tämä on varmaan selkeätä.


Jos haluat, että tekstikontrolliin tulee jokin tiedosto, on tiedosto luettava levyltä. Itse tällaisissa tapauksissa luen koko tiedoston muistiin yhteen merkkijonoon. VB6:ssahan ei enää ole merkkijonolla rajoitusta, vaan yksi merkkijono voi olla monta megaa (vai oliko se gigaa). Seuraavassa koodissa toinen Command-näppäin tulostaa Text1-laatikkoon autoexec.bat-tiedoston ja toinen config.sys-tiedoston. Jotta Text1-laatikkoon tulee enemmän kuin ensimmäinen rivi on Texti1:n MultiLine-propertyn arvo muutettava arvoksi True, koska jos se on arvossa False, Texti1 voi sisältää vain yhden rivin.


Private Sub Command1_Click()

Text1.Text = FileLueTiedostoMuuttujaan$("c:autoexec.bat")

End Sub

Private Sub Command2_Click()

Text1.Text = FileLueTiedostoMuuttujaan$("c:config.sys")

End Sub


Function FileLueTiedostoMuuttujaan$(File$)
'Funktio palauttaa tiedoston File$ merkkijonossa
'jos tiedostoa ei ole, palautetaan tyhjä merkkijono

Dim Filenro, Rivi$, Kokotiedosto$

Filenro = FreeFile 'palauttaa seuraavan vapaan tiedostonumeron
On Error Resume Next 'jos tiedostoa ei löydy, seuraavassa tulee virhe
Err = 0 'nollataan virheilmoitus
Open File$ For Input As Filenro ’avataan peräkkäistiedosto lukumuotoon
If Err Then Exit Function 'jos tuli virhe, tiedostoa ei löydy, palautetaan tyhjä merkkijono

'tiedosto löytyi, luetaan se
While Not EOF(Filenro)
Line Input #Filenro, Rivi$ 'luetaan tiedostosta yksi rivi
Kokotiedosto$ = Kokotiedosto$ Rivi$ ’lisätään rivi Kokotiedosto$-muuttujaan
Wend 'toistetaan, kunnes koko tiedosto on luettu
Close Filenro 'suljetaan tiedosto

’laitetaan luettu tiedosto functioon, jotta se palautuu pääohjelmaan
FileLueTiedostoMuuttujaan$ = Kokotiedosto$

End Function