Keskustelu: Ohjelmointikysymykset: VB6: RichTextBox

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
    Dim Rivejä As Integer
    Dim RivinVaihto As Integer
    Rivejä = 0
    RivinVaihto = 1
    Do 'lasketaan rivien lukumäärä
        RivinVaihto = InStr(RivinVaihto, RichTextBox1.Text, vbNewLine, vbTextCompare)
        If RivinVaihto > 0 Then
            Rivejä = Rivejä + 1
            RivinVaihto = RivinVaihto + 1
        Else
            Exit Do 'rivinvaihtoja ei enää ole
        End If
    Loop
    If Rivejä >= 20 Then
        KeyAscii = 0 'peruuttaa näppäimenpainalluksen
    End If
End Sub