TextBox Multilinea

[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

[David]

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

No entendí muy bien lo que quieres hacer, ¿quieres contar cuántas líneas tienes en tu TextBox o algo así?

[spiderman78]

Si algo asi es q mira en ese texbox capturo lo q es una receta y la receta es de media carta, entonces lo que quiero hacer es q determinado renglones del texbox me marque en una etiqueta q ya llevo 2 hojas por decirlo asi, bueno esa es la idea pero no se si pueda hacerlo con ese control y de esa manera o algun otro control

Saludos y Gracias

[David]

Iniciado por spiderman78

Si algo asi es q mira en ese texbox capturo lo q es una receta y la receta es de media carta, entonces lo que quiero hacer es q determinado renglones del texbox me marque en una etiqueta q ya llevo 2 hojas por decirlo asi, bueno esa es la idea pero no se si pueda hacerlo con ese control y de esa manera o algun otro control

Saludos y Gracias

Mi idea es hacerlo con Instr, o sea buscas todos los vbCrLf (salto de línea) y luego divide entre las líneas que se muestran en el TextBox (Eso si tienes HScroll a True)

[spiderman78]

Ok y abusando de la ayuda como podria hacer eso ya q nunca ocupado un Instr

Saludos

[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.

[spiderman78]

Ok muchas gracioas Avellaneda me sirvio mucho el codigo solo agregue unas lineas para q me hiciera el conteo dependiendo los "Enter" y listo

Saludos y Gracias por la ayuda