************************************************** *-- Form: form1 (c:\nec\library\classes\temp.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 12/15/99 08:59:04 AM * DEFINE CLASS form1 AS form Top = 62 Left = 95 Height = 115 Width = 218 DoCreate = .T. Caption = "Form1" continue = .T. counter = 0 Name = "Form1" ADD OBJECT command1 AS commandbutton WITH ; Top = 72, ; Left = 12, ; Height = 27, ; Width = 84, ; Caption = "Start Loop", ; Name = "Command1" ADD OBJECT command2 AS commandbutton WITH ; Top = 72, ; Left = 108, ; Height = 27, ; Width = 84, ; Caption = "Stop Loop", ; Name = "Command2" ADD OBJECT text1 AS textbox WITH ; ControlSource = "thisform.counter", ; Height = 23, ; Left = 12, ; ReadOnly = .T., ; Top = 12, ; Width = 100, ; Name = "Text1" ADD OBJECT text2 AS textbox WITH ; ControlSource = "thisform.counter", ; Height = 23, ; Left = 12, ; ReadOnly = .T., ; Top = 36, ; Width = 100, ; Name = "Text2" PROCEDURE command1.Click LOCAL lni lni = 0 WITH thisform .continue = .T. .text2.value = "Looping..." DO WHILE .continue .AND. lni < 1000000 IF MOD( lni, 1000 ) = 0 DOEVENTS ENDIF .counter = .counter + 1 lni = lni + 1 .text1.refresh ENDDO .text2.value = "Done." ENDWITH ENDPROC PROCEDURE command2.Click thisform.continue = .F. ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************