************************************************** PUBLIC oform1 *SET CLASSLIB TO c:\a\a.vcx ADDITIVE oform1=NEWOBJECT("form1") oform1.Show ************************************************** *-- Form: form1 (c:\a\form2.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 01/31/02 03:24:03 PM * DEFINE CLASS form1 AS form Top = 14 Left = 53 Height = 139 Width = 290 DoCreate = .T. Caption = "Form1" Name = "FORM1" ADD OBJECT command1 AS commandbutton WITH ; Top = 48, ; Left = 144, ; Height = 27, ; Width = 84, ; Caption = "Assign", ; TabIndex = 1, ; Name = "Command1" ADD OBJECT t AS textbox WITH ; Alignment = 3, ; Value = 10, ; Height = 23, ; Left = 144, ; TabIndex = 3, ; Top = 12, ; Width = 100, ; Name = "t" ADD OBJECT command2 AS commandbutton WITH ; Top = 84, ; Left = 144, ; Height = 27, ; Width = 84, ; Caption = "Access", ; TabIndex = 2, ; Name = "Command2" ADD OBJECT l1 AS list_teste WITH ; Height = 100, ; Left = 36, ; Top = 12, ; Width = 96, ; Name = "l1" PROCEDURE command1.Click ThisForm.l1.Left = "aaaa" ENDPROC PROCEDURE command2.Click MessageBox(Str(Thisform.l1.Left)) ENDPROC ENDDEFINE * *-- EndDefine: form1 ************************************************** ************************************************** *-- Class: list_teste (c:\a\a.vcx) *-- ParentClass: listbox *-- BaseClass: listbox *-- Time Stamp: 01/31/02 03:22:12 PM * DEFINE CLASS list_teste AS listbox Height = 170 Width = 100 Name = "l" PROCEDURE left_assign LPARAMETERS vNewVal MessageBox("Método Assign") If vNewVal > 30 MessageBox("Maior que 30. Altera") THIS.LEFT = m.vNewVal Else MessageBox("Menor que 30. Não altera") return EndIf ENDPROC ENDDEFINE * *-- EndDefine: list_teste **************************************************