vba listbox multicolumn iki kontrolleri, <code>ListBox</code> ve <code>ListCtrl</code> vardır ++ MFC VC ile

Question

Possible Duplicate:
Adding items in a Listbox with multiple columns

ekleyin. Ama VBA ile sadece ListBox var gibi görünüyor.

2 sütun içeren bir liste kutusu oluşturmak istiyorum (Company_ID, Company_Name).

1. ben lstbox (kontrol tipi ListBox)
2. Satır kaynağı türü = değer listesi
3. iki düzenleme kutularından kullanıcıdan değer alıyorum ve kullanıcı seçeneğini tıkladığında oluşturuldu: Burada
   Denedim budur "ekle" sonra 2 kutu ile liste kutusuna eklenmelidir.

   lstbox.ColumnCount = 2 
   lstbox.AddItem (Company_ID) 
   

   ilave sütun değeri ile ilişkili olduğu görünmektedir çalışmıyorsa şu kod:

   lstbox.Column(1,lstbox.ListCount - 1) = Company_name 
   

   Bu hata verir vba kodu rutininde

aşağıdaki satırları eklendi :

Runtime error '424' object required.

Çoklu sütun liste kutusuna eklenecek h vba kodu. (Sayaç ile)

Answer 1

Basitleştirilmiş örnek:

With Me.lstbox 
    .ColumnCount = 2 
    .ColumnWidths = "60;60" 
    .AddItem 
    .List(i, 0) = Company_ID 
    .List(i, 1) = Company_name 
    i = i + 1 

end with 

bir liste doldurmak için, ile sayaç değil 1 başlatmak için emin olun.