Minggu, 25 September 2011

Load Data Ke TreeView

.
 
Untuk VB.6 Codingnya Adalah :

With djie_TreeView1
    .LineStyle = tvwRootLines
    .Style = tvwTreelinesPlusMinusPictureText
    .Nodes.Clear
    .Nodes.Add , , "KEY_GENAP", "Bilangan Genap"
    .Nodes.Add , , "KEY_GANJIL", "Bilangan Ganjil"
    For i = 0 To 10
        'Penempatan Ke Group Node (Genap Atau Ganjil)
        If i Mod 2 = 0 Then
            .Nodes.Add "KEY_GENAP", tvwChild, "KEY_" & i, i
        Else
            .Nodes.Add "KEY_GANJIL", tvwChild, "KEY_" & i, i
        End If
    Next
End With



Untuk VB.NET Codingnya Adalah :
        With djie_TreeView1
            .Nodes.Clear()
            .Nodes.Add("KEY_GENAP", "Bilangan Genap")
            .Nodes.Add("KEY_GANJIL", "Bilangan Ganjil")
            For i As Double = 0 To 10
                'Penempatan Ke Group Node (Genap Atau Ganjil)
                If i Mod 2 = 0 Then
                    .Nodes.Find("KEY_GENAP", True)(0).Nodes.Add("KEY_" & i, i)
                Else
                    .Nodes.Find("KEY_GANJIL", True)(0).Nodes.Add("KEY_" & i, i)
                End If
            Next
        End With

Ditulis Oleh : Wahyu Aji // 21.25
Kategori:

0 komentar:

Posting Komentar