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

Load Data Ke ListBox

.

Untuk VB.6 Codingnya Adalah :


With djie_List1
    .Clear
    For i = 0 To 100
        .AddItem "Item Ke " & i
    Next
    .ListIndex = 0
End With

Untuk VB.NET Codingnya Adalah :
         With djie_ListBox1
            .Items.Clear()
            For i As Double = 0 To 10
                .Items.Add("Item Ke " & i.ToString)
            Next
            .SelectedIndex = 0
        End With


Atau Memakai Array, Codingnay Adalah :
        With djie_ListBox1
            .Items.Clear()
            .Items.AddRange(New String() {"Item Ke " & 0, "Item Ke " & 1, "Item Ke " & 2, "Item Ke " & 3})
            .SelectedIndex = 0
        End With

Load Data Ke ComboBox

.

Untuk VB.6 codingnya adalah :
With djie_Combo1
    .Clear
    For i = 0 To 100
        .AddItem "Item Ke " & i
    Next
    .ListIndex = 0
End With


Untuk VB.NET codingnya adalah :
        With djie_ComboBox1
            .Items.Clear()
            For i As Double = 0 To 10
                .Items.Add("Item Ke " & i.ToString)
            Next
            .SelectedIndex = 0
        End With
 





Atau Memakai Array, Codingnya Adalah :
         With djie_ComboBox1
            .Items.Clear()
            .Items.AddRange(New String() {"Item Ke " & 0, "Item Ke " & 1, "Item Ke " & 2, "Item Ke " & 3})
            .SelectedIndex = 0
        End With