Progress a una accion rapida?

[jaimevega]

Hola, disculpen pero como le ago para q muestre una barra de progreso cuando creo una accion rapida como es crear un INI donde dentro alla el MD5 sacado de un archivo, ya tengo el apz echo solo q me gustaria q se muestre una barra de progreso mientras saca cada MD5 de cada archivo, xq pienso hacerlo con barios archivos como unos 30..

[jaimevega]

 o No, creo q encontre una forma barbara de aserlo, cheken

Progress.SetCurrentPos("Progress1", 10);

Application.Sleep(3000)

Progress.SetCurrentPos("Progress1", 20);

Application.Sleep(3000)

Progress.SetCurrentPos("Progress1", 30);

Application.Sleep(3000)

Progress.SetCurrentPos("Progress1", 40);

Application.Sleep(3000)

Progress.SetCurrentPos("Progress1", 50);

Application.Sleep(3000)

Simplemente este codigo y cambiando el numero "10" por 20 o 30 y asi asi xD

Progress.SetCurrentPos("Progress1", 10);

Se podira poner para cualquier cosa xD

De todos modos, algun otro ejemplo porfa

[hentai007]

Prueba si funciona con algo asi:

suma = 0
while suma do
suma = suma + 10
Progress.SetCurrentPos("Progress1", ..suma);
Application.Sleep(3000)
if suma == 50 then
break
 end
  end

No estoy seguro sobre si servira por que no estoy en mi pc para probarlo >.< y llego a casa hasta el domingo/lunes :P

[Ceone]

Te voy a poner un ejemplo de como se aria para 30 archivos pero bueno esto es solo un ejemplo. Yo usare una variable numérica simple para ir cambiando el nombre de los archivos tu usa el sistema que mas te guste...

max = 30;
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMeterRange(0, max);
for count = 1, max do
	StatusDlg.SetMessage(count.." de "..max);
	StatusDlg.SetStatusText("Cargando el archivo...");
	Application.Sleep(250);
	INIFile.SetValue(_SourceFolder.."\\Archivo_num_"..count..".ini", "My Section", "My Value", "My Data");
	StatusDlg.SetMeterPos(count+1);
	StatusDlg.SetStatusText("Finalizada con exito la operación...");
	Application.Sleep(250);
	if count == 30 then
		StatusDlg.SetStatusText("La operación a finalizado...");
		Application.Sleep(2500);	
		StatusDlg.Hide();
	end
end

[jaimevega]

gracias!, lo agregare a mi proyecto