Activex Control, Ms ProgressBar Control di Visual Fox Pro

Activex Control, Ms ProgressBar Control

Semoga tidak bosan dengan tema ProgressBar, dalam tulisan ini beberapa hari yang lalu penulis iseng-iseng dan sempat bertanya-tanya dalam hati “bagaimana suatu ProgressBar dapat di aktifkan melalui suatu command button, dan menampilkan pesan proses loading, apakah itu bisa…??? “, Alkhamdullilah pertanyaan tersebut terjawab setelah penulis bertanya ke paman penulis sebut saja “Uncle Google”…
Ehmm kembali ke tema diatas, konsepnya sederhana yaitu menyisipkan script dari proses progressbar dan memanggila pengaktifkan pesan tunggu, penyisipan script tersebut disisipkan di command button yang kita kehendaki, sebut saja dalam tulisan ini commandbutton dengan nama object = oCmdProsess, Procedure = Click.
Untuk scriptnya kurang lebihnya yaitu sebagai berikut :
**!** Procedure Click, oCmdProses **!**
Counter=0  &&& tipe data integer , add new property “counter”
DIME proses(100)  &&& tipe data string
**!** oPB adalah nama property dari object ProgressBar **!**
THISFORM.oPB.MIN =1
THISFORM.oPB.MAX=ALEN(proses)
THISFORM.oPB.VISIBLE = .T.
*!*    ‘Menyeting Nilai progress ke nilai minimum **!**
THISFORM.oPB.VALUE = THISFORM.oPB.MIN
*!* ‘Proses Loop **!**
FOR Counter = 1 TO 100 STEP +.001
WAIT WINDOW NOWAIT “Sedang Memproses Data…” && Pesan Tunggu
*!* ‘Menyeting Nilai inisial untuk masing-masing item di arary **!**
proses(Counter) = “”+ STR(Counter)
THISFORM.oPB.VALUE = Counter
ENDFOR
THISFORM.oPB.VISIBLE = .T. && jika .F. maka setelah progress selesai akan tidak nampak / hiden
THISFORM.oPB.VALUE = THISFORM.oPB.MIN
Semoga bermanfaat, aminn