Unir arrays

08/07/2005 - 17:16 por Ch0rY | Informe spam

Nas otra vez

Necesito unir varios

Dim LineaIzquierda As Point() = {New Point(0, _AltoPest), New Point(0, 2),
New Point(2, 0)}

Dim LineaArriba As Point() = {New Point(2, 0), New Point
(TamanioCuadro.Width - 5, 0)}

Dim LineaDerecha As Point() = {New Point(TamanioCuadro.Width - 5, 0), New
Point(TamanioCuadro.Width, 5), New Point(TamanioCuadro.Width, _AltoPest)}

arrays en uno solo

Dim Poligono as Point ...

para luego rellenarlo

e.graphics.FillPolygon(New SolidBrush(FondoPoligono), Poligono)

He probado de varias maneras y no soy capaz de hacerlo

Me echais otro cable?

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 elGuille

08/07/2005 - 20:42 | Informe spam

¿Has probado con Array.Copy?
Te creas un array con las dimensiones totales, y vas copiando cada uno de
los arrays a la posición correspondiente.

"Ch0rY" escribió:

Nas otra vez

Necesito unir varios

Dim LineaIzquierda As Point() = {New Point(0, _AltoPest), New Point(0, 2),
New Point(2, 0)}

Dim LineaArriba As Point() = {New Point(2, 0), New Point
(TamanioCuadro.Width - 5, 0)}

Dim LineaDerecha As Point() = {New Point(TamanioCuadro.Width - 5, 0), New
Point(TamanioCuadro.Width, 5), New Point(TamanioCuadro.Width, _AltoPest)}

arrays en uno solo

Dim Poligono as Point ...

para luego rellenarlo

e.graphics.FillPolygon(New SolidBrush(FondoPoligono), Poligono)

He probado de varias maneras y no soy capaz de hacerlo

Me echais otro cable?

Responder a este mensaje

#2 Ch0rY

08/07/2005 - 22:08 | Informe spam

Usease q tengo que crear todo el array vacio, para luego llenarlo, no?

creo q es hay donde no me funcionaba

Ahora lo pruebo y gracias

Responder a este mensaje

#3 Ch0rY

08/07/2005 - 22:14 | Informe spam

Wuaa, error, las matrices especificades deben tener el mismo tamaño

Responder a este mensaje

#4 Eduardo A. Morcillo [MS MVP VB]

08/07/2005 - 23:07 | Informe spam

Prueba asi:

Dim a(9) As Integer
Dim b(9) As Integer
Dim c(19) As Integer

Array.Copy(a, c, 10) ' Copio 10 elementos de A a C
Array.Copy(b, 0, c, 10, 10) ' Copio 10 elementos de B a partir del elemento
0
' a C a partir de la posicion 10

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Responder a este mensaje

#5 Ch0rY

09/07/2005 - 00:36 | Informe spam

Ok, el problema era el dimensionado de Poligono

Ponia
Dim Poligono(20,2) as point

Cuando tenia que ser
Dim Poligono(20) as point

gracias a todos por la ayuda
Chory

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida