listbox columnwidths ayarı

[acar6783]

ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "5;10;60;10;15"

Bu kodlarla neden sütün genişliklerini istediğim gibi ayarlayamıyorum?

 

[Ömer BARAN]

Merhaba.
UserForm olaylarından pek anlamam ama; UserForm tasarım ekranında iken ListBox'a fareyle sağ tıkladığınızda Properties'i seçin (tasarım ekranında sol tarafta zaten görünür durumda da olabilir tabi) ve listedeki ColumnCount ve ColumnWidths satırlarının karşısında yazanları kontrol edin isterseniz.
Ayrıca bu sütun sayı ve genişlikleri, çalışan kodlara göre değişmeyecekse; bu sayıları, Properties kısmında yazıp, kod içerisinden tamamen kaldırmanız yerinde olabilir.

 

[acar6783]

Evet değişmeyecek.
Fakat aynı yöntemi propertiese de yazarak denedim yine aynı sorunla karşılaşıyorum ve bir türlü istediğim genişliklere ulaşamıyorum.

 

[acar6783]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Set ür = Sheets("Ürün Listesi")
txtt = TextBox1.Value
If txtt <> "" Then
If WorksheetFunction.CountIf(ür.Range("A1:A65536"), txtt) <> 0 Then

If IsNumeric(txtt) = True Then txtt = txtt * 1
m_adi = WorksheetFunction.Match(txtt, ür.Range("A2:A65536"), 0) + 1

sat = ListBox1.ListCount
sat = sat + 1
ListBox1.AddItem

ListBox1.List(sat - 1, 1) = sat
ListBox1.List(sat - 1, 2) = TextBox1.Value
ListBox1.List(sat - 1, 3) = ür.Cells(m_adi, 2)
ListBox1.List(sat - 1, 4) = "Adet"
ListBox1.List(sat - 1, 5) = "Deneme Satış"


Cancel = True
Me.TextBox1 = ""
     Me.TextBox1.SetFocus
 
         
          Else
          MsgBox "Ürün Bulunamadı"
         TextBox1.SetFocus
     
         Cancel = True
          Me.TextBox1 = ""
           End If
               End If
End Sub

Yukarıdaki kodlarla textboxa bağlı kodlar bunlarla bir ilgisi olabilir mi?

 

[Ömer BARAN]

ListBox1'e ait sütun sayısı ve sütun genişliği kod satırları,
UserFormun Initialize kısmında yazılı değil mi? Yanlış hatırlamıyorsam öyle olması lazım idi.
Bir de sanırım sütun numaraları 0'dan başlıyordu galiba, 1'den değil.

 

[acar6783]

Bir de sanırım sütun numaraları 0'dan başlıyordu galiba, 1'den değil.

Sorun bundan kaynaklanıyormuş meğer
Nasıl atlarım ya
Teşekkür ederim ...

 

[Ömer BARAN]

Oluyor bazen böyle şeyler.
İyi günler dilerim.

 

[Zeki Gürsoy]

Kolon genişliklerini ayarlamada zorlanıyorsanız değerleri "cm" olarak, hem tasarım hem de çalışma anında yapabilirsiniz. Ondalık ayracı nokta " . " olmalı.

Örnek:

listbox1.columnwidths = "1cm;2.5cm;3cm;0.5cm"

 

[acar6783]

Teşekkürler Zeki bey Bu da Güzel oldu