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
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
Posting Komentar untuk "Load Data Ke TreeView"