>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > > > ************************************************** >*-- Form: form1 (c:\form1.scx) >*-- ParentClass: form >*-- BaseClass: form >*-- Time Stamp: 06/30/05 01:40:03 PM >* >DEFINE CLASS form1 AS form > > > Top = 0 > Left = 0 > Height = 188 > Width = 380 > DoCreate = .T. > Caption = "Form1" > _memberdata = "" > Name = "Form1" > > > ADD OBJECT pageframe1 AS pageframe WITH ; > ErasePage = .T., ; > PageCount = 2, ; > Top = 13, ; > Left = 3, ; > Width = 374, ; > Height = 169, ; > Name = "Pageframe1", ; > Page1.Caption = "Page1", ; > Page1.PageOrder = 2, ; > Page1.Name = "Page1", ; > Page2.Caption = "Page2", ; > Page2.PageOrder = 1, ; > Page2.Name = "Page2" > > > PROCEDURE pageframe1.Page1.Deactivate > wait window 'Page 1: Deactivate' timeout 1 > ENDPROC > > > PROCEDURE pageframe1.Page1.Activate > wait window 'Page 1: Activate' timeout 1 > ENDPROC > > > PROCEDURE pageframe1.Page2.Deactivate > wait window 'Page 2: Deactivate' timeout 1 > ENDPROC > > > PROCEDURE pageframe1.Page2.Activate > wait window 'Page 2: Activate' timeout 1 > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: form1 >************************************************** >