Cargar imagenes .RER

Iniciado por jack06, 3 Noviembre 2008, 17:01 PM

0 Miembros y 1 Visitante están viendo este tema.

jack06

Wenas; tengo un problemilla con el .RER tengo un array de Pictures osea asi Picture(0), Picture(1)............. ahora para cargar las imagenes desde el .RER a los picture lo hago de esta manera.

    Set Picture(0) = LoadResPicture(101, vbResBitmap)
    Set Picture(1) = LoadResPicture(102, vbResBitmap)
    Set Picture(2) = LoadResPicture(103, vbResBitmap)
    Set Picture(3) = LoadResPicture(104, vbResBitmap)
         :
         :

y asi sucesivamente, el problema es que al hacer asi sale muchas lineas de code alguien sabe alguna forma de como poder reducir eso???? espero su pronta ayuda... Sal2..   ;D
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

Novlucker

Con un simple For

Código (vb) [Seleccionar]
For i=0 To 50
Picture(i) = LoadResPicture(101+i, vbResBitmap)
Next


Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

jack06

jejej si que estaba refacil jeje ok muchisimas gracias Novlucker  :D
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

seba123neo

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson