AccessTr.neT

Tam Versiyon: Buton Konumlama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
Bir öneri olarak şunu söyleyeyim:
Command butonlarınızı işaretlerin geleceği noktalara yakın oluşturun ve visible özelliğini false yapın. Gerekli koşulların sağlanması durumunda caption ve color özellikleri tanımlansın ve visible özelliği true olarak güncellensin. Böylece command buton oluşturmuş gibi istediğiniz butonlar görüntülenebilir.
Sn Atoykan haklısınız.
Butonları tüm ilçelere (yaklaşık 1000 nokta sanırım) konumlandıracağım için biraz üşendim doğrusu Img-grin
1000 butonu tek tek eklemek yerine aşağıdakine benzer bir kodu kullanabilirsiniz:
uzunluk, genişlik vs vs gibi değerleri girmezseniz varsayılan ayarları kullanır
diğer özellikleri de Visible gibi buradan ayarlayabilirssiniz
.CreateControl (FormAdı, NesneTürü(metnKutusu-Buton_listeKutusu vsvs), EkleneceğiBölge(başlıkkısmına-anagövde-alttbölge), Parent, ColumnName, SolaMesafe, ÜsteMesafe, Genişlik, Yükseklik)
Dim CtName As String
FrmAdi = "Form1"
DoCmd.OpenForm FrmAdi, acDesign

For X = 1 To 1000
CtName = "BtnAdi_" & X

Set ctlCheck = CreateControl(FrmAdi, acCommandButton, , , "") ', CtLeft, CtTop, CtlWidth, CtlHeight)
ctlCheck.Name = CtName
'With ctlCheck
' .Name = "BtnGun" & X
' .Top = CtlUst + DkyArlk * ((X - 0.6) \ 7)
' .Left = CtlSol + YtyArlk * ((X - 0.6) Mod 7)
'End With
Next X
Sn Berduş çok teşekkürler
Sn Berduş,
For Next döngüsü Tablo1'de Seç alanında tıklanan satırları okusa ve
butonlar boyut-renk-konum-tanım bilgilerini buradan alsa
kodlama nasıl olur?
Bu kodlar sadece bir defa kullanılacak o da siz tek tek butonları eklemeyin diye
Yani her defasında bu kodlar çalışıp forma buton eklemeyecek yani yanlış anlaşılma olmasın.
Sayfalar: 1 2 3 4 5