Keskustelu: Ohjelmointikysymykset: VB6: rivien määrä tekstiboxis (vb6)

Saiskos jotenki tarkistettua, että montako riviä/vbCrLf:ää jossaan tietyssä tekstilaatikos on?

Rivinvaihtomerkit voi kyllä hakea ja laskea helposti InStr-funktiolla, mutta tekstiboxi rivittää automaattisesti kun MultiLine = True. Mieleen ei oikein tule muuta keinoa kuin asettaa kursori ensin alkuun ja sitten lähettää SendKey-metodilla nuolialas-merkkejä kunnes kursori ei enää siirry. Silloin ollaan viimeisellä rivillä ja lähetettyjen merkkien määrä on rivien määrä.

Kokeilin tuommoista koodia ja näyttää toimivan

Private Sub cmdRivit_Click()
Dim n1 As Integer, n2 As Integer
  Text1.SelStart = 0
  Text1.SetFocus
  Do
    n1 = Text1.SelStart
    SendKeys "{DOWN}", True
    n2 = n2 + 1
  Loop Until n1 = Text1.SelStart
  MsgBox "Rivejä on " & n2
End Sub