Lompat ke konten Lompat ke sidebar Lompat ke footer

Load Data Ke ListView

.

Untuk VB.6 Codingnya Adalah :

With djie_ListView1
    .View = lvwReport
    .GridLines = True
    .FullRowSelect = True
    'Membuat Column Header
    .ColumnHeaders.Clear
    For i = 0 To 3
        .ColumnHeaders.Add , , "Column Ke " & i, 1000
    Next
    'Load Data
    .ListItems.Clear
    For i = 0 To 100
        .ListItems.Add , , "Row Ke " & i & " Column Ke 0"
        'Loop Sebanyak Column Header -1
        For j = 1 To .ColumnHeaders.Count - 1
            'Index Listview start dari 1
           .ListItems(.ListItems.Count).ListSubItems.Add , , "Row Ke " & i & " Column Ke " & j
        Next
    Next
    .ListItems(1).Selected = True
End With
 
Untuk VB.NET Codingnya Adalah :

   With djie_ListView1
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            'Membuat Column Header
            .Columns.Clear()
            For i As Double = 0 To 3
                .Columns.Add("Column Ke " & i, 1000)
            Next
            'Load Data
            .Items.Clear()
            For i As Double = 0 To 100
                .Items.Add("Row Ke " & i & " Column Ke 0")
                'Loop Sebanyak Column Header -1
                For j As Double = 1 To .Columns.Count - 1
                    'Index Listview start dari 0
                    .Items(.Items.Count - 1).SubItems.Add("Row Ke " & i & " Column Ke " & j)
                Next
            Next
            .Items(0).Selected = True
            'Sesuaikan Ukuran Column Otomatis
            .AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
        End With

Posting Komentar untuk "Load Data Ke ListView"