Agregar controles

[bladimir]

Hola amigos del foro miren estoy tratando de hacer una aplicacion que guarde mis wallpapers y me permita agregar mas wallpapers
la manera como estoy tratando de hacerlo es que cada vez que agrege un nuevo wallpaper me agrege un nuevo control image
encontre un tutorial que es "Hacer un explorador de imagenes" y utiliza el siguiente codigo

--codigo del button1
--deshabilitar actualizacion de lixtbox
ListBox.SetUpdate("ListBox1",false);

--obtner la carpeta a explorar deseada
folder = Dialog.FolderBrowse("Open Folder", "AutoPlay\\Images");

--llenar las tablas con todos los archivos .jpg, .png
file_jpg = File.Find(folder, "*.jpg", false, false, nil);
file_png = File.Find(folder, "*.png", false, false, nil);

images = {file_jpg,file_png};

--hacer lo siguiente para cada archivo:

for k in images do --da vueltas a traves de los distintos tipos de imagen
	for j,file_path in images[k]do --da vueltas a traves de cada archivo de imagen
		--añade el item a la listbox, con el nombre visible y la ruta como datos
		ListBox.AddItem("ListBox1", String.SplitPath(file_path).Filename, file_path);
	end
end
--permite que la listbox muestre el codigo actualizado
ListBox.SetUpdate("ListBox1",true);

codigo del button2 
--mostrara la imagen seleccionada en el objeto listBox1
select=ListBox.GetSelected("ListBox1");
for j,k in Select do
	Image.Load("Image1",ListBox.GetItemData("ListBox1",k));
end
----------------------------------------------------------------------------------

estoy utilizando dos botones sus nombre por defecto
tambien un ListBox con nombre por defecto y un image tambien con el nombre por defecto
he hecho segun al tutorial pero no funciona me bota un error y no se donde estaria equivocandome

o si exite alguna otra manera de hacerlo esa aplicacion

espero vuestra ayuda

[Ceone]

Lo primero si quieres poner script recuerda usar el botón LUA


Lo segundo usas AMS8??? si usas AMS8 una de las novedades de la nueva versión de lua que an añadido es que muchos loop necesitan que añadas un comando mas... ahora te lo muestro!!!!

Ejemplo usando antiguo lua:

for a,b in c do
        
end

Ejemplo usando nueva versión de lua:

for a,b in pairs(c) do
        
end

de modo que quedaría así tu script:

--codigo del button1
--deshabilitar actualizacion de lixtbox
ListBox.SetUpdate("ListBox1",false);

--obtner la carpeta a explorar deseada
folder = Dialog.FolderBrowse("Open Folder", "AutoPlay\\Images");

--llenar las tablas con todos los archivos .jpg, .png
file_jpg = File.Find(folder, "*.jpg", false, false, nil);
file_png = File.Find(folder, "*.png", false, false, nil);

images = {file_jpg,file_png};

--hacer lo siguiente para cada archivo:

for k in images do --da vueltas a traves de los distintos tipos de imagen
        for j,file_path in pairs(images[k]) do --da vueltas a traves de cada archivo de imagen
                --añade el item a la listbox, con el nombre visible y la ruta como datos
                ListBox.AddItem("ListBox1", String.SplitPath(file_path).Filename, file_path);
        end
end
--permite que la listbox muestre el codigo actualizado
ListBox.SetUpdate("ListBox1",true);

codigo del button2
--mostrara la imagen seleccionada en el objeto listBox1
select=ListBox.GetSelected("ListBox1");
for j,k in pairs(Select) do
        Image.Load("Image1",ListBox.GetItemData("ListBox1",k));
end
----------------------------------------------------------------------------------

lógicamente no se si te funcionara el script, si no te va me lo mirare con mas calma!!!

espero que te vaya bien!

[bladimir]

gracias por la observacion lo tomare en cuenta
mira he cambiado el codigo con el que me diste pero no funciona
ha yo estoy utilizando el autoplay media studio v8