(آموزش) استفاده از Listview- نمایش داده ها

[ali.b]

سلام
با این کدها می تونید داده ها رو در listview نمایش بدین شبیه لیست باکس هست

Dim a As ListItemDim c As Range


    With ListView1
    .View = lvwReport
    .Gridlines = True
    .FullRowSelect = True
    .ListItems.Clear
    .ColumnHeaders.Clear
    .ColumnHeaders.Add , , Sheet1.Range("a1")
    .ColumnHeaders.Add , , Sheet1.Range("b1")
    .ColumnHeaders.Add , , Sheet1.Range("c1"), , lvwColumnRight
    End With


For Each c In Sheet1.Range("a1:c8")
If c.Offset(0, 1).Value = TextBox1.Text Then


With ListView1
Set a = .ListItems.Add(, , c.Offset(0, 0))
a.SubItems(1) = c.Offset(0, 1)
a.SubItems(2) = c.Offset(0, 2)
End With
End If
Next c

[alisabet]

کنترل ListView در نوار ابزار نیست چگونه آنرا ایجاد کنیم ؟ میشه یه فایل نمونه بذارید

[میثم مقدم نیا]

سلام
با این کدها می تونید داده ها رو در listview نمایش بدین شبیه لیست باکس هست

Dim a As ListItemDim c As Range


    With ListView1
    .View = lvwReport
    .Gridlines = True
    .FullRowSelect = True
    .ListItems.Clear
    .ColumnHeaders.Clear
    .ColumnHeaders.Add , , Sheet1.Range("a1")
    .ColumnHeaders.Add , , Sheet1.Range("b1")
    .ColumnHeaders.Add , , Sheet1.Range("c1"), , lvwColumnRight
    End With


For Each c In Sheet1.Range("a1:c8")
If c.Offset(0, 1).Value = TextBox1.Text Then


With ListView1
Set a = .ListItems.Add(, , c.Offset(0, 0))
a.SubItems(1) = c.Offset(0, 1)
a.SubItems(2) = c.Offset(0, 2)
End With
End If
Next c

سلام
اگه امکانش است یک نمونه برامون قرار بدید