06/02/2019, 22:33
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 & ";" & GenislikKod:
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