Çok sütünlu Listbox nasıl mümkün?

Grid her bakimdan cozum hem de listbox'in olamayacagi kadar ya hadi neyse:)

Public oForm

oForm = Createobject('myForm')

oForm.Show

 

Define Class myForm As Form

  DataSession = 2

  Height=400

  Width =720

 

  Add Object myListBox As ListBox With ;

    Top=10,Left=10,Height=380,Width=700

 

  Procedure myListBox.Init

    WITH this

      .Addproperty('aCustomers[1]')

      SELECT Company,Contact,Title,cust_id ;

        FROM customer INTO ARRAY .aCustomers

      .RowSourceType=5

      .RowSource='this.aCustomers'

      .ColumnCount = 3

      .ColumnWidths='250,250,200'

    endwith

  Endproc

Enddefine

Bu arada array lafi ettigin icin arrayli.

Array neden sart? Cursor kullan.

Ercan,
List() bir yol ve ne yazik ki hep orneklerde gosterilen yol. Ancak list/combonun bagli oldugu kaynakta:
1) List ile ulasmak icin gerekenden daha uzun kod yazman ve kolon pozisyonunu bilmen gerekebilir (genelde ne yazik ki oyle). Mesela rowsourcetype=3-SQL ve SQL "select * from customer into cursor crsCustomer" ise sen country bilgisini alabilmek icin onun kolon pozsiyonunu blip soyle birsey yazacaksin:

with thisform.myListbox
lcCountry = .List(.ListIndex, kolonNo)
endwith

Oysa kisa ve basit yolu:
lcCountry = crsCustomer.country

2) List ile sorgularsan data tipi karakter. Kaynakta numeric, date vs ise cevrim gerekiyor

Listboxta cell selection yok, dogru. Listbox readonly bir kontrol.

Grid ile listboxla yapilan herseyi ve daha fazlasini yaparsin. Grid ile listbox oylesine taklit edilebilir ki bir sayfaya 5 kontrol koyarak, 1 i grid digerleri listbox, "bul karayi al parayi" gibi bir oyunla kose olunur. Tek yapacagin oyunlar arasinda formu bir an gizleyip yerlerini degistirmek:) Bilmem anlatabildim mi. Listbox taklit etmenin otesinde editable o kadar cok sey yapilabiliyor ki, bilmesen o sayfada o isi yapanin grid oldugunu soyleyemezsin. VFPciler arasinda biraz grid manyagi gibi taninmama sasmamali ben hakikaten bayiliyorum gridlere. Foxpronun en guclu komutu "browse" idi, simdi de en guclu kontrolu grid. Nasil 70'lerin teknolojisi olmasina ragmen SR71'e rakip ucak uretilemediyse, gride rakip kontrol de henuz yok. Nasil olsun gridin icinde kullanamadigi tek kontrol belki de "form", hos baseclassi form olmasa da baska kontrollerle onu bile icerebiliyor.

Set cursor off'un bir esprisi yok orada. O sadece gorsel olarak cursor'u kaldirmak icin. Senin demek istedigini tam anlamadim ama galiba sundan bahsediyorsun:

* text1.click
this.setfocus()
vaya:
keyboard "{Ctrl+A}"

Cursorun seklini istedigin sey yapabilirsin.

Ayrica kullanilan baska bir hile de gridin onune bir container (veya shape ama container tercih) yerlestirip, backstyle'ini transparent ayarlamak ve tum mouse hareketlerini kontrol edip gerektiginde gride gondermek.

Gridin gucu cok fazla, ancak genellikle o gucu kontrol etmek de zor oldugundan UT gibi bir forumda sorsan edit islerinde gridden uzak dur derler.

Eger grid isini gormuyorsa o  zaman dogrudan foxpronun icinde kullanabilecegin ve hemen hemen herseyi yapabilecegin bir diger kontrol web browser. Yani mesela bu fox4um tarzi bir arayuzu VFP formunun icinde yaratip kontrol edebilirsin. Hatta .Net kontrollerini bile kullanabilirsin (ki onlarin gorselligi cok - ornek icin www.etechnoligia.net).

Sorunun ne oldugunu tam anlamadigimdan gridin gucllu oldugunu anlattim kusura bakma. Yine de ornek bir kod gondericem basitce gridin cursoru nasil farkli kullanabilecegini gosteren.

Aslında durum, deneyimli ve bilgili biri ile dışarıdan bakan ve biraz da cahil birinin bir konu üzerindeki iletişim sorunu.

Benim istediğim, sizin son mesajınızdaki yargınız gibi özel bir şey değil. Şimdi anladığım şu:
1. Benim gereksinimim ya grid ile çözülecek ya da VFP'nin kendinde varolan kontrolleriyle çözülmesi mümkün değil. Üçüncü parti (vcx,ocx v.b.) bir çözüm bulunabilir belki.
  2. Grid'e gelirsek son gönderdiğiniz
      select * from yeryer into array aHepsi
      dimension aHepsi[ceiling(alen(aHepsi,1)/2),2]
      create cursor ikikolon (yerad1 c(30), yerad2 c(30))
      append from array aHepsi
kodu ile gerçekten iki kolonlu grid yaptım ve istediklerimin çoğunu elde ettim.
İlk sorunum: Burada birinci kolonda dizideki tek sayılı elementler yer alıyor. Benim istediğim ise ilk kolonda yukarıdan aşağıya sırayla gitsin, kolon bitince ikinci kolonun 1. satırından devam etsin. Yani:
   1. seçenek    4. seçenek
   2. seçenek    5. seçenek
   3. seçenek   

Çözümü buldum: Array'i doldurma yöntemini değiştirmek. Yani;
      select * from yeryer into array aHepsi
      BOYUT = ceiling(alen(aHepsi,1)/2)
      dimension aHepsi(BOYUT,2)
      create cursor ikikolon (yerad1 c(45), yerad2 c(45))
      FOR iGENE= 1 TO BOYUT
         INSERT INTO ikikolon (yerad1,yerad2) VALUES (aHepsi[iGENE], aHepsi[iGENE+BOYUT])
      NEXT
Yeni sorun : Dizideki element sayısı tek sayı ise sorun çıkıyor. Yukarıdaki döngü, sona gelince (örneğin 5 seçenek varsa 6. seçeneği de doldurmaya çalışıyor) olmayan bir elementi doldurmaya çalışıyor.
  Çözümü ?
Yeni sorun : Yukarıdaki sorunu çözdüğümüzü varsaysak bile, diyelim 5 seçenek var ve 3 row var. Kullanıcının var olmayan 6. seçeneği seçmesine nasıl engel olabilirim. Çünkü grid 6. seçeneği boş olarak gösterse bile kullanıcı onu yanlışlıkla seçebilir. Bu seçeneği seçtiğinde uyarıcı mesaj konabilir belki ama bu da hoş değil işi baştan çözümlemek gerek bence.

Aslında daha önce yazdığım bir sorun yine de var ama yukarıdakileri çözümleyebilirsek ondan yeniden söz edeceğim.

Biraz sıktım galiba.
Teşekkürler.

grid'de bir hücre üzerinde iken keypress ile tuşları yakalayamıyorum. Benzer biçimde hücreye click yaptığımda bir şey yakalayamıyorum.
Örneğin Enter'a basıldığında selection diğer kolona geçiyor. Ben ise örneğin bu hücrenin value'sini alıp formdan çıkmak istiyorum.
Nasıl yapabilirim. Nodefault olmadı.

FoxyClasses orneklerine bak istersen, oluyor.