The Forums on slxdeveloper.com are now retired. The forum archive will remain available for the time being. Thank you for your participation on slxdeveloper.com!
|
|
Not Responding Program
Posted: 10 Jul 06 12:19 PM
|
fiogf49gjkf0d I have a program that I wrote in v5.2 legacy basic scripts with a Manage view.
My problem is that the program is updating large record sets and therefore if the user minimizes the manage view and then goes back to it, Task Manager says that it's not responding. If I wait the program will finish and do what it is supposed to do, but I'm wondering if anyone has ever fixed a problem similar to this.
Thank you. |
|
|
|
Re: Not Responding Program
Posted: 10 Jul 06 12:29 PM
|
fiogf49gjkf0d If you are looping through a record set you could add a counter to your view then use the ProcessWindowMessages function to update the screen. |
|
|
| |
|
Re: Not Responding Program
Posted: 10 Jul 06 1:03 PM
|
fiogf49gjkf0d I usually update the screen every 100 rows. It goes something like this...
const LOG_STATS=100
dim InputCounter as integer
While Not EOF
InputCount = InputCount+1
If InputCount Mod LOG_STATS = 0 Then
txtCounter.text = CStr(InputCounter)
ProcessWindowMessages
End If
.
.
wend |
|
|
|