Skip to main content

AccessTr.neT


Form Üzeri Arama Textboxları

Form Üzeri Arama Textboxları

#13
Kod:
For Each tb In Me.Controls
If tb.ControlType = 109 And left(tb.Name, 1) = "t" Then
Genislik = Genislik & ";" & tb.Width / 1449 & Chr$(34)

End If
Next tb
 
Genislik = Mid(Genislik, 2)

Me.OgrList.ColumnWidths = 0 & ";" & Genislik

Kod:
Kodlarda değişiklik yapmaya karar verdim. Burada 1449 rakamını kendim uydurdum. Neredeyse ölçüler birebir tutuyor.
Fakat ne kadar başarılı olu bilmiyorum.
Listboxların genişliklerini üstte bulunan textboxlara uyarlamaya çalışıyorum

Son Düzenleme: 06/02/2019, 22:52, Düzenleyen: acar6783.
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
Form Üzeri Arama Textboxları - Yazar: acar6783 - 03/02/2019, 19:26
Cvp: Form Üzeri Arama Textboxları - Yazar: acar6783 - 03/02/2019, 19:46
Cvp: Form Üzeri Arama Textboxları - Yazar: acar6783 - 03/02/2019, 20:17
Cvp: Form Üzeri Arama Textboxları - Yazar: acar6783 - 03/02/2019, 20:33
Cvp: Form Üzeri Arama Textboxları - Yazar: acar6783 - 03/02/2019, 21:23
Cvp: Form Üzeri Arama Textboxları - Yazar: acar6783 - 03/02/2019, 22:42
Cvp: Form Üzeri Arama Textboxları - Yazar: acar6783 - 06/02/2019, 22:33
Cvp: Form Üzeri Arama Textboxları - Yazar: acar6783 - 07/02/2019, 07:32
Cvp: Form Üzeri Arama Textboxları - Yazar: ozanakkaya - 09/02/2019, 14:56
Task