[VB6] RichTextBox con al massimo 2 righe

[Artemio]

è possibile creare una richtextbox(o qualche altro controllo magari) che possa avere al massimo 2 righe di testo?
ad esempio se scrivo il testo:

ciao
a tutti

e possibile che in qualche modo il tasto invio venga disattivato o qualcosa del genere?

ho provato ad usare una textbox... xke sarebbe stato più facile controllare il tasto "invio" di ritorno a capo.... ma nelle textbox anche se inserisco "chr(13)", non va a capo, ma crea un carattere strano.

il codice che ho provato con la textbox è questo:

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then
        KeyAscii = 0
        Sel = Text1.SelStart
        Text1.SelStart = 0
        Text1.SelLength = Len(Left(Text1.Text, Sel))
        txt1 = Text1.SelText
        Text1.SelStart = Sel
        Text1.SelLength = Len(Right(Text1.Text, Sel))
        txt2 = Text1.SelText
        Text1.Text = txt1 & Chr(13) & txt2
        Text1.SelStart = Sel + 1
    End If
End Sub

[mgmg]

Ti posto questo codice per determinare il numero di righe in una textbox multiriga. Utilizza l'API SendMessage.
Devi impostare nella proprietà textbox Multiline = True e se vuoi lo scrollbars = 2-Verticals (anche se con due righe a volte non serve, perchè le riesci a vedere entrambi)

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        linecount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, ByVal 0&)
        If linecount = 2 Then
            KeyAscii = 0
        End If
        Text1.SetFocus
    End If
End Sub

Ciao

[Artemio]

grazie mille del codice! ora lo provo
scusa, un'altra cosa... se non ti crea disturbo, mi potresti dare qualche indirizzo o qualcosa per documentarmi meglio sulle API? così invece di copiare passivamente il codice, magari lo capisco anche (scusami, ma odio non saper usare le stringhe che inserisco nei miei programmini)...

[mgmg]

Hai ragione, guarda in questo sito dovrebbero essere elencate tutte le API di Windows (cerca sotto API Index):

http://vbnet.mvps.org/

Qui invece trovi degli help:

http://www.maurorossi.net/pagine/guide.htm

Guarda anche questo:

http://programmazione.html.it/visualbasic/faq/65.htm

Ciao e buon lavoro.

[kalosjo]

Potresti vedere se il campo di testo contiene già un carattere di crlf:

Private Sub Text1_KeyPress(KeyAscii As Integer)

  If InStr(1, Text1.Text, vbCrLf) > 0 And KeyAscii = 13 Then
    KeyAscii = 0
  End If

End Sub

[mgmg]

Per kalosjo:
Sì il tuo codice è molto più immediato e funziona correttamente.
Quello che ho postato io diventa più veloce quando si superano le due righe.

[kalosjo]

Originariamente inviato da mgmg
Per kalosjo:
Sì il tuo codice è molto più immediato e funziona correttamente.
Quello che ho postato io diventa più veloce quando si superano le due righe.

Infatti, per più di due righe il mio dovrebbe essere pesantemente modificato, il tuo vale sempre....

[Artemio]

@kalosjo grazie mille per il codice, ho provato tutti e due e vanno entrambi, ora decido quale è meglio x quello che devo fare.
ciao