Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Topluca Listbox Eklemek

accessman
accessman
Access Cevaplanmış Soruları
6
406

Topluca Listbox Eklemek

Çözüldü #1
accessman
accessman
Bul
Kıdemli Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Rep Puanı: 434
İ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 
Visual Basic Code 
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
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:08
Yorumları: 5.570
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 708
(05/05/2020 09:52)accessman Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı: 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
Son Düzenleme: 05/05/2020, 10:21, Düzenleyen: berduş.
Cevapla
#3
accessman
accessman
Bul
Kıdemli Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Rep Puanı: 434
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
@benbendedeilem
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:08
Yorumları: 5.570
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 708
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.
Cevapla
#5
accessman
accessman
Bul
Kıdemli Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Rep Puanı: 434
evet sıralı isim vermek lazım
@benbendedeilem
Cevapla
#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:08
Yorumları: 5.570
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 708
bir şey sorayım: bizim hazırlamamızı mı istiyorsunuz, yoksa verilen cevaba göre kendiniz mi yapacaksınız?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task