Hỏi về listbox

[vu_tuan_manh_linh]

Tôi đang thiết kế một form với listbox. Khi nếu đưa dữ liệu vào listbox bằng Rowsource thì đơn giản. Tôi muốn Additem mà có 2, 3 cột thì làm thế nào (Tạm thời tôi mới chỉ add được 1 cột thôi). Mong mọi người chỉ giúp! Cảm ơn nhiều!

 

[sealand]

Đây là 1 code ví dụ về phương thức Add, bạn tham khảo vận dụng nha:

Private Sub UserForm_Initialize()
Dim i
Me.ListBox1.ColumnCount = 3
With Me.ListBox1
For i = 0 To 10
.AddItem "Cot 1 dong " & i , i
.List(i, 1) = "Cot 2 dong " & i
.List(i, 2) = "Cot 3 dong " & i
Next
End With
End Sub

Lưu ý: Cột của Listbox đếm từ 0

 

[ndu96081631]

Tôi đang thiết kế một form với listbox. Khi nếu đưa dữ liệu vào listbox bằng Rowsource thì đơn giản. Tôi muốn Additem mà có 2, 3 cột thì làm thế nào (Tạm thời tôi mới chỉ add được 1 cột thôi). Mong mọi người chỉ giúp! Cảm ơn nhiều!

Nạp list cho ListBox, không gì đơn giản hơn là dùng List Property
Ví dụ thế này:

Private Sub UserForm_Initialize()
  Dim sArray
  sArray = Range("A1:C10").Value
  With Me.ListBox1
    .ColumnCount = 3 '< ListBox có 3 cot
    .List() = sArray
  End With
End Sub

 

[sealand]

Hì, bạn ấy đang hỏi về AdItem cơ mà. Ndu lại gán thuộc tính List

 

[ndu96081631]

Hì, bạn ấy đang hỏi về AdItem cơ mà. Ndu lại gán thuộc tính List

Đằng nào cũng về LA MÃ ---> AddItem chi cho chậm chập
(Cái vụ List này là anh dạy em mà... Ẹc... Ẹc...)

 

[vu_tuan_manh_linh]

Cảm ơn mọi người! Em sẽ thử xem hiệu ứng thế nào.

 

[vu_tuan_manh_linh]

Đây là 1 code ví dụ về phương thức Add, bạn tham khảo vận dụng nha:

Private Sub UserForm_Initialize()
Dim i
Me.ListBox1.ColumnCount = 3
With Me.ListBox1
For i = 0 To 10
.AddItem "Cot 1 dong " & i , i
.List(i, 1) = "Cot 2 dong " & i
.List(i, 2) = "Cot 3 dong " & i
Next
End With
End Sub

Lưu ý: Cột của Listbox đếm từ 0

Cảm ơn anh nhiều! Em làm được rồi!