ox = create('form1')
ox.show(1)
**************************************************
*-- Form: form1 (c:\nec\library\classes\temp1.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 12/21/99 08:42:12 AM
*
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 246
Width = 270
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 21, ;
Left = 167, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 51, ;
Left = 166, ;
Height = 27, ;
Width = 84, ;
Caption = "Command2", ;
Name = "Command2"
ADD OBJECT container1 AS container WITH ;
Top = 25, ;
Left = 14, ;
Width = 113, ;
Height = 182, ;
Visible = .F., ;
Name = "Container1"
ADD OBJECT form1.container1.list2 AS listbox WITH ;
Height = 170, ;
Left = 6, ;
Top = 7, ;
Width = 100, ;
Name = "List2"
ADD OBJECT container2 AS container WITH ;
Top = 52, ;
Left = 28, ;
Width = 113, ;
Height = 182, ;
Visible = .F., ;
Name = "Container2"
ADD OBJECT form1.container2.list2 AS listbox WITH ;
Height = 170, ;
Left = 6, ;
Top = 7, ;
Width = 100, ;
Name = "List2"
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
wait clear
ENDPROC
PROCEDURE command1.Click
thisform.container1.visible = .t.
thisform.container2.visible = .f.
ENDPROC
PROCEDURE command2.Click
thisform.container2.visible = .t.
thisform.container1.visible = .f.
ENDPROC
PROCEDURE list2.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
wait window "over container1" nowait noclear
ENDPROC
PROCEDURE list2.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
wait window "over container2" nowait noclear
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************