AccessTr.neT

İyi günler sn. @berduş ve sn. @feraz ın yapmış olduğu takvim formundan mükemmel bir ajanda olabilir.
bu takvim formuna resimdeki gibi listbox eklemek istiyorum. sn. @berduş un eklemiş olduğu 

DoCmd.OpenForm "FrmDnm", acDesign

'''''''''''

'İsim CtTop CtLeft CtHeight CtWidth

' 0,499cm 0,501cm

'Btnilk 60 65 283 284

'BtnAlt 363 60 283 284

'BtnSag 63 360 283 284

'DkyAralik = 20 YtyAralik = 11

'DkyAralik = 17 YtyAralik = 11



'YtyAralik = Me.BtnSag.Left - (Me.Btnilk.Left + Me.Btnilk.Width)

'DkyAralik = Me.BtnAlt.Top - (Me.Btnilk.Top + Me.Btnilk.Height)



Mtn1Ust = 60

Mtn1Sol = 65

CtWidth = 284

CtHeight = 283

yatayAra = CtWidth + 1

dikeyAra = CtHeight + 1



For X = 1 To 100

CtName = "BtnGun" & X

CtTop = Mtn1Ust + dikeyAra * ((X - 0.6) \ 10)

CtLeft = Mtn1Sol + yatayAra * ((X - 0.6) Mod 10)

Set ctlCheck = CreateControl("FrmDnm", acCommandButton, , , "", CtLeft, CtTop, CtWidth, CtHeight)

ctlCheck.Name = CtName

'With ctlCheck

' .CtName = "BtnGun" & X

' .CtTop = Mtn1Ust + dikeyAra * ((X - 0.6) \ 10)

' .CtLeft = Mtn1Sol + yatayAra * ((X - 0.6) Mod 10)

'End With

Next X

kod ile 42 tane labelin arasına 42 tane listboxu nasıl ekleyebiliriz

(05/05/2020, 09:52)accessman yazdı: [ -> ]yatayAra = CtWidth + 1
dikeyAra = CtHeight + 1

Buradaki + 1 ler aslında 2 nesne arasındaki aralık. siz buraya 2 liste kutusu arasındaki yatay ve dikey aralığı girebilirsiniz yada dikey ara için
dikeyAra = CtHeight + 2 + listektusuyuksekligi
Şeklinde deneyebilirsiniz

---

(05/05/2020, 09:52)accessman yazdı: [ -> ]CtTop = Mtn1Ust + dikeyAra * ((X - 0.6) \ 10)
CtLeft = Mtn1Sol + yatayAra * ((X - 0.6) Mod  10)

dikkat etmeniz gereken ifadede kullanılan kırmızı  10 sütun sayısıdır haftalık ise  7 olmali

ayrıca her  listbox ait olduğu tarih etiketinin altında olması gerektiği için top, left, width, height değerlerinide labele göre alacak

Etiket ismi ile listbox ismi aynı yapıda ise Lbl1 - LstBx1 gibi, .left aynıdır, .top=Etiket.top+ etiket yuksekligi+bosluk gibi yapılabilir ama zaten ilk mesajımda belirttiğim yöntem ile de yapilabiliyor.

evet sıralı isim vermek lazım

bir şey sorayım: bizim hazırlamamızı mı istiyorsunuz, yoksa verilen cevaba göre kendiniz mi yapacaksınız?