Al otro lado de la pantalla
Me encuentro un problema con el componente VPanel, se aplicara a la mayoría de los componentes con hijos.
He hecho un programa de una manera y me gustaría aprovechar el array de componentes internos del propio VPanel.
No creo que haya puesto correctamente la instrucción.
El programa:
El formulario consta de dos Vpanel. Se pasan las imágenes del Vpanel1 al azar sin repetición al Vpanel2.
Eliminándolas del VPanel1.
Os pongo el trozo de código donde quiero cambiarlo y si necesitáis el código completo lo paso por aquí.
PUBLIC SUB btnAzar_Click()
DIM imgImaPanel AS PictureBox
DIM azar AS Integer
DIM x AS Integer
FOR x = 0 TO VPanel1.Children.Count - 1
azar = Int(Rnd(0, VPanel1.Children.Count))
imgImaPanel = NEW PictureBox(VPanel2)
WITH imgImaPanel
.Height = 125
.Width = 125
.Stretch = TRUE
.Border = Border.Sunken
.Picture = Picture[sruta & aimagenes[azar]] 'Como hacer de otra manera.Así funciona
'.Picture = Picture[VPanel1.Children[azar].Picture] 'Error,desconocido símbolo en la clase control
'(no existe esa propiedad).Así no funciona.
END WITH
VPanel1.Children[azar].Delete 'Aqui a veces da objeto invalido (se perderá el hijo) :-)
NEXT
END
¿ Si el componente hijo es un Picturebox, no se podría cargar el contenido de su imagen ?.
Saludos.
