1 Son düzenleyen, ugurlu2001 (08.12.2012 20:31:11)

Konu: newobject Hk.

Merhabalar;

Newobject nesnesini Custom class ile PRG uzantılarında kullanabiliyorum ama bir form içinde istediğim gibi kullanamadım.
Bir forma,bir class eklemek istiyorum. Yapmaya çalıştığım şu :

button click 'de :

Visual Fox Pro
ThisForm.Newobject('SaveTable',"SaveTable",IIF(VERSION(2)=2,'../PROGS/Main.Prg','Main.Prg'))

yada parametrik olarak

Visual Fox Pro
ThisForm.Newobject('SaveTable',"SaveTable",IIF(VERSION(2)=2,'../PROGS/Main.Prg','Main.Prg'),ThisForm.oParams)

aldığım hata mesajı ise :

---------------------------
Microsoft Visual FoxPro
---------------------------
Error No..................: 1927
Error Message.............: Statement is not valid in a class definition.
Error Code................: Thisform.NewObject('SaveTable',"SaveTable",IIF(VERSION(2)=2,'../PROGS/Main.Prg','Main.PRG'))
Error Line................: 1
Program Name..............: FIRMADETAY.CMDEKLE.CLICK
---------------------------
Tamam   
---------------------------

Clas tanımı kabaca şu şekilde :

Visual Fox Pro
DEFINE CLASS SaveTable As Custom  

    oParams = .Null.
    CallerObject = ''
    RetVal = .F.
 
    PROCEDURE Init
        LPARAMETERS toParams
            This.oParams = toParams
        RETURN
    ENDPROC
 
    PROCEDURE KayitEkle
        ************
        ************
    ENDPROC
 
    RETURN     
ENDDEFINE

Çözüm için ne yapmalıyım ?!
Öneriler ve yardımlar için şimdiden teşekkürler ...

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

2

Re: newobject Hk.

Çözümü buldum.

Class tanımı içerisinde yanlış yerde "Return" kullanmışım.

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü