Fox4um - Page içerisinde SetAll

Re: Page içerisinde SetAll

dummy@example.com (cetinbasoz) — Thu, 09 Jul 2009 10:30:52 +0000

Benimki biraz genel amacli bir yazim. Herhangi bir "container" tarzi object icin. Mesela PageFrame, onun Controls ve ControlCount'u yok. Pages, PageCount var. CommandGroup dersen Buttons ve ButtonCount. Ama hepsinin uyeleri amembers() ile aliniyor. Vakti zamaninda bir objenin "container" gibi birsey oldugunu nasil buluruz diye sormustum, cevap cikmadi. Benim buldugum yol amembers() sonucu 0'dan buyukse container ve VFP5'den beri calisiyor:)

Re: Page içerisinde SetAll

dummy@example.com (konuka) — Thu, 09 Jul 2009 07:57:09 +0000

Çetin,
döngüyü neden aşağıdaki gibi yapmıyorsun ?

Visual Fox Pro

WITH Myform.MyPageFrame.MyPage

FOR m.Xi=1 TO .Controlcount

  IF LOWER(.Controls[m.Xi].BaseClass) == 'commandbutton' And Lower(Left(Controls[m.Xi].Name,6)) == 'btncan'

      .Controls[m.Xi].Enabled = .F.

  ENDIF

ENDF

ENDW

Re: Page içerisinde SetAll

dummy@example.com (ugurlu2001) — Wed, 08 Jul 2009 12:43:01 +0000

Üstad harikasın

Senin kodun CUK diye oldu

Çok teşekkür ediyorum.

Re: Page içerisinde SetAll

dummy@example.com (cetinbasoz) — Wed, 08 Jul 2009 12:34:33 +0000

Hayir:(

Foxyclasses var miydi sende? Varsa onunla yapabilirsin.

Eger hepsi dogrudan page'in uyesi ise:

Visual Fox Pro

For ix=1 To Amembers(aControls, Thisform.pgf.page1,2)

  With Evaluate('thisform.pgf.page1.'+aControls[m.ix])

    If Lower(.BaseClass) == 'commandbutton' And Lower(Left(.Name,6)) == 'btncan'

      .Enabled = .F.

    Endif

  Endwith

Endfor

Page içerisinde SetAll

dummy@example.com (ugurlu2001) — Wed, 08 Jul 2009 10:36:39 +0000

Kullandığım Form\PageFrame\Page içerinde; btnCan ile başlayan tüm CommandButton nesnelerini bir seferde Visible = .F. durumuna getirebilirmiyim.

Yardımlar için şimdiden teşekkür ediyorum.