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?
 

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?


Preguntas similares