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?

Preguntas similare

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?


Respuesta 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
Respuesta Responder a este mensaje
#3 Ch0rY
08/07/2005 - 22:14 | Informe spam
Wuaa, error, las matrices especificades deben tener el mismo tamaño
Respuesta 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
Respuesta 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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida