Skip to main content

AccessTr.neT


Topluca Listbox Eklemek

Topluca Listbox Eklemek

Çözüldü #1
İ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
[Resim: do.php?img=10168]
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Topluca Listbox Eklemek - Yazar: accessman - 05/05/2020, 09:52
RE: Topluca Listbox Eklemek - Yazar: berduş - 05/05/2020, 10:17
RE: Topluca Listbox Eklemek - Yazar: accessman - 05/05/2020, 11:26
RE: Topluca Listbox Eklemek - Yazar: berduş - 05/05/2020, 11:37
RE: Topluca Listbox Eklemek - Yazar: accessman - 05/05/2020, 12:20
RE: Topluca Listbox Eklemek - Yazar: berduş - 05/05/2020, 15:59
RE: Topluca Listbox Eklemek - Yazar: accessman - 05/05/2020, 16:08