ESCRIBIR MATRIZ EN UN TEXTBOX

maya
07 de Enero del 2004
necesito que me aparezcan en un textbox los resultados de operaciones con matrices y vectores.

el textbox tiene actibadas las scrollsbars y en true la multilinea, pero con el codigo que he escrito me aparecen los datos en una sola linea y pegados unos atros.

el codigo es el siguiente:

Form6.Text2.Text = CStr(solucion1(0))

For fila = 1 To (2 * n - 1)

Form6.Text2.Text = Form6.Text2.Text & CStr(solucion1(fila))
Next

como hago para que m,e aparezca una fila debajo de la otra?? no importa que exista una linea en blanco entre ellas

gracias

salu2

reventador
07 de Enero del 2004
hola maya, prueba con esto:

Form6.Text2.Text = ""

For fila = 0 To (2 * n - 1)

Form6.Text2.Text = Form6.Text2.Text & CStr(solucion1(fila)) &vbCrLf

Next


Si tienes problemas de que en una misma fila se te quedan los valores juntos, prueba a poner por medio espacios en blanco asi:

cadena = principio & " " & final


Un saludo

maya
07 de Enero del 2004
gracias de nuevo por la ayuda. ya me aparecen los datos en filas y columnas

el problema es que aunque he añadido unos espacios en blanco para que no se junten, no me quedan todos los datos alineados en filas y columnas ya que unos datos de de 2 cifras, otros de 4 etc..

existe alguna manera de que esa separacion entre columnas quede como tabulada??

gracias

salu2

reventador
07 de Enero del 2004
hola maya, podrias hacer algo como esto:

Form6.Text2.Text = ""

'Buscamos la longitud del valor con mas caracteres
Dim long_mayor As Integer
long_mayor = 0

For fila = 0 To (2 * n - 1)
If Len(CStr(solucion1(fila))) > long_mayor Then
long_mayor = Len(CStr(solucion1(fila)))
End If
Next

For fila = 0 To (2 * n - 1)

For j = 1 To (long_mayor - Len(CStr(solucion1(fila))))
Form6.Text2.Text = Form6.Text2.Text & " "
Next j


Form6.Text2.Text = Form6.Text2.Text & CStr(solucion1(fila)) & vbCrLf

Next



primero buscas la longitud mayor de entre todos los valores, y luego pones tantos espacios en blanco antes del valor como la diferencia entre el mayor y el que vas a poner, asi digamos que justificas a la derecha.
Para justificar al centro deberias hacer lo mismo, pero añadiendo la mitad de la diferencia antes y la mitad de la diferencia despues (y si es impar la diferencia, añades uno mas o bien antes o bien despues)


Un saludo