Topluca Listbox Eklemek - Baskı Önizleme

Topluca Listbox Eklemek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Topluca Listbox Eklemek (/konu-topluca-listbox-eklemek.html)

Sayfalar: 1 2

Topluca Listbox Eklemek - accessman - 05/05/2020

İ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

RE: Topluca Listbox Eklemek - berduş - 05/05/2020

(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

RE: Topluca Listbox Eklemek - accessman - 05/05/2020

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

RE: Topluca Listbox Eklemek - berduş - 05/05/2020

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.

RE: Topluca Listbox Eklemek - accessman - 05/05/2020

evet sıralı isim vermek lazım

RE: Topluca Listbox Eklemek - berduş - 05/05/2020

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