Maxlenght di textbox...ma per le righe!!!!

[Pinco Pallino 2]

CIAO!
So che se seleziono un valore in MAXLENGHT dalle proprietà di una textbox setto un numero finito di caratteri digitabili nella stessa!

Io invece vorrei selezionare un nuumero massimo di righe a prescindere dai caratteri digitati! SI puo? CIAO!

[Foga27News]

Prova così:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case vbKeyReturn
        Dim Dove As String, i As Integer
        Dove = 1: i = 0
        Do While InStr(Dove, Text1, vbNewLine) <> 0
            Dove = InStr(Dove, Text1, vbNewLine) + 1
            i = i + 1
        Loop
        If i >= (Max - 1) Then MsgBox ("Troppe righe!"): KeyAscii = 0
End Select
End Sub

Funziona?

[Pinco Pallino 2]

si ma così me ne da massimo 1....se ne voglio 6?

[ans]

in base a quanti caratteri vanno su ogni riga della tua textbox, moltiplichi quel valore per il numero di righe max ed hai il numero di caratteri massimo...conti poi i caratteri che vengono inseriti.

[Pinco Pallino 2]

Originariamente inviato da ans
in base a quanti caratteri vanno su ogni riga della tua textbox, moltiplichi quel valore per il numero di righe max ed hai il numero di caratteri massimo...conti poi i caratteri che vengono inseriti.

si...e quindi? :master:
nn riesco a capire come fare ad aver un max di 6 righe nella text box...

[ans]

O fai un controllo sul numero di caratteri inserito facendo attenzione al carattere di ritorno carrello, oppure controlli ogni volta prima di accettare un nuovo carattere il numero delle righe che ha la testbox tramite SendMessage, così eviti di andare oltre la riga che vuoi te.

[Pinco Pallino 2]

si ho capito in teoria le azioni...

codice no?

[xegallo]

prova così

private sub text1_keypress(keyascii as integer)
static iContaRighe as integer

   if keyascii = vbkeyenter then
      icontarighe = icontarighe + 1
   end if
   if icontarighe = 6 then
      msgbox "hai scritto 6  righe"
   end if
end sub

[Pinco Pallino 2]

nn va!

[xegallo]

Originariamente inviato da Pinco Pallino 2
nn va!

+ o - aggiustalo non ho vb installato a casa