TextBox Multilinea

[Avellaneda]

Iniciado por spiderman78

Que tal de nuevo por aqui con una consulta, miren tengo un textbox multilinea el cual quiero ver si puedo que despues de ciertos renglones q ocupe en el en una label me marque 1,2, 3,etc, dependiendo el nuemro de renglones que haya dadole enter o escrito, no se si pueda hacerlo con ese texbox o tenga que utilizar un control diferente.

Saludos y Gracias por la ayuda

Mira, éste código indica en un Label las lineas escritas en el TextBox cada vez que se pulsa ENTER:

Código:

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    iLineas = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0&, ByVal 0&)
    Label1.Caption = "Línea: " & SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0&, ByVal 0&)
End If
End Sub

Edito: Declara la variable "iLineas" como Integer.