text multiline

sebastian
22 de Julio del 2004
Nuevamente....

Nesecito agregar una dade del 1 al 10 en un text multiline.

ejemplo:

1
2
3
4
5
6
7
8
9
10


gracias


Estrambotica
22 de Julio del 2004
En la propiedad del txt colocale multilinea true

sebastian
22 de Julio del 2004
si, el tema es que tengo que ir agregando en tiempo de ejecucion




semperfimxl
22 de Julio del 2004
Fijas las propiedades del Textbox (Multilinea = Verdadero, ScrollBars = Vertical (o Ambos -Vertical/Horizontal- en caso necesario)...

Ya en el codigo:
If LTrim(RTrim(Text1.Text)) = "" Then
Text1.Text = TuVariable
Else
Text1.Text = Text1.Text & vbCrLf & TuVariable
EndIf

semperfimxl
22 de Julio del 2004
Por supuesto, ahora vas a querer procesar cada renglon del Textbox Multilinea como un elemento individual (tal como lo harias con un listbox por ejemplo)...

Para esto:

'++++++++++++++

Dim aMatriz As Variant
Dim nCount As Long

aMatriz = Split(Text1.Text, vbCrLf, -1, vbBinaryCompare)

For nCount = 0 To UBound(aMatriz)
MsgBox "Renglon " & nCount +1 & " Del Text Multilinea" & vbcrlf & _
aMatriz(nCount)
Next

'++++++++++++

tecniCam
22 de Julio del 2004
Tienes que hacer un bucle que recorra todos y cada uno de los registros o datos que desees agregar y, en medio, ir guardando en el TXT.

Llamas al primer elemento y guardas en el TXT, llamas al segundo y guardas, etc... Hasta que se acabe.