Page History
...
1. On the Create Event of the form, place the following code to set the statusline of the form:
| Code Block |
|---|
statusline = CtrlEntId:'.STATUSLINE' Set_Property(CtrlEntId,'STATUSLINE',statusline) |
2. On the Click Event of the BTN_SEND_INFO, place the following processing code:
| Code Block |
|---|
topVal = 1000000
for i = 1 to topVal
call Send_Info('Processing ': i : ' of ' : topVal)
call Yield()
next i |
3. On the Click Event of the BTN_ABORT button, place the following statement:
| Code Block |
|---|
ABORT ALL. |
4. Execute the form. Click the Send Info button. The statusline will be updated. Click the Abort button and the processing stops. If you close the window without clicking the Abort button the window will close but the engine will still be processing the Send_Info loop. To verify this, start the System Monitor, the Send_Info messages will display in the System Monitor window.
...
