Barra de progreso al exportar datos Excel

[mustafa]

Hola Javier
Mira haber si te sirve este código ?

Code: Select all

#include "hmg.ch"
#include <dbstruct.ch> 

*------------------------------------------*
FUNCTION MAIN
*------------------------------------------*

 DEFINE WINDOW Form_1               ;
         AT 0,0                     ;
         WIDTH  450                 ;                     
         HEIGHT 370                 ; 
         TITLE "Sample ProgressBar" ;
         BACKCOLOR  {143,188,143}   ; 
         MAIN NOSIZE NOMAXIMIZE    
              
         ON KEY ESCAPE ACTION Form_1.Release 

         DEFINE LABEL Title   
                ROW  149  
		COL  160
		WIDTH 350  
		HEIGHT 20
		VALUE ""
		FONTNAME "Arial"
		FONTSIZE 10
		TOOLTIP ""
		FONTBOLD .T.
		TRANSPARENT .T.
		CENTERALIGN .F.
	 END LABEL

	 DEFINE PROGRESSBAR ProgressBar_1
		ROW    173
		COL    065
		WIDTH  310
		HEIGHT 022   
		RANGEMIN 0   
		RANGEMAX 100  
		VALUE 0
		FORECOLOR {000,130,000}
	 END PROGRESSBAR

	 DEFINE LABEL Label_1
		ROW    203  
		COL    045
		WIDTH  350
		HEIGHT 020
		VALUE ""
		FONTNAME "Arial"
		FONTSIZE 10
		TOOLTIP ""
		FONTBOLD .T.
		TRANSPARENT .T.
		CENTERALIGN .T.
	 END LABEL

         DEFINE BUTTON Button_3
		ROW 260
		COL 180
		WIDTH  105
		HEIGHT 040
		CAPTION "&ProgressBar" 
		ACTION  Initius_ProcessBar()
                FONTNAME "Arial"
                FONTSIZE 9
                TOOLTIP "ProcessBar"
                FONTBOLD .T.
                FONTITALIC .T.
                PICTURE ""
                PICTALIGNMENT  LEFT
	 END BUTTON

	 DEFINE BUTTON Button_4
		ROW 260
		COL 310
		WIDTH  105
		HEIGHT 040
		CAPTION "&Exit"
		ACTION Form_1.Release
                FONTNAME "Arial"
                FONTSIZE 9
                TOOLTIP "Exit"
                FONTBOLD .T.
                FONTITALIC .T.
                PICTURE ""
                PICTALIGNMENT  LEFT
	 END BUTTON

   END WINDOW


        HMG_ChangeWindowStyle ( GetControlHandle("ProgressBar_1","Form_1"), LVS_REPORT, NIL, .T. )

   CENTER WINDOW Form_1
   ACTIVATE WINDOW Form_1
    
return nil  


*------------------------------------------*
 Function Initius_ProcessBar()
*------------------------------------------*

 PRIVATE nX

 Form_1.Title.Value   := " " 
 Form_1.Label_1.Value := " " 
   
 For nX := 0 to 100 step 1

    DO EVENTS 

    Form_1.Title.Value := "Progress: " + Str(nX,3)+" %"
    Form_1.ProgressBar_1.Value := nX    
    Form_1.ProgressBar_1.Refresh()   

    MILLISEC(80)   
 
 Next  
 
   MILLISEC( .08) 

   MODIFY CONTROL Label_1 OF Form_1 FONTCOLOR {000,000,255}

   Form_1.ProgressBar_1.Value := 0
   Form_1.Title.Value := " "
   Form_1.Label_1.Value := 'Backup is finished'

   RELEASE MEMORY

Return(.T.)

*-_._-*-_._-*-_._-*-_._-*-_._-*-_._-**-_._-*-_._-*-_._-*-_._-*-_._-*-_._-*-_._-*-_._-*-_._-*-_._-*

Saludos / Regards / Salam
Mustafa