Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Tekstitiedoston lukeminen tietyin väliajoin

Gorek [19.12.2004 16:25:39]

# 

Private Sub cmdSend_Click()
Dim Nro As Integer
Nro = FreeFile
Open txtOsoite.Text For Output As #Nro
Print #Nro, txtChat.Text + "Rintama: " + txtTalk.Text
Close #Nro
Dim strRivi As String
Dim strJuttu As String
Nro = FreeFile
Open txtOsoite.Text For Input As #Nro
Do Until EOF(Nro) = True
Input #Nro, strRivi
strJuttu = strJuttu & strRivi & vbCrLf
Loop
Close #Nro
txtChat.Text = strJuttu
txtChat.SelStart = Len(txtChat)
txtTalk.Text = ""
End Sub

Private Sub cmdUD_Click()


Dim Nro As Integer
Dim strRivi As String
Dim strJuttu As String
Nro = FreeFile
Open txtOsoite.Text For Input As #Nro
Do Until EOF(Nro) = True
Input #Nro, strRivi
strJuttu = strJuttu & strRivi & vbCrLf
Loop
Close #Nro
txtChat.Text = strJuttu
txtChat.SelStart = Len(txtChat)
End Sub

Ohjelman tarkoituksena olisi pystyä kirjoittamaan ja lukemaan tekstitiedostoa. Tiedostonlukemisen tulisi tapahtua tietyin väliajoin, oikeastaan kokoajan.

Miten saisin tämän cmdUD:n "klikkaamaan" itseään tietyn sekuntti ajan välein? Loopilla sain aikaan vain ohjelman jumiutumisen. Toimisiko kenties timer? Jos niin, voisiko joku havainnollistaa miten?

Sharph [19.12.2004 16:27:04]

#

Teet timerin, jonka interval on vaikka 1000 jos haluat sekunnin välein. Sitten siinä timerissä aina ajat cmdUD_Click. Noin sen muistaakseni voi tehdä, voin kyllä olla väärässäkin koska on kauan siitä kun viimeksi käytin VB:tä.

Gorek [19.12.2004 17:02:55]

#

Kiitoksia. =) Se toimii noin.

Vastaus

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

Tietoa sivustosta