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