Keskustelu: Ohjelmointikysymykset: VB6: Rivien määrä Textboxisa (Vb)

En itse keksinyt miten saisin textboxista rivien määrän. Käytin hakua jä löysinkin pari esimerkkiä mutta ne eivät toimineet. Esim. rivit muuttujaan vaikka Text1 rivien määrä.

Haulla löytyy varmaan samanlaisia juttuja, mutta näinhän se käy:

Dim rivit As Integer, i As Integer
rivit = 1
i = InStr(Text1, Chr(13))
While i <> 0
    rivit = rivit + 1
    i = InStr(i + 1, Text1, Chr(13))
Wend

Tekstiä käydään läpi InStr-funktion avulla, ja aina kun löytyy rivinvaihto, niin laskuria kasvatetaan. Rivejä on joka tapauksessa yksi, vaikka rivinvaihtoja ei olisi yhtäkään. Chr(13) tarkoittaa rivinvaihtoa.

Kiitos! Toimii.

[pilkunviilaus]
Eikös "oikeaoppinen" rivinvaihto ole vbCrLf elikkä \r\n
[/pilkunviilaus]

MsgBox (vbCrLf = Chr$(13) + Chr$(10))

Eli juu, kyllä siihen kuuluu tuo 10 vielä mukaan, mutta molemmat esiintyvät rivinvaihdossa, joten jos ei ole yksittäisiä 13-merkkejä, niin tuolla ei ole väliä.

tai

Private Sub command1_click()
Dim tau() As String
tau = Split(text1.Text, vbCrLf)
MsgBox UBound(tau)
End Sub