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.