>>In the SetValue() method you have:
>>
>>lnPercent = Int(tnValue/this.nMax * 100)
>>lnWidth = Int(lnPercent/100 * this.Width) - 2
>>this.shpBar.Width = lnWidth
>>
>>If you instantiate the progress bar with nMin=1 and nMax=149 (for the number of records in a table), there will be an error message 'The width property evaluated to an illegal number'. The thing is:
>>
>>lnPercent = Int(1/149*100) = 0
>>lnWidth = Int(0/100*0) - 2 = -2
>>
>>Maybe someone else already pointed this out. Or am I misinterpreting the use of nMin and nMax? In this example, I need to instantiate with nMin=1 and nMax=100 and process the Value passed outside the class.
>
>With use of max, min :
>
>thisform.OLEProgbar.min = 0
>thisform.OLEProgbar.max = reccount()
>scan
> * Do something
> thisform.OLEProgbar.value = recno()
>endscan
>
>W/o touching min, max (default 0 and 100)
>
>scan
> * Do something
> thisform.OLEProgbar.value = int(recno()*100/reccount())
>endscan
>
>Pls notice considered use w/o index tag.
>Cetin
Are you talking about activex progress bar that ships with VFP? I've tried that, but I need to do some 'tricks' to have it running the way I like it. I was referring to the class from Michael G. Emmons in the Files section. The message was intended to go to him, but for some reason (bug?) the message went to All.
Thanks anyway.